check.asp

来自「轩圆学生信息管理系统[高中版] 程序功能：添加链接、修改链接、删除链接、清空链接」· 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
%>