怎么修改网站后台权限（怎么才能修改站点权限）

高分:如何设置网站后台管理员的权限？

首先在数据库中设置两个管理员权限。

一:超级管理员

一:管理员

然后，后台是一个两页的窗口，超级管理员进入一页，管理员进入另一页。

我应该使用什么代码？

补充:

我的数据库用的是ACCECC。

我的库表是:表示排名的是:lovel。

我需要在登陆点写一段代码，让它自动确定自己的身份，用不同的身份登录不同的页面。

回答问题的时候留下你的QQ，我好跟你讨论你的回答是不是我想要的。2008-08-26 21:47

页面:

& lt% @ language = VBScript code page = 936% & gt；

& lt！-# include file = & quot；Conn.asp & quot-& gt；

& lt！-# include file = & quot；../Inc/config . ASP & quot；-& gt；

& lt！-# include file = & quot；Inc/MD5 . ASP & quot；-& gt；

& lt%

维度sql，rs

dim用户名、密码、校验码

username=replace(trim(请求(& quot用户名& quot))，& quot'”，& quot”)

密码=替换(trim(请求(& quot密码& quot))，& quot'”，& quot”)

CheckCode=replace(trim(请求(& quot校验码& quot))，& quot'”，& quot”)

如果用户名= & quot”然后

FoundErr=True

ErrMsg = ErrMsg & & quot& ltbr & gt& lt李& gt用户名不能是空！& lt/李& gt”

如果…就会结束

如果密码= & quot”然后

FoundErr=True

ErrMsg = ErrMsg & & quot& ltbr & gt& lt李& gt密码不能是空！& lt/李& gt”

如果…就会结束

if CheckCode = & quot”然后

FoundErr=True

ErrMsg = ErrMsg & & quot& ltbr & gt& lt李& gt验证码不能是空！& lt/李& gt”

如果…就会结束

如果会话(& quot校验码& quot)= & quot”然后

FoundErr=True

ErrMsg = ErrMsg & & quot& ltbr & gt& lt李& gt您的登录时间过长，请返回登录页面重新登录。& lt/李& gt”

如果…就会结束

如果校验码& lt& gtCStr(会议(& quot校验码& quot))然后

FoundErr=True

ErrMsg = ErrMsg & & quot& ltbr & gt& lt李& gt您输入的确认码与系统生成的不一致。请重新输入。& lt/李& gt”

如果…就会结束

如果发现错误& lt& gt那是真的

密码=md5(密码)

set RS = server . createobject(& quot；adodb.recordset & quot)

sql = & quotselect * from Admin where password = & # 39；”&密码& & quot'而用户名= & # 39；”&用户名& & quot'”

康涅狄格州rs.open sql，1，3

如果rs.bof和rs.eof那么

FoundErr=True

ErrMsg = ErrMsg & & quot& ltbr & gt& lt李& gt用户名或密码错误！！！& lt/李& gt”

其他

如果密码& lt& gtRS(& quot；密码& quot)然后

FoundErr=True

ErrMsg = ErrMsg & & quot& ltbr & gt& lt李& gt用户名或密码错误！！！& lt/李& gt”

其他

RndPassword=GetRndPassword(16)

RS(& quot；LastLoginIP & quot)=请求。服务器变量(& quot远程ADDR & quot；)

RS(& quot；LastLoginTime & quot)=现在()

RS(& quot；LoginTimes & quot)= RS(& quot；LoginTimes & quot)

1

RS(& quot；RndPassword & quot)=RndPassword

rs .更新

会话。超时=会话超时

会话(& quotAdminName & quot)= RS(& quot；用户名& quot)

会话(& quot管理员密码& quot)= RS(& quot；密码& quot)

会话(& quotRndPassword & quot)=RndPassword

rs关闭

设置rs =无

调用CloseConn()

回应。重定向& quotdefault.asp&quot

如果…就会结束

如果…就会结束

rs关闭

设置rs =无

如果…就会结束

如果FoundErr=True，则

调用WriteErrMsg() 2008-08-26 21:55