edit_teacher.asp
来自「eayanQuery思燕大学成绩查询系统 版本 V1.6」· ASP 代码 · 共 186 行
ASP
186 行
<%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"-->
<%'***************************
Dim Action
Action=request.QueryString("Action")
Select Case Action
Case "EditTeacher"
'Response.Write(Action)
Call EditTeacher()
Case Else
server.Transfer("Admin_Teacher.asp?action=showlist")
End Select
sub EditTeacher()
Dim Edit_Teacher_sql,Edit_Teacher_rs
'Call OpenConn()
Edit_Teacher_sql="select * from [teacher] where teacher_id='"&request.QueryString("teacher_id")&"'"
Set Edit_Teacher_rs=server.CreateObject("adodb.recordset")
Edit_Teacher_rs.open Edit_Teacher_sql,Initialize_Conn,1,3
%>
<!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_Teacher.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>
<script language="javascript">
function CheckMyForm()
{
if(theForm.teacher_name.value == '') {
alert('请输入辅导员的名称！');
theForm.teacher_name.focus();
return false;
}
if (theForm.teacher_pass.value == '')
{
alert("请输入教师的密码！");
theForm.teacher_pass.focus();
return false;
}
if (theForm.teacher_pass.value!=theForm.teacher_pass2.value)
{
alert("两次密码输入不一致，请重新输入！");
theForm.teacher_pass.focus();
return false;
}
if (theForm.teacher_pass.value.length<6)
{
alert("密码长度至少为6位，请重新输入！");
theForm.teacher_pass.focus();
return false;
}
if (theForm.own_class_num.value!='' && (isNaN(theForm.own_class_num.value) || theForm.own_class_num.value<0))
{
alert("所管理的班级数目应填有效数字！");
theForm.own_class_num.value="";
theForm.own_class_num.focus();
return false;
}
if (theForm.department_id.value == '')
{
alert("请选择辅导员所在的院系！");
theForm.department_id.focus();
return false;
}
}
//-->
</script>
</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"><%call showTeacherMenu()%></td>
<td> </td>
</tr>
<tr>
<td height="62"> </td>
<td align="center" colspan="2" rowspan="2">
<form name="theForm" id="demo" onSubmit="return CheckMyForm()" method="post" action="Admin_Teacher.asp?action=addTeacher">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="31%" height="35"><div align="right">辅导员姓名：</div></td>
<td align="center" width="34%"><input value="<%=(Edit_Teacher_rs("teacher_name"))%>" type="text" name="teacher_name" onkeyup="value=value.replace(/[ -~]/g,'')" onkeydown="if(event.keyCode==13)event.keyCode=9"/></td>
<td width="35%"><div align="left"><font color="red">*</font> 必填项目,只允许使用中文</div></td>
</tr>
<tr>
<td height="32"> <div align="right">密码：</div></td>
<td align="left"><input value="<%=(Edit_Teacher_rs("teacher_pass"))%>" type="password" name="teacher_pass" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9"/></td>
<td><div align="left"><font color="red">*</font> 必填 </div></td>
</tr>
<tr>
<td height="26"><div align="right">确认密码：</div></td>
<td align="left"><input value="<%=(Edit_Teacher_rs("teacher_pass"))%>" type="password" name="teacher_pass2" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9" /></td>
<td><div align="left"><font color="red">*</font> 必填 </div></td>
</tr>
<tr>
<td height="37"><div align="right">所在院系：</div></td>
<td align="left"><select name="department_id">
<option value="">请选择教师所在院系</option>
<% call chooseDepart()%>
<%
'if Form_State=1 then
' response.Write("<option value="""">请选择教师所在院系</option>")
' call SelectDepartment()
' end if
%>
</select>
<!--input value="< \ if Form_State=1 then response.Write(Edit_department_rs(4)) \>" type="text" name="class_num" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9"/--></td>
<td><div align="left"><font color="red">*</font> 必填 </div></td>
</tr>
<tr>
<td height="31"><div align="right">管理班级数目：</div></td>
<td><input value=<% = (Edit_Teacher_rs("own_class_num")) %> type="text" name="own_class_num" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9"/></td>
<td><div align="left">* 选填,只允许使用数字</div></td>
</tr>
<tr>
<td height="31"><div align="right">
<input type="submit" name="Submit" value="完成编辑" />
<input type="hidden" name="Edit_model" value="1">
<input type=hidden name=teacher_id value=<%=Edit_teacher_rs(0)%>)
</div></td>
<td align="center"><input type="reset" name="Submit2" value="重新填写" /></td>
<td align="center"> </td>
</tr>
</table>
</form>
</td>
<td> </td>
</tr>
<tr>
<td height="129"> </td>
<td> </td>
</tr>
<tr>
<td height="153"> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<%end sub
'显示 院系管理 管理页面的顶部 公共菜单****************************
sub showTeacherMenu()
response.Write("<div align=""center""><font color=""red"">【</font><a href=""Admin_Teacher.asp"">添加辅导员</a><font color=""red"">】</font> <font color=""red"">【</font><a href=""Admin_Teacher.asp?action=showlist"">辅导员管理</a><font color=""red"">】</font> <font color=""red"">【</font><a href=""Admin_Teacher.asp?Action=SearchTeacher"">搜索辅导员</a><font color=""red"">】<hr width=""420""></div>")
end sub
'选择院系*********************************************
Sub chooseDepart()
'call OpenConn()
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
Do while not SelectDepartment_rs.eof
response.Write("<option value="&SelectDepartment_rs(0)&">"&SelectDepartment_rs(1)&"</option>")
SelectDepartment_rs.movenext()
Loop
SelectDepartment_rs.close
Set SelectDepartment_rs=nothing
'Call CloseConn()
End Sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?