ASP网页设计轻松完成ASP中页面限权会见 - 仓酷云

Protect.asp文件′需限权会见的页面　　〈html〉〈head〉〈title〉赛迪主页〈/title〉〈/head〉〈bodybgcolor="#00FFFF"〉　　′此处可输出该页面的别的内容　　〈formaction="Protect.asp"method="post"〉　　请输出姓名:　　〈inputtype="text"name="text"〉　　请输出暗码:〈inputtype="password"size="20"name="password"〉　　〈inputtype="submit"name="B1"value="查询"〉〈/p〉〈/form〉　　〈%setconn=server.createobject("adodb.connection")　　conn.open"asptest"　　′asptest是寄存客户信息的表单permission地点的数据库的名字　　sql1="selectfrompermissionwherexm="&&request.form("text")&&"andmima="&&request.form("password")&&""　　setrs=conn.execute(sql1)%〉　　′假如数据库中存在客户输出的姓名和暗码，就显现页面product.asp的超等链接　　〈%ifnotrs.eofthen%〉〈ahref="product.asp"〉本公司的产物〈/a〉　　〈%endif%〉〈/body〉〈/html〉

复制代码

register.asp　　〈%ifrequest.form("b1")="提交"then　　setconn=server.createobject("adodb.connection")　　conn.open"asptest"　　sql1="select*frompermissionwherexm="&&request.form("name")&&"andmima="&&request.form("password")&&""　　setrs=conn.execute(sql1)　　ifnotrs.eofthen　　response.cookies("register")="true"　　rs.close　　conn.close　　endif　　′若数据库中存在该用户的信息，就纪录该用户乐成登录的标志到cookies中　　endif%〉　　〈html〉〈head〉〈/head〉　　〈bodybgcolor="#c0c0c0"〉　　〈palign="center"〉〈big〉〈big〉〈big〉敬爱的客户，请您登录！〈/big〉〈/big〉〈/big〉〈/p〉〈hr〉　　〈formaction="register.asp"method="post"name="form1"〉　　〈divalign="center"〉〈p〉姓名：　　〈inputname="name"size="13"〉〈/p〉　　〈p〉暗码：〈inputname="password"　　size="13"type="password"〉〈/p〉〈/div〉　　〈divalign="right"〉〈inputtype="submit"name="b1"value="提交"〉〈/div〉〈/form〉〈/body〉〈/html〉　　Protect.asp文件′需限权会见的页面　　〈%ifrequest.cookies("register")〈〉"true"then　　response.redirect"register.asp"　　endif%〉　　′若客户未登录，则强迫客户登录　　〈html〉〈head〉〈/head〉　　〈bodybgcolor="#00FFFF"〉　　′此处是需回护的页面内容　　〈/body〉〈/html〉

复制代码

global.asp　　〈scriptlanguage=vbscriptrunat=server〉　　subSession_onstart　　session("register")="false"　　′纪录客户乐成登录的信息　　　　session("lognumber")=0　　′纪录客户实验登录的次数，最多同意实验三次　　session("prescript")=""　　′纪录客户要会见的页面，以便登录后前往该页　　endsub　　〈/script〉　　register.asp　　〈%ifrequest.form("b1")="提交"then　　set　　conn=server.createobject("adodb.connection")　　conn.open"asptest"　　sql1="select*frompermissionwherexm="&&request.form("name")&&"andmima="&&request.form("password")&&""　　setrs=conn.execute(sql1)　　ifnotrs.eofthen　　　　session("register")="true"　　′若数据库中存在该用户的信息，就纪录该用户乐成登录的标志到register变量中　　rs.close　　conn.close　　response.redirectsession("prescript")　　′乐成登录后主动前往方才要会见的页面　　endif　　ifsession("lognumber")〈3then　　session("lognumber")=　　session("lognumber")+1　　　　response.redirect"register.asp"　　else　　response.redirect"sorry.asp"　　endif　　′同意实验登录三次，若均未乐成，则克制会见并同时显现页面sorry.asp　　endif%〉　　〈html〉〈head〉〈/head〉　　〈bodybgcolor="#c0c0c0"〉　　〈palign="center"〉〈big〉〈big〉　　〈marqueealign="middle"　　behavior="alternate"〉接待您的到临，请您先登录！〈/marquee〉〈br〉　　〈%ifsession("lognumber")〉0then%〉　　输出有误！请从头输出姓名和暗码！　　〈%endif%〉　　〈/big〉〈/big〉〈/p〉〈hr〉　　〈formaction="register.asp"method="post"name="form1"〉　　〈divalign="center"〉〈p〉姓名：　　〈inputname="name"size="13"〉〈/p〉　　〈p〉暗码：〈inputname="password"　　size="13"type="password"〉〈/p〉〈/div〉　　〈divalign="right"〉〈inputtype="submit"name="b1"value="提交"〉　　〈/div〉〈/form〉〈/body〉〈/html〉　　Protect.asp文件　　′需限权会见的页面　　〈%ifsession("register")〈〉"true"then　　session("prescript")=　　request.servervariables("script_name")　　response.redirect"register.asp"　　endif%〉　　′纪录该页面的路径到prescript变量中并强迫客户登录　　〈html〉〈head〉　　〈metahttp-equiv="Content-Type"　　content="text/html;charset=gb_2312-80"〉〈/head〉　　〈bodybgcolor="#00FFFF"〉　　′此处可输出该页面别的内容的剧本　　〈/body〉〈/html〉

复制代码