check.asp

轩圆学生信息管理系统 081029修正了成绩数据浏览时查看单个学生成绩时总分排名显示表格问题。 //===============================================

<%
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
%>