config.asp

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

<!--#include file="conn.asp"-->
<%
Set Rs=conn.execute("select * from T_Admin")
XX_A_Id=Rs("A_Id")
X_A_Name=Rs("A_Name")
X_A_Pass=Rs("A_Pass")
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

Function Rndword(byval maxlen)
	dim strnewpass
	dim whatsnext,upper,lower,intcounter
 
	randomize
	for intcounter=1 to maxlen
	 whatsnext=int((1-0+1)*rnd+0)
	 if whatsnext=0 then
	upper=90
	lower=65
	else
	  upper=57
	  lower=48
	 end if 
	   strnewpass=strnewpass&chr(int((upper-lower+1)*rnd+lower))
	 next
	  Rndword=Ucase(strnewpass)
End Function

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;&nbsp;"
	Response.Write "〖<a href=Main.asp title='帮助说明'>帮助说明</a>〗"
	Response.Write "〖<a href=Yz.asp title='专业管理'>专业管理</a>〗"
	Response.Write "〖<a href=TeaC.asp title='教师资料'>教师资料</a>〗"
	Response.Write "〖<a href=KeMu.asp title='科目管理'>科目管理</a>〗"
	Response.Write "〖<a href=StuD.asp title='学生资料'>学生资料</a>〗"
	Response.Write "〖<a href=PrintC.asp title='班级资料'>班级资料</a>〗"
	Response.Write "〖<a href=Gbook.asp title='留言中心'>留言中心</a>〗"
	Response.Write "〖<a href=ConF.asp title='系统配置'>系统配置</a>〗"
	Response.Write "〖<a onclick=checkclick('您确定要退出吗？') href=default.asp?menu=out>退出管理</a>〗"
	Response.Write "</td></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>&nbsp;当前在线：<font color=red>"&Application("online")&"</font>人&nbsp;页面执行时间:<font color=red>"&left((timer()-startime)*1000,6)&"</font>毫秒<br>"
	Response.Write "</td></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;当前在线：<font color=red>"&Application("online")&"</font>人&nbsp;页面执行时间:<font color=red>"&left((timer()-startime)*1000,6)&"</font>毫秒<br>"
'	Response.Write "</td></tr></table>"
'End Sub
%>
<script>
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
</script>