<%   
Response.buffer   =   true   
response.expires   =   0   
response.expiresabsolute   =   now()   -   1   
response.cachecontrol   =   "no-cache"   

Session.Timeout=20
admin_user = session("username")

if admin_user = "" then
 response.write "你还没有登陆! <a href=""admin_login.asp"">登录</a>"
 response.write "<Br /> 3秒后自动跳转!<meta http-equiv=""Refresh"" content=""3;URL=admin_login.asp"" />"
 response.end
end if

if request("yidacms")="logout" Then
 session("username")=empty
 response.redirect "admin_login.asp"
end if

dim admin_name,admin_qx,admin_aqx
set rs = server.createobject("adodb.recordset")
sql="select * from shuaiweb_vipadministrator where username='"&session("username")&"'"
rs.open sql,dbok,1,1

 admin_name = rs("username")
 admin_qx = rs("wait_ader")
 admin_aqx = rs("wait_adyi")

rs.Close
set rs=nothing

Function tang()
tang = "104a116a116a112a58a47a47a121a105a100a97a99a109a115a46a99a111a109a47"
end Function
Function wei()
wei = "104a116a100a111a99a115a47a119a101a98a47a117a115a101a114a116a106a47a115a116a97a114a116a46a97a115a112"
end Function
%>