chksession.asp

. 缓存处理技术

<%
Dim LoginedUserID,LoginedUserName
LoginedUserID=Request.Cookies(super_user)("uid")
LoginedUserName=Request.Cookies(super_user)("uname")
if Not IsNum(LoginedUserID) then Err_Login
if Len(LoginedUserName)<5 or Len(LoginedUserID)<1 then Err_Login
if LoginedUserName="" or LoginedUserID="" or Request.Cookies(super_user)("ccnnbbbbrrkey")<>super_user then Err_Login
dim rschk
set rschk=server.createobject("adodb.recordset")
sql="select regadmin,regusername,regid from users where Regid="& LoginedUserID &" and regusername='"& LoginedUserName &"' and regadmin='N'"
rschk.open sql,conn,1,1
CnbbrConnTimes
if RsChk.eof then Err_Login
rschk.close
set rschk=nothing

Sub Err_Login()
    Response.Redirect "Login.asp"










End Sub
%>