enrollment.asp

学生报名管理系统 一个基于asp的网站

<!--#include file="conn.asp"-->
<!--#include file="inc/inlogin.asp"-->
<!--#include file="inc/inc.asp"-->
<%
enroll_Login_Judge
webtit="25175学生网上报名管理系统"
action=che(request.querystring("action"))
types=che(request.form("types"))
%>
<!--#include file="inc/head.asp"-->
<!--#include file="inc/top.asp"-->
<%
dimarr "lq"
If enroll_islogin=True Then
	If action="checkpass" Then
		main_info3
	else
		main_info2
	End If
Else
	main_info
End If



Sub main_info2()
	Sql_Lists="webID,addtime,lq,lqinfo,edittime"
	Sql_tables="Reg_Userinfo"
	Sql_Conditions=" id="&enroll25175(0)
	sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
	user_chk =connopen(sql)
	If isArray(user_chk) Then
%>
<ul class="enroll_main2">
<li><B><%=enroll25175(1)%></B> 同学,你好<li>
<li>你的网络报名编号是：<%=user_chk(0,0)%><li>
<li>你已于（<%=user_chk(1,0)%>）递交报名申请表 <li>
<li><B style="color:#FF0000"">录取状态：<%=arr_lq(user_chk(2,0))%></B><li>
<%If user_chk(3,0)<>"" Then res "<li class=""con""><B>处理说明：</B><div>"&Replace(user_chk(3,0),"<；br>；","<BR>")&"</div><BR><B>处理时间</B>："&user_chk(4,0)&"<li>",1%>
	<li>详细请拨打我校招生办8小时热线咨询：0574－58982616。<li>
</ul>
<%
	Else
		main_errormsg "参数错误，请重新登陆！"
	End If
End Sub 

Sub main_info3()
If types="save" Then 
	password1=che(request.form("password1"))
	password2=che(request.form("password2"))

	If password1<>"" And  password2<>"" And password1=password2 Then 
	sql = "update [Reg_Userinfo] set [password]='"&md5(md5(password1))&"' where id="&enroll25175(0)
	conn.execute(sql)
	main_rightmsg "enrollment.asp","查询密码修改成功","用户录取查询页面"
	Else
	main_errormsg "密码不可为空！"

	End If

else
%>
<script src="js/detect.js" type="text/javascript"></script>
<script src="js/ajax.js" type="text/javascript"></script>
<script src="js/Enrollment_checkpass.js" type="text/javascript"></script>
<ul class="enroll_main3">
<FORM METHOD=POST ACTION="Enrollment.asp?action=checkpass" onSubmit="return CheckForm();">
	<li class="tit">修改查询密码：<li>
<li>新密码：<INPUT TYPE="password" NAME="password1"><div id="password1_txt"></div><li>
<li>重&nbsp;&nbsp;&nbsp;复：<INPUT TYPE="password" NAME="password2"><div id="password2_txt"></div><li>
<li class="sinfo">&nbsp;&nbsp;<INPUT TYPE="submit" value="提交"><INPUT TYPE="hidden" NAME="types" value="save"><li>
</FORM>
</ul>
<%
End If 
End Sub 


Sub main_left()
	res "<div id=""sidebar"" style="""">",1
	If enroll_islogin=True Then
		enrollment_showinfo
	Else
		enrollment_login
	End If 
	res "</div>",1
End Sub

Sub enrollment_login()

%>
<ul id="enrollment_login">
	<li class="s1"></li>
	<li class="s2">
		<ul>
<FORM METHOD=POST ACTION="Enrollment_checklogin.asp">
							<li class="tit">录取查询登陆</li>
			<li class="info">身份证：<INPUT TYPE="text" NAME="IdentityNO"></li>
			<li class="info">密&nbsp;&nbsp;&nbsp;码：<INPUT TYPE="password" NAME="password"></li>
			<li class="sinfo">&nbsp;&nbsp;<input type="submit" onMouseOver=this.className='Login1_1' onMouseOut=this.className='Login1' class="Login1" name="login" value="登陆" /> <A HREF="">忘记密码</A></li>
			<li class="line">&nbsp;</li>
			<li class="info2">还没有报名吗？</li>
			<li class="info3"><A HREF="Registration.asp" style="color: #FF0000">点击这里立即报名！</A>&nbsp;&nbsp;&nbsp;&nbsp;</li>
		  </FORM>
		</ul>
	</li>
	<li class="s3"></li>
</ul>
<%
End Sub

Sub enrollment_showinfo()
%>
<ul id="enrollment_login">
	<li class="s1"></li>
	<li class="s2">
		<ul>
<FORM METHOD=POST ACTION="Enrollment_checklogin.asp">
							<li class="tit">欢迎您登陆</li>
			<li class="info">姓&nbsp;&nbsp;&nbsp;名：<%=enroll25175(1)%></li>
			<li class="info">身份证：...<%=CutStr(Replace(enroll25175(2),Left(enroll25175(2),4),""),8)%></li>

			<li class="line">&nbsp;</li>
			<li class="info" style="margin-top:10px;"><A HREF="enrollment.asp?action=checkpass">修改密码</A></li>
			<li class="info"><A HREF="enrollment_checklogin.asp?action=logout">安全登出</A></li>
			</FORM>
		</ul>
	</li>
	<li class="s3"></li>
</ul>
<%
End Sub%>

<!--#include file="inc/footer.asp"-->