📄 admin_editerteacher.asp
字号:
<!--#include file="include/conn.asp"-->
<html>
<head>
<link rel="stylesheet" href="inc/css.css" type="text/css" />
<title>学生成绩管理系统</title></head>
<body>
<%
dim ID,ww,ins_name
ID=request.QueryString("id")
ww="select * from teacher where id="&ID
rs.open ww,conn,1,1
%>
<form name="form1" method="post" action="">
<table width="550" border=0 align=center cellpadding=2 cellspacing=1 bordercolor="#799AE1" class=tableBorder>
<tbody>
<tr>
<th colspan=2 align=center style="height: 23px">
<div align="center">
修改教师基本资料</div></th>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="2" align="left" bgcolor="#DEE5FA" class=txlrow> </td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td width="192" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">编号：</div></td>
<td colspan="-4" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<input name="t_id" type="text" id="t_id" value="<%=rs("t_id")%>" size="10">
</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">用户名：</div></td>
<td colspan="-4" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<input name="t_usename" type="text" id="t_usename" value="<%=rs("t_usename")%>" size="15">
</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">登陆密码：</div></td>
<td colspan="-4" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<input name="t_password" type="text" id="t_password" value="<%=rs("t_password")%>" size="15">
</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">姓名：</div></td>
<td colspan="-4" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<input name="t_name" type="text" id="t_name" value="<%=rs("t_name")%>" size="15" >
</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">性别：</div></td>
<td colspan="-4" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">
<input name="sex" type="radio" value="男" <%if rs("t_sex")="男" then response.write "checked " end if%>>
男
<input type="radio" name="sex" value="女" <%if rs("t_sex")="女" then response.write "checked " end if%>>
女</div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">职称：</div></td>
<td colspan="-4" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left"><span class="txlrow">
<select name="jcheng">
<option <%if rs("t_jcheng")="研究生" then response.write "selected=selected" end if%> value="研究生">研究生</option>
<option <%if rs("t_jcheng")="讲师" then response.write "selected=selected" end if%> value="讲师">讲师</option>
<option <%if rs("t_jcheng")="教授" then response.write "selected=selected" end if%> value="教授">教授</option>
<option <%if rs("t_jcheng")="副教授" then response.write "selected=selected" end if%> value="副教授">副教授</option>
<option <%if rs("t_jcheng")="博士" then response.write "selected=selected" end if%> value="博士">博士</option>
</select>
</span></div></td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">所属学院：</div></td>
<td colspan="-4" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left"><span class="txlrow">
<input name="ins" type="text" id="ins" value="<%=rs("ins_name")%>" size="20">
<%
rs.close
set rs=nothing
%>
查看：
<select name="institute">
<option selected value="">所有学院</option>
<% dim p
set rs=server.CreateObject("adodb.recordset")
p="select * from institute order by ins_id "
rs.open p,conn,3,3
do while not rs.eof
response.write"<option value="& rs("ins_name")& ">" & rs("ins_name")&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</span></div></td>
</tr>
<tr bgcolor="#DEE5FA">
<td align="center" class="txlrow"><p>
<label></label>
</p> </td>
<td width="345" colspan="-4" align="center" bgcolor="#DEE5FA" class="txlrow"><div align="left">
<input type="submit" name="Submit" value="修改">
<input type="reset" name="Submit2" value="重置">
<a href="javaScript:history.go(-1);"> 返回</a></div></td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="2" align="left" class="txlrow"> </td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan=2 align=center class=txlrow></td>
</tr>
</tbody></table>
</FORM>
<%
dim s,t_id,usename,paw,t_name,t_sex,t_jcheng,t_ins
t_id=request.form("t_id")
paw=request.form("t_password")
usename=request.form("t_usename")
t_name=request.form("t_name")
t_sex=request.form("sex")
t_jcheng=request.form("jcheng")
t_ins=request.form("ins")
if request.form("submit")="修改" then
if t_id="" or paw="" or usename="" or t_name="" or t_sex="" or t_jcheng="" or t_ins="" then
response.write "<script> alert('输入框不能留空!');</script>"
else
set rs=server.CreateObject("adodb.recordset")
s="select * from teacher where id="&ID
rs.open s,conn,3,3
rs("t_id")=t_id
rs("t_password")=paw
rs("t_usename")=usename
rs("t_name")=t_name
rs("t_sex")=t_sex
rs("t_jcheng")=t_jcheng
rs("ins_name")=t_ins
rs.update
response.write "<script> alert('修改成功!');location.href='/admin_addteacher.asp';</script>"
end if
end if
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -