●1、用ACCESS创建一个数据库表,设计四个字段,对应项目以下: ID uesr pws 自动编号 用户名 密码 级别/权限
ClassID
其中,级别/权限用数字来表示,1为普通会员,2为版主,3为管理员。 ●2、新建一个登陆页面,插入表单、两个文本域、一个按扭。文本域对应名称 如下: 用户名:uesr 密 码:pws
●3、执行“服务器行为”——“用户身份验证”——“登陆用户”,如下图: 弹出“登陆用户”对话框,请把各项对应填好,如下图: 注意:“登陆用户”对话框下边的“基于以下项限制访问”选中“用户名和密 码”。 打开数据库表,填入用户资料,如下图: 李飞 陈根 张三 555 666 777 3(管理员) 2 (版主) 1(普通会员)
各个字段依以上各项按顺序用户名、密码、级别填好。如下图: 按“F12”键预览,分别输入用户名和密码,是否能正常登陆到AA.asp页。 如果这一步你以已经成功了,请继续。 ●4、制作三个页面,分别为普通会员、版主、管理员,对应文件名如下: 普通
会员: aa.asp
版主 : bb.asp cc.asp
管理员 :
还有一个登陆失败页,文件名为:no.asp ●5、手工修改“登陆用户”服务器行代码 切换到“代码”视图,找到这段代码: 其中(选中部分)如, MM_redirectLoginSuccess="AA.asp" 为登陆成功后转到页地址。
MM_redirectLoginFailed="NO.asp" 为登陆失败后转到页地址。 先把第一句代码删除掉。寻找以下代码段: [page] 其中选中部分如: MM_rsUser.Source = "SELECT uesr, pws" 为查询数据库记录的语句,它只查 询“uesr”和“pws”这两个字段,现在由于我们还要
查询““classID”这个 字段,以读取该字段的值,然后根据 该字段的值判断用户究竟应该把他带到那 个页。 把它改成: MM_rsUser.Source = "SELECT uesr, pws,classID" 即添加字段“classID”一并查询。 继续查找以下代码段: 在(如图中选中部分):
Session("MM_UserAuthorization") = "" End If 的下面手工添加以下语句: if (MM_rsUser.Fields.Item("classID").Value)=1 then
MM_redirectLoginSuccess="aa.asp"
elseif (MM_rsUser.Fields.Item("classID").Value)=2 then
MM_redirectLoginSuccess="bb.asp"
elseif (MM_rsUser.Fields.Item("classID").Value)=3 then
MM_redirectLoginSuccess="cc.asp"
end if
如下图中的选中部分:
添加代码完成。试按F12键预浏,输入不同的用户名,是不是把你带到不同的页面去了?根据这个原理,你可以在:
if (MM_rsUser.Fields.Item("classID").Value)=1 then
MM_redirectLoginSuccess="aa.asp"
elseif (MM_rsUser.Fields.Item("classID").Value)=2 then
MM_redirectLoginSuccess="bb.asp"
elseif (MM_rsUser.Fields.Item("classID").Value)=3 then
MM_redirectLoginSuccess="cc.asp"
elseif (MM_rsUser.Fields.Item("classID").Value)=xxxx then
MM_redirectLoginSuccess="xxxx.asp"
.....
end if
添加多个用户级别,让他
登陆到属于自己的小天地。
小窍门:
DW MX的服务器行为大量使用“转到页”,如登陆失败,转到某某页,文件太多对于站点文件管理不方便,我们把登陆失败的转到“NO.asp”页的代码改一改,让出错信息在本页就能显示,把那个NO.asp给删了,呵呵!
找到这段代码:
其中(选中部分),
Response.Redirect(MM_redirectLoginFailed)
改为:
Response.write("对不起!用户名或密码错误!")
如下图(选中部分):
再把:
MM_redirectLoginFailed="NO.asp"
这句代码删除。
OK!整个工程顺利完工!
按F12试试吧!
页面完整代码:
<%@LANGUAGE="
VBSCRIPT"%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?"
+ Request.Quer