📄 update.asp
字号:
<!-- #include file="conn.asp" -->
<%
ID=request.QueryString("学生ID")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from student where 学生ID='"&ID&"'"
set Rs=conn.execute(sqlstr)
%>
<html>
<head>
<title>修改学生信息网页</title>
</head>
<body>
<p><font face="幼圆" size="3">修改学生信息</font></p>
<form method="POST" action="postupdate.asp">
<input type=hidden name="ID" value=<%=ID%>>
姓名: <input type="text" name="Name" size="20" value="<%=rs("姓名")%>">
<p>性别: <select size="1" name="Sex">
<option <%if rs("性别")="男" then response.write "select" end if%> value="男">男</option>
<option <%if rs("性别")="女" then response.write "select" end if%> value="女">女</option>
</select></p><p>日期: <input type="text" name="Birthday" size="20" value="<%=rs("出生日期")%>">日期格式: 1980-3-9</p>
<p>电话:
<input type="text" name="Tel" size="20" value="<%=rs("电话")%>">
</p>
<p>地址: <input type="text" name="Address" size="20" value="<%=rs("地址")%>"></p>
<p>班级: <select name="GName">
<%
str1="select * from grade"
set rs_stu=conn.execute(str1)
do while not rs_stu.eof
if rs_stu("班级")=rs("班级") then
%>
<option selected><%=rs("班级")%></option>
<%
else
%>
<option><%=rs_stu("班级")%></option>
<%
end if
rs_stu.movenext
loop
rs_stu.close
Set rs_stu=Nothing
%>
</select>
</p>
<p>系别: <select name="bbb">
<%
str1="select * from department"
set rs_stu=conn.execute(str1)
do while not rs_stu.eof
if rs_stu("系别")=rs("系别") then
%>
<option selected><%=rs("系别")%></option>
<%
else
%>
<option><%=rs_stu("系别")%></option>
<%
end if
rs_stu.movenext
loop
rs_stu.close
Set rs_stu=Nothing
%>
</select>
</p>
<br>
<p><input type="submit" value="保存修改" name="B1">
<input type="reset" value="全部重写" name="B2">
<input onClick="document.location.href='xs_student.asp';" type="button" value="返回" name="B3"></a></p>
</form>
<% rs.close
set rs=nothing %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -