📄 updateuser.asp
字号:
<!--#include file="inc/CONN.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Dim tempname(1)
tempname(0)=request("username")
tempname(1)=request.cookies("satellite")("username")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/style.css"-->
<script language=javascript src="inc/js.inc"></script>
<title>修改资料</title>
</head>
<body <%=skin(13)%>>
<%if request("action")="save" then
dim temp(12)
for i=1 to 12
temp(i)=trim(request.form(i))
for j=0 to ubound(split(cfg(11),"|"))
if instr(temp(i),trim(split(cfg(11),"|")(j)))<>0 then errs="不要填写不文明字词或空格、特殊字符\n\n"
next
next
if temp(4)="" or temp(5)="" or temp(6)="" then errs=errs+"带星号的必须填写\n\n"
if len(temp(3))<3 then errs=errs+"用户密码长度为3-15位\n\n"
if instr(temp(6),"@")<=1 then
errs=errs+"信箱填写错误：缺@\n\n"
else
aemail=right(temp(6),len(temp(6))-instr(temp(6),"@"))
bemail=right(temp(6),len(temp(6))-instr(temp(6),"."))
if len(aemail)<=1 or instr(aemail,".")=0 or len(bemail)<=1 then errs=errs+"信箱填写错误\n\n"
end if
if Lcase(temp(8))="http://" then temp(8)=""
if temp(8)<>"" and Lcase(left(temp(8),7))<>"http://" then errs=errs+"主页URL必须以http://开头\n\n"
if Lcase(temp(9))="http://" then temp(9)=""
if temp(9)<>"" then
if Lcase(left(temp(9),7))<>"http://" then errs=errs+"BannerURL必须以http://开头\n\n"
if Lcase(right(temp(9),4))<>".jpg" and Lcase(right(temp(9),4))<>".gif" and Lcase(right(temp(9),4))<>".swf" then errs=errs+"Banner的格式只能是jpg/gif/swf\n\n"
if not isnumeric(temp(11)) or not isnumeric(temp(12)) then errs=errs+"Banner大小必须填写数字\n\n"
if int(temp(11))>468 or int(temp(12))>60 then errs=errs+"Banner大小不能超过468*60"
temp(9)=temp(9)&","&temp(11)&","&temp(12)
end if
if errs<>"" then
response.write "<script language=javascript>alert( """&errs&""");"&Chr(13)&"location.href=""javascript:history.back()"";</script>"
response.end
end if
If len(temp(3))<>16 Then temp(3)=md5(temp(3))
If len(temp(5))<>16 Then temp(5)=md5(temp(5))
set rs=server.createobject("adodb.recordset")
rs.open "select userid,username,usersex,userpass,question,answer,usermail,userhpgname,userhpgurl,bannerurl from [user] where username ='"&tempname(0)&"'",conn,1,3
for j=1 to 9
rs(j)=temp(j)
'response.Write rs(j)&temp(j)&"<BR>"
next
rs.update
rs.close
response.write "<script language=javascript>window.opener.location.reload();"&chr(13)&"alert( ""恭喜 ！修改成功 ！"");"&Chr(13)&"location.href=""javascript:window.close()"";</script>"
respons.end
else
If Not request.cookies("satellite")("user") or tempname(0)<>tempname(1) then
response.write "<script language=javascript>alert( ""非法操作"");"&Chr(13)&"location.href=""javascript:window.close()"";</script>"
response.end
else
Set rs=conn.execute("select userid,username,usersex,userpass,question,answer,usermail,userhpgname,userhpgurl,bannerurl from [user] where username='"&tempname(0)&"'")
End if
%>
<BR>
<table align=center border=1 bordercolor=<%=skin(11)%> cellpadding=3 cellspacing=0 width="480">
<form name=reg action="updateuser.asp?action=save" method=post onsubmit="submitonce(this)">
<tr align="center" class=titlestyle>
<Td colspan=2><B>填写注册信息</b></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center width="25%">注册名<BR> </td>
<td width="75%"><%=tempname(0)%><input name=UserName type=hidden maxlength=12 size=25 value="<%=tempname(0)%>"></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>性别<Br> </td>
<td><input name=UserSex type=radio class=noborder value=0 <%If rs(2)=0 Then response.Write " checked"%>>
男
<input name=UserSex type=radio value=1 class=noborder <%If rs(2)=1 Then response.Write " checked"%>>
女</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>密码<BR> </td>
<td><input name=UserPass type=text maxlength=15 size=25 style="ime-mode:disabled" onpaste="return false" value="<%=rs(3)%>">
<font color=<%=skin(8)%>>*</font> 3-15位，不修改请保留</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center width="29%">密码提示<BR> </td>
<td width="71%"><input name=Question type=text maxlength=16 size=25 value="<%=rs(4)%>">
<font color=<%=skin(8)%>>*</font> 用于找回密码。</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>提示答案<BR> </td>
<td><input name=Answer type=text maxlength=15 size=25 value="<%=rs(5)%>">
<font color=<%=skin(8)%>>*</font> 答案，不修改请保留</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>常用信箱<BR> </td>
<td><input name=Usermail type=text maxlength=36 size=25 value="<%=rs(6)%>">
<font color=<%=skin(8)%>>*</font> 用于接受注册资料 </td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>主页名</td>
<td><input name=Userhpgname type=text maxlength=16 size=25 value="<%=rs(7)%>">
长度 < 16</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>主页地址</td>
<td><input name=Userhpgurl type=text maxlength=80 size=25 value="<%=rs(8)%>">
必须以http://开头</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>banner图片</td>
<td><input name=banner type=text maxlength=80 size=25 value="<%=split(rs(9),",")(0)%>">
格式 jpg/gif/swf </td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>留言本风格</td>
<td><select name=skinid id=skinid><option value="<%=cfg(8)%>">默认风格</option>
<%set rs2=conn.execute("select skinid,skinname from skin where skinid<>"&cfg(8)&" order by skinid asc")
do until rs2.eof
response.write "<option value="&rs2(0)&">"&rs2(1)&"</option>"
rs2.movenext
loop
rs2.close%></select> <input name=view type=button value="预览" onclick="javascript:window.open('index.asp?username=<%=tempname(0)%>&skinid='+skinid.options[skinid.selectedIndex].value)">
</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>banner大小</td>
<td>宽度<input name=bannerwidth type=text maxlength=3 size=4 style="ime-mode:disabled" onpaste="return false" value="<%=split(rs(9),",")(1)%>"> 1-468 高度<input name=bannerheight type=text maxlength=2 size=4 style="ime-mode:disabled" onpaste="return false" value="<%=split(rs(9),",")(2)%>"> 1-60
</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center></td>
<td> </td>
</tr>
<tr bgcolor=<%=skin(4)%>>
<Td colspan=2 align=center><INPUT name=submit type=submit value=修改>
<INPUT name="reset" type=reset value="关闭" title=关闭窗口 onclick="javascript:window.close()"></td>
</tr>
<%rs.close%>
</form>
</table>
<%end if%>
<!--#include file="inc/foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -