checkadmin.asp

. 缓存处理技术

<%
Dim Chk_UserName,Chk_UserFlag
Chk_UserName=CheckStr(Trim(Request.Cookies(super_admin)("admin")))
Chk_UserFlag=CheckStr(Trim(Request.Cookies(super_admin)("Flag")))
if not isNum(Chk_UserFlag) then ChkError

set rs=server.createobject("adodb.recordset")
sql="select * from bbradmin where bbrname='"&Chk_UserName&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then ChkError
if Clng(Chk_UserFlag)<>Clng(Rs("flag")) then ChkError
if session("super_admin")<>super_admin then ChkError

Sub ChkError
    response.write "<script language=javascript>alert('你还没有登陆后台管理,或者已经登陆超时,请重新登陆!');top.location.href='default.asp';</script>"
    response.end
ENd Sub
%>