passinc.asp

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

<%
if Session("wem") = "" then
	Response.Redirect "../default.asp"
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
%>