📄 admin_editer_banji.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 banji 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="bj_ID" type="text" id="bj_ID" value="<%=rs("bj_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="bj_name" type="text" id="bj_name" value="<%=rs("bj_name")%>" size="20">
</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="bj_num" type="text" id="bj_num" value="<%=rs("bj_num")%>" size="8">
</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">
<div align="left"> <span class="txlrow">
<select name="zy_name" id="zy_name">
<option selected value="<%=rs("zy_name")%>"><%=rs("zy_name")%></option>
<%
rs.close
set rs=nothing
%>
<% dim p
set rs=server.CreateObject("adodb.recordset")
p="select * from zhuanye order by id "
rs.open p,conn,3,3
do while not rs.eof
response.write"<option value="& rs("zy_name")& ">" & rs("zy_name")&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</span></div> </tr>
<tr bgcolor="#DEE5FA">
<td align="left" class="txlrow"> </td>
<td align="left" class="txlrow"><input type="submit" name="Submit" value="修改">
<input type="reset" name="Submit2" value="取消">
<a href="javaScript:history.go(-1);"> 返回</a></td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan=2 align=center class=txlrow></td>
</tr>
</tbody></table>
</FORM>
<%
dim bj_ID,bj_name,bj_num,zy_name
if request.form("submit")="修改" then
bj_ID=request.form("bj_ID")
bj_name=request.form("bj_name")
bj_num=request.form("bj_num")
zy_name=request.form("zy_name")
if bj_ID="" or bj_name="" or bj_num="" or zy_name="" then
response.write "<script> alert('资料没有填定完整!');</script>"
else
set rs=server.CreateObject("adodb.recordset")
s="select * from banji where id="&ID
rs.open s,conn,3,3
rs("bj_ID")=bj_ID
rs("bj_name")=bj_name
rs("bj_num")=bj_num
rs("zy_name")=zy_name
rs.update
response.write "<script> alert('修改成功!');location.href='admin_banji.asp';</script>"
end if
end if
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -