config.asp

公共选修课报名及成绩查询管理系统。ASP.NET+ACCESS的组合

<!--#include file="conn.asp"-->
<%
Set Rs=conn.execute("select * from T_Admin")

Content = Split(Rs("A_Info"),"|")
webname=Content(0)		'网站名称
weburl=Content(1)		'网站链接
UserR_LocK=int(Content(2))	'是否锁定注册0为开放
XX_A_ZGXZ=int(Content(3))	'最高学制
A_Year=int(Content(4))		'数据保留年数

Rs.Close    
Set Rs=nothing

If Session("Yz")<>"" Then
	Set Rs_Yz=conn.execute("select * from T_Yz Where Yz_Id="&int(Session("Yz"))&" ")

	A_XCount=int(Rs_Yz("Yz_ClassNum"))		'最少选课门数
	A_Count=int(Rs_Yz("Yz_EClassNum"))		'每次最多选课门数

	Rs_Yz.Close    
	Set Rs_Yz=nothing
End If


Sub top()
Response.Write "<table width=100% cellspacing=1 cellpadding=0 border=0 bgcolor=#000000 height=25>"
Response.Write "<tr bgcolor=#FFFFFF>"
Response.Write "<td background=images/cent.gif class=topic align=left>&nbsp;<marquee onmouseout=this.start() onmouseover=this.stop() scrolldelay='100' direction='left' align='middle' scrollamount='3'>欢迎<font color='red'><b>"&session("name")&"</b></font>同学，您的学号--<font color='red'><b>"&session("xhao")&"</b></font>--请您在操作前认真看一下使用说明,谢谢合作!</marquee></td>"
Response.Write "<td background=images/cent.gif class=topic align=right width=480>〖<a href='Main.asp'>管理首页</a>〗"
Response.Write "〖<a href=Edit.asp>个人资料</a>〗"
Response.Write "〖<a href=Select.asp>选报科目</acronym></a>〗"
Response.Write "〖<a href=Disp.asp>已报科目</acronym></a>〗"
'Response.Write "〖<a href='#'>成绩查询</a>〗"
Response.Write "〖<a href=GBook.asp>留言中心</a>〗"
Response.Write "〖<a onclick=checkclick('您确定要退出吗？\n\n请您在退出前最好检查下您选的课程！') href=Default.asp?menu=out>退出管理</a>〗"
Response.Write "</td>"
Response.Write "</tr></table>"
End Sub

Sub bottom()
Response.Write "<table width='100%' border=0 align='center' cellpadding='0' cellspacing='0'>"
Response.Write "<tr bgcolor=#FFFFFF><td height='43' align='center'>授权于<a href='"&weburl&"' target='_blank'><font color=red>"&webname&"</font></a>免费使用 "
Response.Write " 技术支持：<a href='http://vpei.dxswm.com/' target='_blank'>大学生网盟(VPEI)</a>&nbsp;页面执行时间:"&left((timer()-startime)*1000,6)&"毫秒<br>"
Response.Write "</td></tr></table>"
End Sub
%>
<script>
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
</script>