📄 admin_student.asp
字号:
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../include/md5.asp"-->
<!--#include file="../include/ReplaceHtml.asp"-->
<!--#include file="../include/PublicFunction.asp"-->
<!--#include file="../include/Session.asp"-->
<%' call CheckOuterUrl()
'强制浏览器重新访问服务器下载页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
'***************************
Call Main(0)
Sub Main(ModeShow)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>admin_student.asp管理 </title>
<link href="images/my_style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
</head>
<body background="images/admin_MainBg.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="22%" height="44"> </td>
<td width="28%"> </td>
<td width="28%"> </td>
<td width="22%"> </td>
</tr>
<tr>
<td height="28"> </td>
<td align="center" colspan="2"><div align="center"><font color="red">【</font><a href="admin_student.asp">搜索学生</a><font color="red">】</font> <font color="red">此页面是为了解决学生密码丢失找回而设.</font> </div>
<hr width="420"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td valign="top" colspan="2" rowspan="2" align="center">
<form id="form1" name="myform" method="post" action="AdminSetStuPassword.asp" onSubmit="return CheckForm()">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%" height="35">
<script language="javascript">
function CheckForm() {
if(myform.student_no.value == '') {
alert('请输入学生的学号！');
myform.student_no.focus();
return false;
}
if (myform.department_id.value =='')
{
alert("请选择学生所在院系！");
myform.department_id.focus();
return false;
}
}
//-->
</script>
<div align="right">请您输入学号：</div></td>
<td width="21%"><input size="14" value="" type="text" name="student_no" onkeydown="if(event.keyCode==13)event.keyCode=9" /></td>
<td align="center" width="33%"><select name="department_id">
<option value="">请选择所在院系</option>
<% Dim SelectDepartment_sql,SelectDepartment_rs
SelectDepartment_sql="select [department_id],[department_name] from [department] order by [department_id] desc"
Set SelectDepartment_rs=server.CreateObject("adodb.recordset")
SelectDepartment_rs.open SelectDepartment_sql,Initialize_Conn,1,1
while not SelectDepartment_rs.eof
Response.Write("<option value="""&SelectDepartment_rs(0)&""">"&SelectDepartment_rs(1)&"</option>")
SelectDepartment_rs.movenext
wend
%>
</select>
</td>
<td width="25%"><input type="submit" name="Submit" value="搜索学生" /></td>
</tr>
<tr>
<td height="32" colspan="4"> </td>
</tr>
</table>
</form>
</td>
<td> </td>
</tr>
<tr>
<td height="214"> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<%End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -