📄 reg_modify.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!-- #include file="conn_member.asp" -->
<!-- #include file="inc_session.asp" -->
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>帐户管理 - 修改个人资料</title>
<link rel="stylesheet" type="text/css" href="../main.css">
</head>
<body bgcolor="#FFFFFF">
<SCRIPT language=JavaScript src="../include/header.inc" type=text/javascript></SCRIPT>
<div align="center">
<center>
<p><font size="3"><b>修改个人资料</b></font></p>
<p></p>
<table border="0" width="760" cellspacing="0">
<tr>
<td width="100%">请填写下面的表格，其中带星号<font color="#FF0000">(*)</font>的项目<font color="#FF0000">必须填</font>：<br>
</td>
</tr>
</table>
<table border="0" width="760" cellspacing="1" bgcolor="#687088">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<%
dim uid
uid=GetSession()
if uid="" then
Response.Write "<h3>对不起，请先登录！</h3>"
Response.Write "<p><a href='#' onclick='vbscript:history.back()' >back</a></p>"
Response.End
end if
Dim Rs
set Rs=Server.CreateObject ("ADODB.Recordset")
Rs.Open "SELECT * FROM tmember WHERE uid='" & uid & "'",connm,3 ,3
if Rs.BOF and Rs.EOF then
Response.Write "<h3>没有用户" & uid & "的资料！</h3>"
Response.Write "<p><a href='#' onclick='vbscript:history.back()' >back</a></p>"
else
%>
<!-- Form Start -->
<form method="POST" action="reg_SAVEINFO.ASP" ID="Form1">
<table border="0" width="100%" cellspacing="1" height="575" ID="Table1">
<tr>
<td width="32%" bgcolor="#EFEFEF" align="right" height="23">用户名：</td>
<td width="68%" bgcolor="#EFEFEF" height="23"><b><%=uid%></b>
<input type="hidden" name="uid" value="<%=uid%>" ID="Hidden1">
<input type="hidden" name="AddNew" value="0" ID="Hidden2">
</td>
</tr>
<tr>
<td width="32%" align="right" height="25">密码<font color="#FF0000">(*)</font>：</td>
<td width="68%" height="25"><input type="password" name="pwd" size="20" ID="Password1" value="<%=rs("pwd")%>">(4~10个字母) <font color="#A00000">注：请不要使用重要的密码。</font></td>
</tr>
<tr>
<td width="32%" align="right" height="25">再次输入密码<font color="#FF0000">(*)</font>：</td>
<td width="68%" height="25"><input type="password" name="pwdconfirm" size="20" ID="Password2" value="<%=rs("pwd")%>"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">Email<font color="#FF0000">(*)</font>：</td>
<td width="68%" height="25"><input type="text" name="email" size="20" ID="Text1" value="<%=rs("email")%>"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">个人主页：</td>
<td width="68%" height="25"><input type="text" name="homepage" size="20" ID="Text2" value="<%=rs("homepage")%>"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">OICQ：</td>
<td width="68%" height="25"><input type="text" name="icq" size="20" ID="Text3" value="<%=rs("qq")%>"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">MSN：</td>
<td width="68%" height="25"><input type="text" name="msn" size="20" ID="Text4" value="<%=rs("msn")%>"></td>
</tr>
<tr>
<td width="32%" align="right" bgcolor="#EFEFEF" height="25">真实姓名：</td>
<td width="68%" bgcolor="#EFEFEF" height="25"><input type="text" name="realname" size="20" ID="Text5" value="<%=rs("realname")%>"></td>
</tr>
<tr>
<td width="32%" align="right" bgcolor="#EFEFEF" height="27">性别：</td>
<td width="68%" bgcolor="#EFEFEF" height="27">
<% if rs("sex")=1 then %>
<input type="radio" value=1 checked name="sex" ID="Radio1">男<img border="0" src="images/s_boy.gif">
<input type="radio" name="sex" value=0 ID="Radio2">女<img border="0" src="images/s_girl.gif">
<%else%>
<input type="radio" value=1 name="sex" ID="Radio3">男<img border="0" src="images/s_boy.gif">
<input type="radio" name="sex" value=0 checked ID="Radio4">女<img border="0" src="images/s_girl.gif">
<%end if%>
</td>
</tr>
<tr>
<td width="32%" align="right" valign="bottom" height="92" bgcolor="#EFEFEF">头像：
<br><font color="#BBBBBB">原资料是：<%= left(rs("portrait"),3) %></font>
</td>
<td width="68%" bgcolor="#EFEFEF" height="92">
<table border="0" cellspacing="0" height="90" width="100%" ID="Table2">
<tr>
<td width="49" valign="bottom">
<select size="1" name="lstPortrait" onChange="JavaScript:document.images['face'].src=options[selectedIndex].value;" ID="Select1">
<%
dim i
dim sTmp
for i=1 to 37
sTmp=right("000" & cstr(i),3)
response.write "<option value='images/portrait/" & sTmp & ".gif'>" & sTmp & "</option>" & vbcrlf
next
%>
</select>
</td>
<td width="110"><img id=face src="images/portrait/001.gif">
</td>
<td width="155" valign="bottom"><a href="reg_viewportrait.asp" target="_blank">浏览...</a>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="32%" align="right" valign="middle" height="80" bgcolor="#EFEFEF">自定义头像：</td>
<td width="68%" bgcolor="#EFEFEF" height="80">
<input type="text" name="userPortrait" size="33" ID="Text6" value="<%=rs("userPortrait")%>">
请填入完整的 URL<br>
<br>
图象的尺寸不能超过 100
*100
</td>
</tr>
<tr>
<td width="32%" align="right" height="25">生日：
<br><font color="#BBBBBB">原资料是：<%=rs("birthday")%></font>
</td>
<td width="68%" height="25">
<select size="1" name="lstYear" ID="Select2">
<%
for i=1900 to 2100
if i=1980 then
Response.Write "<option selected value='" & i & "'>" & i & "</option>" & vbcrlf
else
Response.Write "<option value='" & i & "'>" & i & "</option>" & vbcrlf
end if
next
%>
</select>年
<select size="1" name="lstMonth" ID="Select3">
<%
for i=1 to 12
Response.Write "<option value='" & i & "'>" & i & "</option>" & vbcrlf
next
%>
</select>月
<select size="1" name="lstday" ID="Select4">
<%
for i=1 to 31
Response.Write "<option value='" & i & "'>" & i & "</option>" & vbcrlf
next
%>
</select>日
</td>
</tr>
<tr>
<td width="32%" align="right" height="25">职业：</td>
<td width="68%" height="25"><input type="text" name="lstCareer" size="20" ID="Text7" value="<%=rs("Career")%>"></td>
</tr>
<tr>
<td width="32%" align="right" height="25">来自：</td>
<td width="68%" height="25"><input type="text" name="lstComeFrom" size="20" ID="Text8" value="<%=rs("comefrom")%>"></td>
</tr>
<tr>
<td width="32%" align="right">简介(200字以内)：</td>
<td width="68%"><textarea rows="4" name="txtIntro" cols="40" ID="Textarea1"><%=rs("intro")%></textarea></td>
</tr>
<tr>
<td width="32%" align="right" bgcolor="#EFEFEF">签名(200字以内)：<br>
签名将出现在您发表的文章的结尾处。</td>
<td width="68%" bgcolor="#EFEFEF"><textarea rows="4" name="txtSign" cols="40" ID="Textarea2"><%=rs("sign")%></textarea></td>
</tr>
</table>
<p> </p>
<p align="center"><input type="submit" value="提交咯!" ID="Submit1" NAME="Submit1"></p>
</form>
</td>
</tr>
</table>
</center>
</div>
<%
end if
Rs.Close
set Rs=nothing
call closeconnm()
%>
<p> </p>
<SCRIPT language=JavaScript src="../include/buttom.inc" type=text/javascript></SCRIPT>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -