<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if isempty(session("userid")) or session("userid")="" then
session("userid")=1
end if
function HTMLDecode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, "", CHR(13))
' fString = Replace(fString, " ", CHR(10))
HTMLDecode = fString
end function
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
If usermode=2 or usermode=3 then
if session("username")="" or session("usergroup")="" then
response.Redirect("login.asp")
response.end
end if
end if
strsql3="select count(userid) as userno from [user] where usergroup>'1'"
set rs3=conn.execute(strsql3)
userno=rs3("userno")
rs3.close
set rs3=nothing
%>
重庆南开中学欢迎您！
