check.asp

来自「blue space 蓝色空间下载系统精简版---大家分享」· ASP 代码 · 共 17 行

<%
Call CheckAdmin()

Sub CheckAdmin()
	If Session("UpdateManager")<>1 Then
		Call ReturnMsgEnd("你没有登录，请重新登录！！")
	End If
End Sub

Sub ReturnMsgEnd(Message)
	Response.Write "<script language='javascript'>"
	Response.Write "alert('"&Message&"');"
	Response.Write "location.href='"&SystemPath&"/Admin/Index.asp';"
	Response.Write "</script>"
End Sub
%>