|
分析楼主的问题,解决这个问题的办法有2种。
首先一种办法就是根据权限不同动态生成HTML代码
比如
数据库权限表(Authority)
编号(ID) 会员类型(UserType) 我要招聘(Recruitment) 我要求职(Job-seekers)
1 个人会员 false true
2 企业会员 true false
会员表(UserInfo)
编号(ID) 姓名(UserName) 会员类型(UserType)
1 张三 个人会员
2 王五 企业会员
<%
Dim UsName,UsType,LevelName
UsName=Session("UserName")
Function getUsType()
Dim rsTYP,SQL
SQL="select UserType from UserInfo where UserName='"&UsName&"'"
Set rsTYP=con.Execute(SQL)
UsType=rsTYP("UserType")
rsTYP.Close
Set rsTYP=Nothing
End Function
Function VerifyAuthority()
Dim rsVA,Sql
Sql="select "&LevelName&" from Authority Where UserType='"&UsType&"'"
Set rsVA=con.Execute(Sql)
IF rsVA.Fields(0).Value="true" Then
VerifyAuthority=True
Else
VerifyAuthority=False
End IF
End Function
LevelName="Recruitment"
IF VerifyAuthority() Then
Response.Write "<a href=xxx.xxx >我要招聘</a>"
Else
Response.Write "<a href=# >我要招聘</a>"
End IF
LevelName="Job-seekers"
IF VerifyAuthority() Then
Response.Write "<a href=xxx.xxx >我要求职</a>"
Else
Response.Write "<a href=# >我要求职</a>"
End IF
%>
传统的做法就是这样做,Ajax比较麻烦,其实原理也差不多。
(注:这只是示例代码,其中省略了与楼主问题无关的其它代码,请自行补充) |
|