■作者:痞子何 [2006/4/16 17:32:33]
<%
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")
select case Request.form("menu")
case "editProfileok"
editProfileok
case "contactok"
contactok
case "optionok"
optionok
case "passok"
passok
end select
%>
<SCRIPT src="inc/birthday.js"></SCRIPT>
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25> <img src=images/Forum_nav.gif> <%ClubTree%> → 控制面板</td>
</tr>
</table><br>
<table cellspacing=1 cellpadding=1 width=97% align=center border=0 class=a2>
<TR id=TableTitleLink class=a1 height="25">
<Td align="center"><b><a href="usercp.asp">控制面板首页</a></b></td>
<TD align="center"><b><a href="EditProfile.asp?menu=option">编辑论坛选项</a></b></td>
<TD align="center"><b><a href="EditProfile.asp">基本资料修改</a></b></td>
<TD align="center"><b><a href="EditProfile.asp?menu=contact">联系资料修改</a></b></td>
<TD align="center"><b><a href="EditProfile.asp?menu=pass">用户密码修改</a></b></td>
<TD align="center"><b><a href="message.asp">用户短信服务</a></b></td>
<TD align="center"><b><a href="friend.asp">编辑好友列表</a></b></td>
</TR></TABLE>
<br>
<%
select case Request("menu")
case ""
index
case "contact"
contactPage
case "option"
OptionPage
case "pass"
pass
end select
sub index
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
Set Rs=Conn.Execute(sql)
UserInfo=split(rs("UserInfo"),"\")
realname=UserInfo(0)
country=UserInfo(1)
province=UserInfo(2)
city=UserInfo(3)
postcode=UserInfo(4)
blood=UserInfo(5)
belief=UserInfo(6)
occupation=UserInfo(7)
marital=UserInfo(8)
education=UserInfo(9)
college=UserInfo(10)
address=UserInfo(11)
phone=UserInfo(12)
character=UserInfo(13)
personal=UserInfo(14)
%>
在这段话中，，加上一句，来限制用户某些权限，，比如，来限制用户的“编辑论坛选项”这一项
<TD align="center"><b><%if membercode < 5 then error("<li>您没有权限编辑论坛，请不要非法登陆")%><a href="EditProfile.asp?menu=option">编辑论坛选项</a></b></td>
这样加，可是，”用户密码修改“ 基本资料修改“联系资料修改”这三项也都被限制了，
请问IPSC该怎么改，先谢谢了！！！！！！！！！！！！！！！！！
［此帖子已被 痞子何 在 2006-4-16 18:04:12 编辑过］
【回复/版区/上篇/下篇/发贴/仅文字/HTML】 |