⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 more.asp

📁 晴和教务管理系统
💻 ASP
字号:
<!--#include file="inc/top.asp"-->
<!--#include file="inc/md5.asp"-->
<!--1-->
<div align="center">
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<!--left--> 
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="table-you">
<!--#include file="loginout.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" bgcolor="f1f1f1" background="/jw/images/menu_02.gif" valign="bottom">
<p align="right">快 速 查 询 通 道 &nbsp;&nbsp;&nbsp;</td>
</tr>
<tr> 
<td> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" height="70">
<tr> 
<td height="20" align="center"> 
如何使用本系统<br>
班级名册查询<br>
学生、教师资料查询<br>
教室使用情况查询</td>
</tr>
<tr> 
<td height="1"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<%
more=request("more")
select case more
case "getpwd1"
getpwd1()
case "getpwd2"
getpwd2()
case "editpwd1"
editpwd1()
case "editpwd2"
editpwd2()
end select

function getpwd1()
%>
<!--center-->
<td width="400" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td class="table-shangxia" bgcolor="#ffffff" height="35">
<img src="/jw/images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=index.asp>教学系统</a> &gt;&gt; &gt;&gt;找回密码第一步</td>
</tr>
<TR>
<td bgcolor="#ffffff" height="35">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="userlogin" method="post" action="/more.asp?more=getpwd2">
<tr> 
<td align="center" colspan="3" height="5">
</td>
</tr>
<tr> 
<td align="center" colspan="3" height="30"><font color="#999999">准确输入以下资料即可找回密码</font>
</td>
</tr>
<tr> 
<td align="center" colspan="3" height="5">
</td>
</tr>
<tr> 
<td width="14%" height="30"> </td>
<td width="33%" height="30">类  型:</td>
<td width="54%">
	<input type="radio" value="教师" name="lx">教师   
	<input type="radio" value="学生" name="lx"checked>学生</td>
</tr>
<tr> 
<td width="14%" height="30"> </td>
<td width="33%" height="30">学(编)号:</td>
<td width="54%" height="30"> 
<input type="text" class="wenbenkuang" name="Num" size="22"></td>
</tr>
<tr> 
<td width="14%" height="30"> </td>
<td width="33%" height="30">邮件地址:</td>
<td width="54%" height="30"> 
<input type="text" class="wenbenkuang" name="Email" size="22"></td>
</tr>
<tr> 
<td width="14%" height="30"> </td>
<td width="33%" height="30">密码保护问题:
</td>
<td width="54%" height="30"> 
<input type="text" class="wenbenkuang" name="Que" size="22"></td>
</tr>
<tr> 
<td width="14%" height="30"> </td>
<td width="33%" height="30">密码保护问题答案:</td>
<td width="54%" height="30"> 
<input type="text" class="wenbenkuang" name="Ans" size="22"></td>
</tr>
<tr> 
<td align="center" height="60" colspan="3"> 
<div align="center">
	<table border="0" cellpadding="0" style="border-collapse: collapse" width="400" id="table1">
		<tr>
			<td width="200" align="center"><input class=go-wenbenkuang name="imageField" value="确 认" type=submit></td>
			<td width="100" align="center"><input class=go-wenbenkuang onclick="window.location='/jw/more.asp?more=getpwd'" type=button value="重 新 填 写" name=Submit3></td>
			<td width="100" align="center"> </td>
		</tr>
	</table>
</div>
</td>
</tr>
</form>

</table>
</td>
</tr>
</table>
</td>
<%
end function

function getpwd2()
lx=request("lx")
Num=request("Num")
Email=request("Email")
Que=request("Que")
Ans=request("Ans")
set rs=server.CreateObject("adodb.recordset")
If lx = "教师" Then
  sql="select * from Jw_teacher where Num = '"& Num &"'"
Else
  sql="select * from Jw_student where Num = '"& Num &"'"
End If
rs.open sql,conn,1,3
If Email=rs("Email") And Que=rs("Que") And Que=rs("Que") Then
rs("Password")=md5("111111")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--center-->
<td width="400" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td class="table-shangxia" bgcolor="#ffffff" height="35">
<img src="/jw/images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=index.asp>教学系统</a> &gt;&gt; &gt;&gt;找回密码第二步</td>
</tr>
<TR>
<td bgcolor="#ffffff" height="35" align="center" class="table-xia"><font color="#FF0000">
<font color="#FF0000">输入资料正确,你的密码已重置为</font><font color="#0000FF">111111</font><font color="#FF0000">,请及时登陆更改密码</font>
</td>
</tr>
</table>
</td>
<%
Else
%>
<!--center-->
<td width="400" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td class="table-shangxia" bgcolor="#ffffff" height="35">
<img src="/jw/images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=index.asp>教学系统</a> &gt;&gt; &gt;&gt;找回密码第二步</td>
</tr>
<TR>
<td bgcolor="#ffffff" height="35" align="center" class="table-xia">
<font color="#FF0000">输入的邮件、提示问题和提示问题答案不匹配,请返回重新输入</font>
</td>
</tr>
</table>
</td>
<%
End If
end function

function editpwd1()
%>
<!--center-->
<td width="400" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td class="table-shangxia" bgcolor="#ffffff" height="35">
<img src="/jw/images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=index.asp>教学系统</a> &gt;&gt; &gt;&gt;修改密码第一步</td>
</tr>
<TR>
<td bgcolor="#ffffff" height="35">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="userlogin" method="post" action="/jw/more.asp?more=editpwd2"">
<tr> 
<td align="center" colspan="3" height="5">
</td>
</tr>
<tr> 
<td align="center" colspan="3" height="30"><font color="#999999">请准确输入以下内容</font>
</td>
</tr>
<tr> 
<td align="center" colspan="3" height="5">
</td>
</tr>
<tr> 
<td width="14%" height="30"> </td>
<td width="33%" height="30">原 密 码:</td>
<td width="54%" height="30"> 
<input type="password" class="wenbenkuang" name="OldPassword" size="22"></td>
</tr>
<tr> 
<td width="14%" height="30"> </td>
<td width="33%" height="30">新 密 码:
</td>
<td width="54%" height="30"> 
<input type="password" class="wenbenkuang" name="Password0" size="22"></td>
</tr>
<tr> 
<td width="14%" height="30"> </td>
<td width="33%" height="30">再次输入新密码:</td>
<td width="54%" height="30"> 
<input type="password" class="wenbenkuang" name="Password1" size="22"></td>
</tr>
<tr> 
<td align="center" height="60" colspan="3"> 
<div align="center">
	<table border="0" cellpadding="0" style="border-collapse: collapse" width="400" id="table1">
		<tr>
			<td width="200" align="center"><input class=go-wenbenkuang name="imageField" value="确 认" type=submit></td>
			<td width="100" align="center"><input class=go-wenbenkuang type=button value="重 新 填 写" name=Submit3></td>
			<td width="100" align="center"> </td>
		</tr>
	</table>
</div>
</td>
</tr>
</form>

</table>
</td>
</tr>
</table>
</td>
<%
end function

function editpwd2()
OldPassword=request("OldPassword")
Password0=request("Password0")
Password1=request("Password1")
set rs=server.CreateObject("adodb.recordset")
If request.Cookies("jiaowu")("Lx") = "教师" Then
  sql="select * from Jw_teacher where Num = '"& request.Cookies("jiaowu")("Num") &"'"
Else
  sql="select * from Jw_student where Num = '"& request.Cookies("jiaowu")("Num") &"'"
End If
if Password0 <> Password1 then
response.write "<script LANGUAGE='javascript'>alert('两次输入的新密码不一致!');history.go(-1);</script>"
response.end
end if
if Len(Password0) < 6  then
response.write "<script LANGUAGE='javascript'>alert('密码长度不能小于六位!');history.go(-1);</script>"
response.end
end if
rs.open sql,conn,1,3
if Md5(OldPassword) <> rs("Password") then
  response.write "<script LANGUAGE='javascript'>alert('输入的旧密码错误!');history.go(-1);</script>"
  response.end
Else
  rs("Password")=Md5(request.form("Password0"))
  rs.update
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
end if
%>
<!--center-->
<td width="400" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<td class="table-shangxia" bgcolor="#ffffff" height="35">
<img src="/jw/images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=index.asp>教学系统</a> &gt;&gt; &gt;&gt;修改密码第二步</td>
</tr>
<TR>
<td bgcolor="#ffffff" height="35" align="center" class="table-xia"><font color="#FF0000">
<font color="#FF0000">修改密码成功</font>
</td>
</tr>
</table>
</td>
<%
end function
%>
<!--right-->
<td width="180" bordercolor="#FFFFFF" bgcolor="#FFFFFF"  valign="top" class="table-zuo">

<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="35" bgcolor="f1f1f1" background="/jw/images/menu_03.gif" align="right" valign="bottom">最 新 消 息&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr>
<td>
<table width="90%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr> 
<td align="center" height="5">
</td>
</tr>
<tr> 
<td align="center">
<marquee width="100%" height="230" direction="up" scrolldelay="1" scrollamount="1"><!--#include file="a.txt"--></marquee>
</td>
</tr>
<tr> 
<td align="center" height="5">
</td>
</tr>
</table>
</td>
</tr>
</table>

</td>
<!--end-->
</tr>
</table>
</div>
<!--2-->
<!--#include file="inc/end.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -