轻松实现ASP中页面限权访问 （3）

global.asp 　　〈script language=vbscript runat=server〉 　　sub Session_onstart 　　 session("register")="false" 　　′记录客户成功登录的信息 　　　　 session("lognumber")=0 　　 ′记录客户尝试登录的次数，最多允许尝试三次 　　 session("prescript")="" 　　′记录客户要访问的页面，以便登录后返回该页 　　end sub 　　〈/script〉 　　register.asp 　　〈% if request.form("b1")="提交" then 　　set 　　conn=server.createobject("adodb.connection") 　　conn.open "asptest" 　　sql1="select * from permission where xm='"&&request.form("name") &&"' and mima='"&&request.form("password")&&"'" 　　set rs=conn.execute(sql1) 　　 if not rs.eof then 　　　　session("register")="true" 　　 ′若数据库中存在该用户的信息，就记录该用户成功登录的标记到register变量中 　　rs.close 　　 conn.close 　　 response.redirect session("prescript") 　　′成功登录后自动返回刚才要访问的页面 　　 end if 　　if session("lognumber")〈3 then 　　session("lognumber")= 　　session("lognumber")+1 　　　　 response.redirect "register.asp" 　　else 　　 response.redirect "sorry.asp" 　　end if 　　′允许尝试登录三次，若均未成功，则禁止访问并同时显示页面sorry.asp 　　end if%〉 　　〈html〉〈head〉〈/head〉 　　〈body bgcolor="#c0c0c0" 〉 　　〈p〉〈big〉〈big〉 　　〈marquee 　　behavior="alternate" 〉欢迎您的光临，请您先登录！〈/marquee〉〈br〉 　　〈%if session("lognumber")〉0 then%〉 　　输入有误！请重新输入姓名和密码！ 　　〈% end if%〉 　　〈/big〉〈/big〉〈/p〉〈hr〉 　　〈form action="register.asp" method="post"〉 　　〈div〉〈p〉姓名： 　　〈input size="13"〉〈/p〉 　　〈p〉密码：〈input 　　size="13"type="password"〉〈/p〉〈/div〉 　　〈div〉〈input type="submit" value="提交" 〉 　　〈/div〉〈/form〉〈/body〉〈/html〉 　　Protect.asp文件　　 ′需限权访问的页面 　　〈% if session("register")〈 〉"true" then 　　session("prescript")= 　　request.servervariables("script_name") 　　 response.redirect "register.asp" 　　end if%〉 　　 ′记录该页面的路径到prescript变量中并强制客户登录 　　〈html〉〈head〉 　　〈meta http-equiv="Content-Type" 　　content="text/html; charset=gb_2312-80"〉〈/head〉 　　〈body bgcolor="#00FFFF"〉 　　′此处可输入该页面其它内容的脚本 　　〈/body〉〈/html〉