📄 modify.asp
字号:
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
If Session("SLevel")=0 Then Response.Redirect "Error.asp?Error=5"
State="修改用户信息"
Set rsModify = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tUserManage Where rUserID='"&Session("SUserID")&"'"
rsModify.Open Sql,ConnY,3,3
%>
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>" <%
If rsModify("rPFace")="无" Then
Response.Write "onload='System()'"
Else
Response.Write "onload='UserDo()'"
End If
%>>
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td height="20" bgcolor="<%=Forum_ColorList_BgColor%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
<tr>
<td> 您所在的位置： <a href="../" onFocus="this.blur()">首页</a> >>
<a href="List.asp" onFocus="this.blur()">讨论组</a> >> <font color="<%=Forum_ColorList_NavFontColor%>">修改用户信息</font></td>
<td width="150"></td>
<td width="18">
<div align="center"><img src="<%=Forum_Pic_Open%>" width="15" height="14" border="0" alt="显示个人工具箱" onClick="ShowInfo()" style="CURSOR: hand" id=infoimage align="texttop"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=infoborder style="DISPLAY: none">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" id=info style="DISPLAY: none" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td valign="top" bgcolor="<%=Forum_ColorList_BgColor%>">
<!--#include file="Inc/Tools.asp" -->
</td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" class="font" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr bgcolor="<%=Forum_ColorList_BgColor%>">
<form name="form1" method="post" action="ModifyAction.asp" onsubmit="return vdf('Pass','密码','Rpwd:ConPass','Oicq','OICQ','Rnum','Email','电子信箱','Rmail','From','来自','R','Personality','个性签名','R','PWidth','自定义头像宽度','NinRange0:125','PHeight','自定义头像高度','NinRange0:125');">
<td height="344" valign="top" id=left> <br>
<table width="92%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
<tr bgcolor="<%=Forum_ColorList_TitleColor%>">
<td colspan="2" height="20">
<div align="center">请输入基本信息,带<font color="<%=Forum_ColorList_PFontColor%>">*</font>的为必填项目</div>
</td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">登录帐号</div>
</td>
<td height="22" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="text" name="UserID" size="20" class="Textfiled" value="<%=rsModify("rUserID")%>">
<input type="hidden" name="OldUserID" value="<%=rsModify("rUserID")%>">
</td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">社区昵称</div>
</td>
<td height="22" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="text" name="NickName" size="20" class="Textfiled" value="<%=rsModify("rNickName")%>">
</td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">性 别</div>
</td>
<td height="18" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="radio" name="Sex" value="0" <%If rsModify("rSex")=0 Then Response.Write "checked"%>>
男
<input type="radio" name="Sex" value="1" <%If rsModify("rSex")=1 Then Response.Write "checked"%>>
女
<input type="radio" name="Sex" value="2" <%If rsModify("rSex")=2 Then Response.Write "checked"%>>
保密</td>
</tr>
<tr>
<td height="37" bgcolor="<%=Forum_ColorList_AlternateColor1%>" valign="middle">
<div align="center">头 像</div>
</td>
<td height="37" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="radio" name="UserFace" value="Default" onFocus="this.blur()" checked onClick="System()" <%
If rsModify("rPFace")="无" Then Response.Write "checked" %>>
默认头像
<input type="hidden" name="PFace2" value="无">
<input type="hidden" name="PWidth2" value="0">
<input type="hidden" name="PHeight2" value="0">
<input type="hidden" name="Face2" value="<%=rsModify("rFace")%>">
<br>
<img id=face src="<%=rsModify("rFace")%>" alt=个人形象代表 align="absmiddle">
<select name=Face size=1 onChange="document.images['face'].src=options[selectedIndex].value;" style="BACKGROUND-COLOR: <%=Forum_Css_Textfiled1_BackGroundColor%>; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR:<%=Forum_Css_Textfiled1_FontColor%>">
<%
For I=1 To 160
Response.Write "<option value='Images/Face/Image"&I&".gif'"
If "Images/Face/Image"&I&".gif"=rsModify("rFace") Then Response.Write " selected"
Response.Write ">Image"&I&"</option>"
Next
%>
</select>
<font color="<%=Forum_ColorList_PFontColor%>">*</font> 新增125-160,35个头像. [<a href="javascript:openScript('Face.asp',420,450)" onFocus="this.blur()">查看所有头像列表</a>]
<br>
<input type="radio" name="UserFace" value="UserDo" onFocus="this.blur()" onClick="UserDo()" <%
If rsModify("rPFace")<>"无" Then Response.Write "checked" %>>
自定义头像<br>
自定义头像路径:
<input type="text" name="PFace" size="30" class="Textfiled" value="<%=rsModify("rPFace")%>">
宽:
<input type="text" name="PWidth" size="6" class="Textfiled" value="<%=rsModify("rWidth")%>">
高:
<input type="text" name="PHeight" size="6" class="Textfiled" value="<%=rsModify("rHeight")%>">
限制125*125</td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">出生年月</div>
</td>
<td height="18" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<select name="BirthYear" size="1" class="Textfiled">
<%
For I=1960 To 2002
Response.Write "<option value='"&I&"'"
If I=rsModify("rBirthYear") Then Response.Write " selected"
Response.Write ">"&I&"</option>"
Next
%>
</select>
年
<select name="BirthMonth" size="1" class="Textfiled">
<%
For I=1 To 13
Response.Write "<option value='"&I&"'"
If I=rsModify("rBirthMonth") Then Response.Write " selected"
Response.Write ">"&I&"</option>"
Next
%>
</select>
月
<select name="BirthDay" size="1" class="Textfiled">
<%
For I=1 To 32
Response.Write "<option value='"&I&"'"
If I=rsModify("rBirthDay") Then Response.Write " selected"
Response.Write ">"&I&"</option>"
Next
%>
</select>
日<font color="<%=Forum_ColorList_PFontColor%>">*</font></td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">密 码</div>
</td>
<td height="18" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="password" name="Pass" class="Textfiled" value="<%=rsModify("rPassword")%>">
<font color="<%=Forum_ColorList_PFontColor%>">*</font> 修改密码则直接输入,经过MD5加密,全部转化为16位字符,无须紧张.</td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">确认密码</div>
</td>
<td height="18" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="password" name="ConPass" class="Textfiled" value="<%=rsModify("rPassword")%>">
<font color="<%=Forum_ColorList_PFontColor%>">*</font> </td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">O I C Q</div>
</td>
<td height="18" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="text" name="Oicq" class="Textfiled" value="<%=rsModify("rOicq")%>">
<font color="<%=Forum_ColorList_PFontColor%>">*</font> 不会没有吧?</td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">电子信箱</div>
</td>
<td height="18" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="text" name="Email" class="Textfiled" value="<%=rsModify("rEmail")%>">
<font color="<%=Forum_ColorList_PFontColor%>">*</font> </td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">个人主页</div>
</td>
<td height="18" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="text" name="HomePage" class="Textfiled" value="<%=rsModify("rHomePage")%>">
<font color="<%=Forum_ColorList_PFontColor%>">*</font> 没有保持http://不变.</td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">来 自</div>
</td>
<td height="18" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<input type="text" name="From" class="Textfiled" value="<%=rsModify("rAddress")%>">
<font color="<%=Forum_ColorList_PFontColor%>">*</font> 不会来月球吧.</td>
</tr>
<tr>
<td width="20%" height="18" bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<div align="center">个性签名</div>
</td>
<td height="18" bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<textarea name=Personality rows=5 wrap=PHYSICAL cols=50 style="BACKGROUND-COLOR:<%=Forum_Css_Textfiled1_BackGroundColor%>; BORDER-BOTTOM: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>;BORDER-LEFT: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>; BORDER-RIGHT: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>; BORDER-TOP: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>; COLOR: <%=Forum_Css_Textfiled1_FontColor%>"><%=rsModify("rPersonality")%></textarea>
支持UBB代码.</td>
</tr>
</table>
<div align="center"><br>
<input type="submit" name="Submit" value="马上提交" class="Button_None" onFocus="this.blur()">
<br>
<br>
</div>
</td>
</form>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" id=online bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td valign="top" bgcolor="<%=Forum_ColorList_OnlineColor%>">
<!--#include file="Inc/Online.asp" -->
</td>
</tr>
</table>
<!--#include file="Inc/Bottom.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -