📄 edituser.asp
字号:
call bq()
response.end
end if
rsedit("question")=question
if answer<>"" then
rsedit("answer")=md5(answer)
end if
if password<>"" then
rsedit("Password")=md5(password)
Response.Cookies(l_url&"feiyue")("Password")= md5(password)
end if
rsedit.update
response.redirect "edituser.asp?action=ok"
end sub
sub editbasic()
%>
<center>
<table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>
<form method="POST" action="edituser.asp?action=edit" name="form1"> <tr valign="baseline" >
<td nowrap class=tdc1 colspan="2" <%=tColor%> height="23" align="center" valign="middle">基本资料修改</td>
</tr>
<tr>
<td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="25">
出生日期</td>
<td width="82%" bgcolor=<%=tColor2%> class=tdc height="23">
<select size="1" name="cyear" class="bdtj3">
<option value="">-</option>
<%for i=1949 to 2005%>
<option value="<%=i%>" <%if not isnull(rsedit("h_birder")) and isdate(rsedit("h_birder")) then %>
<%if cint(year(rsedit("h_birder")))=cint(i) then response.write "selected"%><%end if%>><%=i%></option>
<%next%>
</select>
年
<select size="1" name="cmonth" class="bdtj3">
<option value="">-</option>
<%for i=1 to 12%>
<option value="<%=i%>" <%if not isnull(rsedit("h_birder")) and isdate(rsedit("h_birder")) then%><%if cint(month(rsedit("h_birder")))=cint(i) then response.write "selected"%><%end if%>><%=i%></option>
<%next%>
</select>
月
<select size="1" name="cday" class="bdtj3">
<option value="">-</option>
<%for i=1 to 31%>
<option value="<%=i%>" <%if not isnull(rsedit("h_birder")) and isdate(rsedit("h_birder")) then%><%if cint(day(rsedit("h_birder")))=cint(i) then response.write "selected"%><%end if%>><%=i%></option>
<%next%>
</select>
日
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right"bgcolor=<%=tColor2%> class=tdc height="25">
性别:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="radio" name="sex" value=男 <% if rsedit("sex")="男" then response.write"checked" end if%>>男<input type="radio" name="sex" value=女 <% if rsedit("sex")="女" then response.write"checked" end if%> >女
</td>
</tr>
<%face=rsedit("face")%>
<tr valign="baseline" >
<td nowrap align="right"bgcolor=<%=tColor2%> class=tdc height="25"><img id=face src="<%=face%>" alt="头像">头像
:</td>
<td height="19" bgcolor=<%=tColor2%> class=tdc>
<select name="face" onChange="document.images['face'].src=options[selectedIndex].value;" class="bdtj3">
<%
for i=1 to cpbface
Response.Write "<option "
facestr=cpbfaces&""&cpbfacestitle&"" & i & ""&cpbfaceslb
if facestr=rsedit("face") then Response.Write "selected "
Response.Write "value='" & facestr &"'>头像" &i &"</option>"
next%>
</select> <a href=headface.asp target=_blank>查看头像列表</a>
</td>
</tr>
<tr>
<td bgcolor=<%=tColor2%> class=tdc align="right" class=tdc height="25"><%if rsedit("imghead")<>"" then
response.write("<img src="""&rsedit("imghead")&""" width="&rsedit("imgwidth")&" height="&rsedit("imgheight")&" name=""imgheadfy"">")
else
response.write("<img src="""" width=0 height=0 name=""imgheadfy"">")
end if%>自定义头像
:</td>
<td bgcolor=<%=tColor2%> class=tdc> <iframe marginwidth=0 framespacing=0 marginheight=0 frameborder=0 width='100%' height=25 src="uploadface.asp"></iframe>
<input type="text" name="imghead" size="40" class="bdtj" value=<%=rsedit("imghead")%>>(自定义头像路径,如果不定义请留空)<input type="button" name="Submit2" value="预览" onClick="imghead1()" class=bdtj3><BR>
头像宽度:<input type="text" name="imgwidth" size="3" class="bdtj" value=<%=rsedit("imgwidth")%>>(最大不超过120)
<BR> 头像高度:<input type="text" name="imgheight" size="3" class="bdtj" value=<%=rsedit("imgheight")%>>(最大不超过120)
</td>
</tr>
<tr >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">签名: </td>
<td bgcolor=<%=tColor2%> class=tdc height="56">
<textarea name="sign" cols="50" rows="8" wrap="VIRTUAL" class="bdtj3"><%=rsedit("sign")%></textarea>(不超过250个字符)
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" height="25" bgcolor=<%=tColor2%> class=tdc>
</td>
<td height="18" bgcolor=<%=tColor2%> class=tdc valign=middle>
<input type="submit" value="修改用户信息" name="submit" class=bdtj>
</td>
</tr>
</form>
</table>
<%end sub
sub editlink()%>
<center>
<table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>
<form method="POST" action="edituser.asp?action=editlink1" name="form1"> <tr valign="baseline" >
<td nowrap class=tdc1 colspan="2" <%=tColor%> height="23" align="center" valign="middle">联系资料修改</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">邮件:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="text" name="email" size="32" class="bdtj3" value="<%=rsedit("email")%>">
</td>
</tr>
<tr>
<td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22" >
是否显示Email</td>
<td width="82%" bgcolor=<%=tColor2%> class=tdc height="23">
<input type="radio" name="openemail" value="0" <% if rsedit("u_todaytime")="0" then response.write"checked" end if%>>显示<input type="radio" name="openemail" value="1" size="20" <% if rsedit("u_todaytime")="1" then response.write"checked" end if%>>不显示
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">OICQ:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="text" name="qq" size="12" class="bdtj3" value="<%=rsedit("qq")%>">
</td>
</tr>
<tr valign="baseline" b>
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">MSN:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="text" name="msn" size="32" class="bdtj3" value="<%=rsedit("msn")%>">
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">来自:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="text" name="address" size="20" class="bdtj3" value="<%=rsedit("address")%>">
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">主页:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="text" name="home" size="32" class="bdtj3" value="<%=rsedit("home")%>">
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" height="25" bgcolor=<%=tColor2%> class=tdc>
</td>
<td height="18" bgcolor=<%=tColor2%> class=tdc valign=middle>
<input type="submit" value="修改用户信息" name="submit" class=bdtj>
</td>
</tr>
</form>
</table>
<%end sub
sub editpw()%>
<center>
<table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>
<form method="POST" action="edituser.asp?action=editpw1" name="form1"> <tr valign="baseline" >
<td nowrap class=tdc1 colspan="2" <%=tColor%> height="23" align="center" valign="middle">用户密码修改</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">旧密码:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="password" name="oldpassword" size="20" class="bdtj3">
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">新密码:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="password" name="password" size="20" class="bdtj3">(不能超过18位,最少6位,若不修改密码请留空)
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">确认新密码:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="password" name="newpassword" size="20" class="bdtj3">(不能超过18位,最少6位,若不修改密码请留空)
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">
问题:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="text" name="question" size="50" class="bdtj3" value="<%=rsedit("question")%>">(100字内)
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="25">
答案:</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<input type="text" name="answer" size="50" class="bdtj3">(200字内,若不修改请留空)
</td>
</tr>
<tr valign="baseline" >
<td nowrap align="right" height="25" bgcolor=<%=tColor2%> class=tdc>
</td>
<td height="18" bgcolor=<%=tColor2%> class=tdc valign=middle>
<input type="submit" value="修改用户信息" name="submit" class=bdtj>
</td>
</tr>
</form>
</table>
<%end sub
sub ok()
succmsg="<LI>更新成功！请记住你的新资料</LI><li><a href=userindex.asp>返回控制面板首页</li>"
call succ(succmsg)
end sub
set rsedit=nothing%><%
end if
end if%><!--#include file="bq.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -