如何实现某些页面只让特定的用户浏览？

时间：2021-05-18

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 align="center">

　　<marquee align="middle"

　　behavior="alternate" >星河影动欢迎您,请先登录!</marquee><br>

　　<%if session("lognumber")>0 then%>

　　输入有误!请重新输入姓名和口令.

　　<% end if%>

　　</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 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>

　　

[1]

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章