Dim ServerObject(9)
ServerObject(9) = "Scripting.FileSystemObject"
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
function Checkin(s)
s=trim(s)
s=replace(s," "," ")
s=replace(s,"'","'")
s=replace(s,"""",""")
s=replace(s,"<","<")
s=replace(s,">",">")
Checkin=s
end function
function CheckAdmin1
if Session("IsAdmin")true then response.redirect "error.asp"
end function
function CheckAdmin2
if Session("IsAdmin")true or (session("KEY")"check" and session("KEY")"super") then response.redirect "error.asp"
end function
function CheckAdmin3
if Session("IsAdmin")true or session("KEY")"super" then response.redirect "error.asp"
end function
sub error()
%>
-
Error！ ！ :(
...::: 点 此 返 回
:::...
end sub
%>
