passinc.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 28 行

<%
if Session("wem") = "" then
	Response.Redirect "default.asp"
end if

if Session("SecEx") = "1" then
	Response.CacheControl = "no-cache"
end if

pageline = Session("pl")


function isadmin()
	isadmin = false
	if Session("wem") = Application("em_SystemAdmin") then
		isadmin = true
	end if
end function


function getGRSN()
	dim theGRSN
	Randomize
	theGRSN = Int((9999999 * Rnd) + 1)

	getGRSN = "GRSN=" & CStr(theGRSN)
end function
%>