check.asp

来自「Very good-xuan yen Student Information M」· ASP 代码 · 共 28 行

<%
Call CheckLG()

Sub CheckAdmin(AccessJB,CurrJB)
	If InStr(AccessJB,CurrJB)=0 Then
		Response.Write "<script language='javascript'>"
		Response.Write "alert('你没有权限进行此项操作！！');"
		Response.Write "location.href='Main.asp'"
		Response.Write "</script>"
		Response.End
	End If 
End Sub 

Sub CheckLG()
	If Session("LG")<>1 Then
		Call ReturnMsgEnd("你没有登录，请先登录！！")
	End If
End Sub

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