index.asp

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

<!--#include file="Inc/Info.asp"-->
<!--#include file="Inc/oConn.asp"-->
<!--#include file="Inc/Public.asp"-->
<%
Call PHead(SiteName)
Call mainFace()
Call JavaScript("mw();")
Call PFoot()

Sub topFace()
	Print "<div class=""topface"">"
	Print "<span class=""st"">"&SiteName&"</span>"
	Print "<div class=""waitface""><span id=""wf"" style=""padding-right:10px;""></span></div>"
	Print "</div>"
End Sub

Sub mainFace()
	Call topFace()
	Print "<div class=""mainface"">"
	Call leftFace()
	Call rightFace()
	Print "</div>"
	Call footFace()
End Sub 

Sub leftFace()
	Print "<div id=""leftface"" class=""leftface"">"
	If Session("LG")=1 Then 
		If Session("JB")=1 Then Print "<div class=""lfmenu"" onclick=""subMenu('menuXT')"">系统管理</div>"
		If Session("JB")=1 Then Print "<div style=""display:"" id=""menuXT"">"
		If Session("JB")=1 Then Call RMenu("RZ.asp","系统日志")
		If Session("JB")=1 Then Call RMenu("YH.asp","用户管理")
		If Session("JB")=1 Then Call RMenu("CS.asp","初 始 化")
		If Session("JB")=1 Then Call RMenu("CF.asp","系统设置")
		If Session("JB")=1 Then Call RMenu("BF.asp","数据管理")
		If Session("JB")=1 Then Call RMenu("LY_GL.asp","留言管理")
		If Session("JB")=1 Then Print "</div>"
		If Session("JB")=1 Then Print "<hr size=""1"" color=""#b8b8b8"" />"
		If Session("JB")=1 Then Print "<div class=""lfmenu"" onclick=""subMenu('menuXJ')"">学籍系统</div>"
		If Session("JB")=1 Then Print "<div style=""display:none"" id=""menuXJ"">"
		If Session("JB")<=2 Then Call RMenu("XJ.asp","学籍管理")
		If Session("JB")=1 Then Call RMenu("DR.asp","学籍导入")
		If Session("JB")=1 Then Call RMenu("UP.asp","更新照片")
		If Session("JB")=1 Then Call RMenu("DC.asp","导出学籍")
		If Session("JB")=1 Then Call RMenu("RP_XJ_HMC.asp","花 名 册")
		If Session("JB")=1 Then Call RMenu("RP_XJ_RS.asp","各班人数")
		If Session("JB")=1 Then Print "</div>"
		If Session("JB")<=2 Then Print "<hr size=""1"" color=""#b8b8b8"" />"
		If Session("JB")=1 Then Print "<div class=""lfmenu"" onclick=""subMenu('menuCJ')"">成绩系统</div>"
		If Session("JB")=1 Then Print "<div style=""display:none"" id=""menuCJ"">"
		If Session("JB")=1 Then Call RMenu("KS.asp","考试管理")
		If Session("JB")=1 Then Call RMenu("KM.asp","科目管理")
		If Session("JB")<=2 Or Session("JB")=5 Then Call RMenu("CJ.asp","成绩管理")
		If Session("JB")<5 Then Call RMenu("CJ_All.asp","成绩浏览")
		If Session("JB")=1 Then Call RMenu("DR_CJ.asp","成绩导入")
		If Session("JB")=1 Then Call RMenu("UP_CJ.asp","成绩统计")
		If Session("JB")=1 Then Call RMenu("DC_CJ.asp","导出成绩")
		If Session("JB")=1 Then Print "</div>"
		Print "<hr size=""1"" color=""#b8b8b8"" />"
		If Session("JB")<>5 Then Call RMenu("CX.asp","学籍查询")
		If Session("JB")<>5 Then Call RMenu("CX_CJ.asp","成绩查询")
		If Session("JB")<>5 Then Call RMenu("PW.asp","修改密码")
		Call RMenu("LG.asp?action=logout","退出系统")
	Else
		Call RMenu("LY.asp","我有问题")
		Call RMenu("CX_CJ.asp","成绩查询"):Call RMenu("LG.asp","登录系统")
	End If 
	Print "</div>"
End Sub

Sub rightFace()
	Dim fUrl
	If Session("LG")=1 Then
		fUrl = "Main.asp"
	Else
		fUrl = "LG.asp"
	End If 
	Print "<div class=""rightface"">"
	Print "<iframe id=""R"" name=""R"" src="""&fUrl&""" marginwidth=""0"" marginheight=""0"" frameborder=""0"" scrolling=""auto"" style=""width:100%;height:500px;""></iframe>"
	Print "</div>"
End Sub

Sub footFace()
	Print "<div class=""footface"">"
	Print " <div class=""footcopy"">"
	Print "	<div style=""float:left;text-align:left""><span class=""stcopy"">"&Ver&"</span>"
	Print "&copy2007 <a href='mailto:[e-mail]'>XMSky</a> 版权所有 请使用1024×768以上的分辨率来使用本系统以达到最佳显示和使用效果</div>"
	Print "<div style=""text-align:right"">授权 "&Copyright&" 使用</div></div> "
	Print "</div>"	
End Sub

Sub RMenu(mU,mBody)
	Print "	<div onMouseOver=""mOver(this)"" onMouseOut=""mOut(this)"" class=""menu"" onclick=""goTO('"&mU&"')"">"
	Print mBody
	Print "	</div>"
End Sub 
%>