📄 user_modifyinfo.asp
字号:
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'---------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
Sub editdata()
if session(userVar)<>userVal then
response.write("<script>alert('您还没有登录!\n\n请登录');</script>")
exit sub
end if
if request.form("editdata")<>"" then
nickname=Request.form("nickname")
password1=Request.form("password1")
password2=Request.form("password2")
question=Request.form("question")
answer=Request.form("answer")
face=CInt(Request.form("face"))
sex=Request.form("sex")
qq=Request.form("userqq")
email=Request.form("email")
homepage=Request.form("homepage")
info=Request.form("info")
linkman=Request.form("linkman")
tel=Request.form("tel")
address=Request.form("address")
postalcode=Request.form("postalcode")
if nickname="" then
nickname=username
end if
if ms_submit=0 then
if chkIsOut=false then
showmsg "<font color=""#ff0000"">茂盛系统返回提示信息：</font><br><br>对不起，本站不允许从外部提交数据","系统出错信息"
exit sub
end if
end if
if strLength(password1)>20 then
errormsg=errormsg&"<li>密码长度最长不能大于 <font color=""#ff0000"">20</font> 个字符</li>"
elseif password1<>password2 then
errormsg=errormsg&"<li>两次输入的密码不正确!</li>"
end if
if question="" then
errormsg=errormsg&"<li>密码问题不能为空</li>"
elseif strLength(question)>40 then
errormsg=errormsg&"<li>密码问题最多不能大于 <font color=""#ff0000"">40</font> 个字符</li>"
end if
if strLength(answer)>20 then
errormsg=errormsg&"<li>问题答案最多不能大于 <font color=""#ff0000"">20</font> 个字符</li>"
end if
if qq<>"" then
if Not isNumeric(qq) then
errormsg=errormsg&"<li>填写的QQ号不正确</li>"
elseif (len(qq)<5 or len(qq)>10) then
errormsg=errormsg&"<li>填写的QQ号位数不正确</li>"
end if
end if
if email<>"" then
if IsValidEmail(email)=false then
errormsg=errormsg&"<li>电子邮件填写不正确</li>"
elseif strLength(email)>50 then
errormsg=errormsg&"<li>电子邮件地址最多不能大于 <font color=""#ff0000"">50</font> 个字符</li>"
end if
end if
if strLength(homepage)>100 then
errormsg=errormsg&"<li>主页地址最多不能大于 <font color=""#ff0000"">50</font> 个字符</li>"
end if
if strLength(linkman)>20 then
errormsg=errormsg&"<li>联系人最多不能大于 <font color=""#ff0000"">20</font> 个字符</li>"
end if
if strLength(address)>50 then
errormsg=errormsg&"<li>联系地址最多不能大于 <font color=""#ff0000"">50</font> 个字符</li>"
end if
if strLength(tex)>15 then
errormsg=errormsg&"<li>电话号码最多不能大于 <font color=""#ff0000"">15</font> 个字符</li>"
end if
if strLength(postalcode)>6 then
errormsg=errormsg&"<li>邮政编码最多不能大于 <font color=""#ff0000"">6</font> 个字符</li>"
end if
if errormsg<>"" then
showmsg errormsg,"出错信息"
exit sub
end if
sql="select * from ms_user where user_name='"&userInfo(1)&"'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,3
if password1<>"" then
rs("user_password")=md5(password1)
end if
rs("user_question")=chkFormStr(question)
if answer<>"" then
rs("user_answer")=md5(answer)
end if
rs("face")=chkFormStr(face)
rs("sex")=chkFormStr(sex)
rs("qq")=chkFormStr(qq)
rs("linkman")=chkFormStr(linkman)
rs("tel")=chkFormStr(tel)
rs("address")=chkFormStr(address)
rs("email")=chkFormStr(email)
rs("homepage")=chkFormStr(homepage)
rs("postalcode")=chkFormStr(postalcode)
rs("info")=htmlencode(info)
rs.update
rs.close
set rs=Nothing
showmsg "恭喜恭喜，资料更新成功！","成功信息"
exit sub
end if
sql="select * from ms_user where user_name='"&LCase(userinfo(1))&"'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
%>
<p></p>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="tableBC">
<tr>
<td height="30" valign="middle" align="center" colspan="3" class="tdT"><b>注意：带有<font color=#ff0000>*</font>号为必须填写的</b></td>
</tr>
<form action="" method="post" name="check" id="check">
<tr class="tdBC">
<td width="70" height="25" valign="middle" align="right">用 户 名：</td>
<td valign="middle" colspan="2"> <input name="username" class="wenbenkang" type="text" id="username" value="<%=rs("user_name")%>" readonly size="16" maxlength="12">
<font color=ff0000>*</font> 3-12字符，支持中文,不支持特殊符号如:*%#!-&%$等字符</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">登陆密码：</td>
<td valign="middle" colspan="2"> <input name="password1" class="wenbenkang" size="16" type="password" id="password1" maxlength="16">
不修改请留空</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">确认密码：</td>
<td valign="middle" colspan="2"> <input name="password2" class="wenbenkang" size="16" type="password" id="password2" maxlength="16">
不修改请留空</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">密码问题：</td>
<td valign="middle" colspan="2"> <input name="question" class="wenbenkang" type="text" id="question" size="20" maxlength="40" value="<%=rs("user_question")%>">
<font color=ff0000>*</font> 忘记密码的提示问题;最多40个字符</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">问题答案：</td>
<td valign="middle" colspan="2"> <input name="answer" class="wenbenkang" type="text" id="answer" size="20" maxlength="20">
不修改请留空</td>
</tr>
<tr class="tdBC">
<td height="28" valign="middle" align="right">头 像：</td>
<td valign="middle" width="100">
<select name="face" id="face" onChange="document.images['image'].src='images/userface/'+options[selectedIndex].value+'.gif';">
<script language="javascript">
for(var i=1;i<25;i++){
if(i==<%=rs("face")%>){
document.write("<option value="+i+" selected>头像"+i+"</option>");}
else{
document.write("<option value="+i+">头像"+i+"</option>");}
}
</script>
</select> —→</td>
<td width="300" rowspan="3" valign="top" align="left"><img src="images/userface/<%=rs("face")%>.gif" border="1" alt="用户头像" name="image" width="75" height="75" id="image"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">性 别：</td>
<td valign="middle" width="100">
<%if rs("sex")="男" then%>
<input type="radio" name="sex" value="男" checked>
师哥
<input type="radio" name="sex" value="女">美女
<%else%>
<input type="radio" name="sex" value="男">
师哥
<input type="radio" name="sex" value="女" checked>美女
<%end if%>
</td>
</tr>
<tr class="tdBC">
<td height="26" valign="middle" align="right">用 户QQ：</td>
<td valign="middle" width="100"> <input name="userqq" class="wenbenkang" type="text" value="<%=rs("qq")%>" id="userqq" size="12" maxlength="11"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">个性签名：<br><font color="#ff0000"><br><=300字符 <br>支持Unicode <br>支持UBB <br>不支持HTML </font></td>
<td valign="middle" colspan="2">
<textarea name="info" cols="80" rows="7" class="textkang"><%=rs("info")%></textarea></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">电子邮箱：</td>
<td valign="middle" colspan="2"> <input name="email" class="wenbenkang" value="<%=rs("email")%>" type="text" id="email" size="30"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">个人主页：</td>
<td valign="middle" colspan="2"> <input name="homepage" class="wenbenkang" value=<%=rs("homepage")%> type="text" id="homepage" size="30"></td>
</tr>
<tr align="left" valign="middle">
<td height="22" colspan="3" class="tdT"> >> 您的联系信息</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">联 系 人：</td>
<td valign="middle" colspan="2"> <input name="linkman" class="wenbenkang" value="<%=rs("linkman")%>" type="text" id="linkman" size="30"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">联系电话：</td>
<td valign="middle" colspan="2"> <input name="tel" class="wenbenkang" value="<%=rs("tel")%>" type="text" id="tel" size="30"> 格式如：0770-3270000</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">联系地址：</td>
<td valign="middle" colspan="2"> <input name="address" class="wenbenkang" value="<%=rs("address")%>" type="text" id="address" size="30"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">邮政编码：</td>
<td valign="middle" colspan="2"> <input name="postalcode" class="wenbenkang" value=<%=rs("postalcode")%> type="text" id="postalcode" size="8"></td>
</tr>
<tr align="center" valign="middle">
<td height="25" colspan="3" class="tdT"> <input name="editdata" type="submit" id="editdata" value="资料更新" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'">
<input type="reset" name="Submit2" value="重新填写" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'"></td>
</tr>
</form>
</table>
<%rs.close
set rs=nothing
End Sub
'========================================================
'MaoSin CMS 1.1 Power by maosin.com
'Email: maosin@163.com , maosin@maosin.com
'Web: http://www.maosin.com http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -