📄 update.asp
字号:
<%
if session("user_type")<>"S" then
response.redirect "../../../index.asp"
end if
%>
<%response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<HEAD>
<TITLE>查看或修改个人信息 </TITLE>
<link rel="stylesheet" href="../../../system/all.css">
</HEAD>
<body >
<h4 >  查看或修改个人信息</h4>
<%
dim user_id
user_id =session("user_id")
dim sql,rs
sql="SELECT * FROM student Where user_id = '" & user_id & "'"
SET rs=db.EXECUTE(sql)
'判断ID和密码是否正确
upload_file_name=rs("upload_file_name")
%>
<center>
<TABLE border="0" width=95% >
<form METHOD="POST" ACTION="update2.asp">
<input type="hidden" name="permit" value="<%=rs("permit")%>">
<tr><td width="20%">用户名：</td><td ><%=rs("user_id") %></td></tr>
<tr><td >姓名：</td><td><input type="text" name="user_name" size="15" value='<%=rs("user_name") %>'> </td></tr>
<tr><td >昵称：</td><td><input type="text" name="child_name" size="15" value='<%=rs("child_name") %>'> </td></tr>
<tr><td >密码：</td><td><input type="password" name="password" size="15" value='<%=rtrim(ltrim(rs("password")))%>'> </td></tr>
<tr><td >提示问题：</td><td><input type="text" name="forget_timu" size="30" value='<%=rs("forget_timu") %>'> </td></tr>
<tr><td >提示答案：</td><td><input type="text" name="forget_answer" size="30" value='<%=rs("forget_answer") %>'> </td></tr>
<tr><td >性别：</td><td>
<%if rs("sex")="男" then%>
<input type=radio name="sex" value="男" checked> 男
<input type=radio name="sex" value="女"> 女
<%elseif rs("sex")="女" then%>
<input type=radio name="sex" value="男"> 男
<input type=radio name="sex" value="女" checked> 女
<%else%>
<input type=radio name="sex" value="男"> 男
<input type=radio name="sex" value="女"> 女
<%end if%>
</td></tr>
<tr><td >系别：</td><td><input type="text" name="department" size="15" value='<%=rs("department") %>'> </td></tr>
<tr><td >专业：</td><td><input type="text" name="special" size="30" value='<%=rs("special") %>'> </td></tr>
<tr><td >住址：</td><td><input type="text" name="address" size="30" value='<%=rs("address") %>'> </td></tr>
<tr><td >电话：</td><td><input type="text" name="tel" size="30" value='<%=rs("tel") %>'> </td></tr>
<tr><td >呼机：</td><td><input type="text" name="BP" size="30" value='<%=rs("BP") %>'> </td></tr>
<tr><td >手机：</td><td><input type="text" name="MobileTel" size="30" value='<%=rs("MobileTel") %>'> </td></tr>
<tr><td >E_mail:</td><td><input type="text" name="email" size="45" value='<%=rs("email") %>'> </td></tr>
<tr><td >主页：</td><td><input type="text" name="web" size="30" value='<%=rs("web") %>'> </td></tr>
<tr><td >个人介绍：</td><td><Textarea Name="intro" Rows=3 Cols=45 WRAP=SOFT ><%=rs("intro")%></TextArea></td></tr>
<tr>
<td>个人照片<input type="hidden" name="upload_file_name" value="<%=upload_file_name%>"></td>
<td>
<%
If upload_file_name="" or isnull(upload_file_name) Then
response.write "<p class=zhushi>原来没有照片，现在可以选择添加"
response.write "<p><input type='radio' name='append' value='Y'>需要照片"
response.write "<input type='radio' name='append' value='N' checked >不需要"
Else
Dim upload_file_path
upload_file_path="../../../../uploadfile/users/" & upload_file_name
response.write "<p class=zhushi>原来有照片，可以<a href='"& upload_file_path & "' target='new'>查看照片</a>"
response.write "<p><input type='radio' name='append' value='O' checked>维持原来照片"
response.write "<input type='radio' name='append' value='Y' >更新照片"
response.write "<input type='radio' name='append' value='N' >不需要"
End If
%>
<p>（照片大小最好不要超过300*300）
</td>
</tr>
</table>
<input TYPE="submit" VALUE="确认修改" Size="20">
</form>
</center>
<%
rs.close
set rs=nothing
db.close
set db=nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -