?? check.asp
字號(hào):
<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Check Module
'For any help with modification to
'this file contact support@scriptmate.com
'=========================================%>
<!--- #include virtual=/smusermanager/utilities/config.asp -->
<%dim fileexpiry, filegroups, filelevel, qs, urlqs
if not Application("smumdebugmode") then on error resume next
for each qs in Request.QueryString
urlqs = urlqs & qs & "=" & request(qs) & "@@$$"
next
if session("id") = "" then Response.Redirect smumpage & "?action=login&url="&Request.ServerVariables ("url") & "@$@$" & urlqs
if fileadmin then
if not session("admin") then Response.Redirect smumpage & "?action=messages&mesid=2"
end if
if fileexpiry = "" then
else
if session("accesslevel") > Application("smummaxlevels") then
else
if cdate(fileexpiry) < now() then Response.Redirect smumpage & "?action=messages&mesid=1"
end if
end if
if filegroups = "" then
else
filegroupsarray = split(filegroups,",")
usergroupsarray = split(session("groups"),",")
For i = lbound(filegroupsarray) to ubound(filegroupsarray)
if filegroupsarray(i) = "" then
else
For j = lbound(usergroupsarray) to ubound(usergroupsarray)
if usergroupsarray(i) = "" then
else
if filegroupsarray(i) = usergroupsarray(j) then filegroupuser = true
end if
Next
end if
Next
if filegroupuser then
else
Response.Redirect smumpage & "?action=messages&mesid=6"
end if
end if
if filelevel <> "" then
if filelevel > session("accesslevel") then
session("Admin") = ""
session("Active") = ""
session("Username") = ""
session("Membername") = ""
session("Id") = ""
session("Expirydate") = ""
session("Accesslevel") = ""
Response.Redirect smumpage & "?action=messages&mesid=4"
end if
end if%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -