📄 stupuser.asp
字号:
<%if session("pwd")<>"" then%>
<!--#include file="inc/conn1.asp"-->
<%
id=trim(Request.querystring("id"))
sqlcmd = ("select * from user where id="&id) '查询id(ID号)这条记录
rs.Open sqlcmd,newconn,1,1
session("xh")=rs("xh")
session("return")="checklogin.asp"
%>
<!-- #include file="inc/top.asp" -->
<!-- #include file="inc/stumenu.asp" -->
<table width="768" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><br><form method="POST" action="modify.asp">
<table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="24%" height="25" align="center">班级</td>
<td width="16" height="25"></td>
<td width="225" height="25"><select name=bj>
<%
sqlbj="select * from bjb order by bj"
set rsr=newconn.execute(sqlbj)
do while not rsr.eof
%>
<option size="10"><%=rsr("bj")%></option>
<%
rsr.movenext
loop
rsr.Close
set rsr=nothing
%></select>
</td>
</tr>
<tr>
<td align="center">学号</td>
<td width="16" height="25"> </td>
<td width="225" height="25"><%=rs("xh")%>
<input type="hidden" name="xh" size="25" maxlength="30" class="editbox1" value="<%=rs("xh")%>"></td>
</tr>
<tr>
<td height="25" align="center">姓名</td>
<td width="16" height="25"></td>
<td width="225" height="25">
<input name="xm" size="25" maxlength="40" class="editbox1" value="<%=rs("xm")%>">
</td>
</tr>
<tr>
<td height="25" align="center">密码</td>
<td width="16" height="25"></td>
<td width="225" height="25">
<input type="password" name="mm" size="25" class="editbox1" value="<%=rs("mm")%>">
</td>
</tr>
<tr>
<td height="25" align="center">验证密码</td>
<td width="16" height="25"></td>
<td width="225" height="25">
<input type="password" name="mm1" size="25" class="editbox1" value="<%=rs("mm")%>">
</td>
</tr>
<tr>
<td height="25" align="center">性别</td>
<td width="16" height="25"></td>
<td width="225" height="25">
<input type=radio name=sex value=男<%if rs("sex")="男" or rs("sex")="" then response.write(" checked")%>>男
<input type=radio name=sex value=女<%if rs("sex")="女" then response.write(" checked")%>>女
</td>
</tr>
<tr>
<td height="25" align="center">取回密码提问</td>
<td width="16" height="25"></td>
<td width="225" height="25"><input name="question" size="25" maxlength="20 class="editbox1" value="<%=rs("question")%>">
</td>
</tr>
<tr>
<td height="25" align="center">取回密码答案</td>
<td width="16" height="25"></td>
<td width="225" height="25"><input name="answer" size="25" maxlength="20" class="editbox1" value="<%=rs("answer")%>">
</td>
</tr>
<tr>
<td height="25" align="center">住址</td>
<td width="16" height="25"></td>
<td width="225" height="25"><input name="addr" size="25" maxlength="100" class="editbox1" value="<%=rs("addr")%>">
</td>
</tr>
<tr>
<td height="25" align="center">邮编</td>
<td width="16" height="25"></td>
<td width="225" height="25"><input name="yb" size="25" maxlength="100" class="editbox1" value="<%=rs("yb")%>">
</td>
</tr>
<tr>
<td height="25" colspan="3">
<div align="center">
<input class=bottom name=B12 type=submit value="修改记录">
<input class=bottom name=B22 type=reset value="重新填写">
<input type="hidden" name="id" value="<%=rs("id")%>">
<input type="hidden" name="kind" value="1">
</div></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<!--#include file="inc/copyr.asp"-->
<%
end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -