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 response.cookies("register")="true" rs.close conn.close end if ′若数据库中存在该用户的信息,就记录该用户成功登录的标记到cookies中 end if%〉 〈html〉〈head〉〈/head〉 〈body bgcolor="#c0c0c0" 〉 〈p align="center"〉〈big〉〈big〉〈big〉亲爱的客户,请您登录!〈/big〉〈/big〉〈/big〉〈/p〉〈hr〉 〈form action="register.asp" method="post" name="form1"〉 〈div align="center"〉〈p〉姓名: 〈input name="name" size="13"〉〈/p〉 〈p〉密码:〈input name="password" size="13"type="password"〉〈/p〉〈/div〉 〈div align="right"〉〈input type="submit" name="b1" value="提交" 〉 〈/div〉〈/form〉〈/body〉〈/html〉 Protect.asp文件 ′需限权访问的页面 〈%if request.cookies("register")〈〉"true" then response.redirect "register.asp" end if%〉 ′若客户未登录,则强制客户登录 〈html〉〈head〉〈/head〉 〈body bgcolor="#00FFFF"〉 ′此处是需保护的页面内容 〈/body〉〈/html〉
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