⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 editprofile.asp

📁 感谢您使用BBSXP
💻 ASP
字号:
<!-- #include file="Setup.asp" -->
<!-- #include file="inc/MD5.asp" -->

<%
top
if Request.Cookies("UserName")=empty then error("<li>您还未<a href=Login.asp>登录</a>社区")


select case Request.form("menu")

case "editProfileok"
editProfileok
case "contactok"
contactok

case "passok"
passok
end select


%>
<SCRIPT src="inc/birthday.js"></SCRIPT>

<table border=0 width=100% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 控制面板</td>
</tr>
</table><br>

<table cellspacing=1 cellpadding=1 width=100% align=center border=0 class=a2>
  <TR id=TableTitleLink class=a1 height="25">
      <Td align="center"><b><a href="UserCp.asp">控制面板首页</a></b></td>
      <TD align="center"><b><a href="EditProfile.asp">基本资料修改</a></b></td>
      <TD align="center"><b><a href="EditProfile.asp?menu=contact">联系资料修改</a></b></td>
      <TD align="center"><b><a href="EditProfile.asp?menu=pass">用户密码修改</a></b></td>
      <TD align="center"><b><a href="Message.asp">用户短信服务</a></b></td>
      <TD align="center"><b><a href="Friend.asp">编辑好友列表</a></b></td>
      </TR></TABLE>
<br>
<%


select case Request("menu")
case ""
index
case "contact"
contactPage

case "pass"
pass
end select


sub index
sql="select * from [BBSXP_Users] where UserName='"&Request.Cookies("UserName")&"'"
Set Rs=Conn.Execute(sql)

UserInfo=split(Rs("UserInfo"),"\")
realname=UserInfo(0)
country=UserInfo(1)
province=UserInfo(2)
city=UserInfo(3)
Postcode=UserInfo(4)
blood=UserInfo(5)
belief=UserInfo(6)
occupation=UserInfo(7)
marital=UserInfo(8)
education=UserInfo(9)
college=UserInfo(10)
address=UserInfo(11)
phone=UserInfo(12)
character=UserInfo(13)
personal=UserInfo(14)


%>




<table width=100% cellspacing=1 cellpadding=4 align=center border=0 class=a2>
  <form method="POST" name="form" action="EditProfile.asp">
<input type=hidden name=menu value="editProfileok">
<tr>
<td height="20" align="center" colspan="2" valign="bottom" class=a1>
<b>&nbsp;:::基本资料:::</b></td>
</tr>
<tr>
    <td height="2" valign="top" class=a4 width="34%">  <b>真实姓名:</b> 
      <input type="text" name="realname" size="17" value="<%=realname%>">
</td>
    <td height="71" align="Left" valign="top" class=a4 rowspan="12" width="64%"> 
      <table width="486" cellspacing="0" cellpadding="5">
<tr>
<td width="476"><b>头<font color="000000"> </font>像:</b>
<img src="<%=Rs("Userface")%>" name="tus" width=32 height=32> <script>function Showimage(){document.images.tus.src=""+document.form.Userface.options[document.form.Userface.selectedIndex].value+"";}</script><select name=Userface size=1 onChange="Showimage()">
<option value="<%=Rs("Userface")%>">默认</option>
<script>
for(i=1;i<=99;i++) {
document.write("<option value='images/face/"+i+".gif'>"+i+"</option>")
}
</script>
</select> <a href="#" onclick="javascript:open('CreateUser.asp?menu=face','','width=500,height=500,resizable,scrollbars')">查看所有的头像列表</a></td>
</tr>
<tr>
<td width="466"><b>生<font color="000000"> </font>日:</b> <input onfocus="show_cele_date(birthday,'','',birthday)" value="<%=Rs("birthday")%>" name="birthday"></td>
</tr>
<tr>
<td width="476"><b><font color="000000">性 格</font>: &nbsp; </b>

<textarea name=character rows=5 cols=65><%=character%></textarea><font color="000000">  </font>
</td>
</tr>
<tr>
<td width="476"><b>个人简介: &nbsp;
<textarea name=personal rows=5 cols=65><%=personal%></textarea>
</b></td>
</tr>
<tr>
<td height="10" width="476"><b>签名档: &nbsp;
<textarea name=UserSign rows=5 cols=65><%=Rs("UserSign")%></textarea> </b> </td>
</tr>
</table>
</td>
</tr>
<tr>
    <td height="2" valign="top" class=a3 width="34%"><b>  性  别:</b> 
      <select size=1 name=UserSex>
<option value="" selected>[请选择]</option>
<option value=male <%if Rs("UserSex")="male" then%>selected<%end if%>>男</option>
<option value=female <%if Rs("UserSex")="female" then%>selected<%end if%>>女</option>
</select>



</td>
</tr>
<tr>
    <td height="2" valign="top" class=a4 width="34%"> <b>国  家:</b> <b> 
      <input type="text" name="country" size="17" value="<%=country%>">
</b> </td>
</tr>
<tr>
    <td height="2" valign="top" class=a3 width="34%"> <b>省  份:</b> 
      <input type="text" name="province" size="17" value="<%=province%>">
</td>
</tr>
<tr>
    <td height="1" valign="top" class=a4 width="34%"> <b>城  市: </b> 
      <input type="text" name="city" size="17" value="<%=city%>">
</td>
</tr>
<tr>
    <td height="1" valign="top" class=a3 width="34%"> <b>邮政编码: </b> 
      <input type="text" name="Postcode" size="17" value="<%=Postcode%>">
</td>
</tr>
<tr>
    <td height="2" valign="top" class=a4 width="34%"> <b>血  型:</b> 
      <input maxlength=4 size=4
name=blood value="<%=blood%>">
</td>
</tr>
<tr>
    <td height="2" valign="top" class=a3 width="34%"> <b>信  仰:</b> 
      <input type="text" name="belief" size="17" value="<%=belief%>"></td>
</tr>
<tr>
    <td height="2" valign="top" class=a4 width="34%"> <b>职  业:</b> 
      <input type="text" name="occupation" size="17" value="<%=occupation%>"></td>
</tr>
<tr>
    <td height="2" valign="top" class=a3 width="34%"> <b>婚姻状况:</b> 
      <input maxlength=4 size=17 name=marital value="<%=marital%>"></td>
</tr>
<tr>
    <td height="2" valign="top" class=a4 width="34%"> <b>最高学历:</b> 
      <input type="text" name="education" size="17" value="<%=education%>"></td>
</tr>
<tr>
    <td height="2" valign="top" class=a3 width="34%"> <b>毕业院校:</b> 
      <input type="text" name="college" size="17" value="<%=college%>"></td>
</tr>
<tr bgcolor="FFFFFF" class=a1>
<td height="25" align="Left" colspan="2"><b>&nbsp;:::私人联系资料:::</b></td>
</tr>

<tr bgcolor="FFFFFF" class=a3>
<td valign="middle" align="Left"> <b>电话号码:</b><input type="text" name="phone" size="20" value="<%=phone%>"></td>
<td valign="middle" align="Left"><b>手机号码:</b><input type="text" name="UserMobile" size="20" value="<%=Rs("UserMobile")%>"></td>
</tr>

<tr bgcolor="FFFFFF" class=a4>
<td valign="middle" align="Left" colspan="2"> <b>联系地址:</b><input type="text" name="address" size="60" value="<%=address%>"></td>
</tr>

<tr class=a3>
    <td height="1" align="center" width="100%" colspan="2">

<input type="submit" value=" 确 定 "></td>
</tr>
</table>



</form>

<Script>
document.form.UserSign.value = unYBBcode(document.form.UserSign.value);
document.form.personal.value = unYBBcode(document.form.personal.value);
document.form.character.value = unYBBcode(document.form.character.value);
function unYBBcode(temp) {
temp = temp.replace(/<br>/ig,"\n");
return (temp);
}
</Script><%
end sub


sub contactPage
sql="select * from [BBSXP_Users] where UserName='"&Request.Cookies("UserName")&"'"
Set Rs=Conn.Execute(sql)



UserIM=split(Rs("UserIM"),"\")
qq=UserIM(0)
icq=UserIM(1)
uc=UserIM(2)
aim=UserIM(3)
msn=UserIM(4)
Yahoo=UserIM(5)



%>




<table width=100% cellspacing=1 cellpadding=4 align=center border=0 class=a2>
  <form method="POST" name="form" action="EditProfile.asp">
<input type=hidden name=menu value="contactok">


<tr bgcolor="FFFFFF" class=a1>
<td colspan="2" height="25" align="center"><b>&nbsp;:::联系资料:::</b></td>
</tr>
<tr bgcolor="FFFFFF" class=a3>
<td height="4" valign="middle" align="Left"> <b>QQ号码: 
<input type="text" name="qq" size="20" onkeyup=if(isNaN(this.value))this.value='' value="<%=qq%>"></b></td>
<td height="4" valign="middle" align="Left"><b>ICQ:   <input type="text" name="icq" size="20" onkeyup=if(isNaN(this.value))this.value='' value="<%=icq%>"></b></td>
</tr>
<tr bgcolor="FFFFFF" class=a4>
<td height="4" valign="middle" align="Left"> <b>UC号码: <input type="text" name="uc" size="20" onkeyup=if(isNaN(this.value))this.value='' value="<%=uc%>"></b></td>
<td height="4" valign="middle" align="Left"><b>AIM:   <input type="text" name="aim" size="20" value="<%=aim%>"></b></td>
</tr>
<tr bgcolor="FFFFFF" class=a3>
<td height="2" valign="middle" align="Left"> <b>MSN IM: <input type="text" name="msn" size="20" value="<%=msn%>"></b> </td>
<td height="2" valign="middle" align="Left"><b>Yahoo IM: <input type="text" name="Yahoo" size="20" value="<%=yahoo%>"></b></td>
</tr>

<tr bgcolor="FFFFFF" class=a4>
<td height="1" valign="middle" align="Left"> <b>邮件地址:</b><input type="text" name="UserMail" size="20" value="<%=Rs("UserMail")%>"></td>
<td height="1" valign="middle" align="Left"><b>个人主页: </b><input type="text" name="Userhome" size="20" value="<%=Rs("Userhome")%>"></td>
</tr>

<tr class=a3>
    <td height="1" align="center" width="100%" colspan="2">

<input type="submit" value=" 确 定 "></td>
</tr>
</table>



</form>


<%
Rs.close

end sub


sub contactok
UserName=Request.Cookies("UserName")
if instr(Request("UserMail"),"@")=0 then error("<li>您的电子邮件地址填写错误")


sql="select * from [BBSXP_Users] where UserName='"&HTMLEncode(UserName)&"'"
Rs.Open sql,Conn,1,3
Rs("UserMail")=HTMLEncode(Request("UserMail"))
Rs("Userhome")=HTMLEncode(Request("Userhome"))
Rs("UserIM")=""&HTMLEncode(Request("qq"))&"\"&HTMLEncode(Request("icq"))&"\"&HTMLEncode(Request("uc"))&"\"&HTMLEncode(Request("aim"))&"\"&HTMLEncode(Request("msn"))&"\"&HTMLEncode(Request("Yahoo"))&""
Rs.update
Rs.close
Message=Message&"<li>修改资料成功<li><a href=UserCp.asp>控制面板首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=UserCp.asp>")
end sub




sub editProfileok
UserName=Request.Cookies("UserName")
Userface=HTMLEncode(Request("Userface"))
UserSign=HTMLEncode(Request.Form("UserSign"))

if SiteSettings("BannedText")<>empty then
filtrate=split(SiteSettings("BannedText"),"|")
for i = 0 to ubound(filtrate)
UserSign=ReplaceText(UserSign,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if

if Len(UserSign)>200 then Message=Message&"<li>签名档不能大于 200 个字节"

if instr(Userface,";")>0 then Message=Message&"<li>头像URL中不能含有特殊符号"

if Message<>"" then error(""&Message&"")

sql="select * from [BBSXP_Users] where UserName='"&HTMLEncode(UserName)&"'"
Rs.Open sql,Conn,1,3

Rs("birthday")=HTMLEncode(Request("birthday"))
Rs("Userface")=Userface
Rs("UserSex")=HTMLEncode(Request("UserSex"))
Rs("UserSign")=UserSign


Rs("UserInfo")=""&HTMLEncode(Request("realname"))&"\"&HTMLEncode(Request("country"))&"\"&HTMLEncode(Request("province"))&"\"&HTMLEncode(Request("city"))&"\"&HTMLEncode(Request("Postcode"))&"\"&HTMLEncode(Request("blood"))&"\"&HTMLEncode(Request("belief"))&"\"&HTMLEncode(Request("occupation"))&"\"&HTMLEncode(Request("marital"))&"\"&HTMLEncode(Request("education"))&"\"&HTMLEncode(Request("college"))&"\"&HTMLEncode(Request("address"))&"\"&HTMLEncode(Request("phone"))&"\"&HTMLEncode(Request("character"))&"\"&HTMLEncode(Request("personal"))&""
Rs("UserMobile")=""&HTMLEncode(Request("UserMobile"))&""


Rs.update
Rs.close
Message=Message&"<li>修改资料成功<li><a href=UserCp.asp>控制面板首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=UserCp.asp>")
end sub







sub pass
sql="select * from [BBSXP_Users] where UserName='"&Request.Cookies("UserName")&"'"
Set Rs=Conn.Execute(sql)
%>

<table width=100% cellspacing=1 cellpadding=4 border=0 class=a2 align=center>
  <form method="POST" name="form"action="EditProfile.asp">
<input type=hidden name="menu" value="passok">
<tr>
<td height="20" align="center" colspan="2" valign="bottom" class=a1>
<b>用户密码修改</b></td>
</tr>
<tr class=a4>
    <td height="2" align="right" width="45%"><b> 原密码:</b></td>
    <td height="2" align="Left" width="55%"> &nbsp; 
      <input type="password" name="oldUserpass" size="40">
</td>
</tr>
<tr class=a3>
    <td height="2" align="right" width="45%"><b> 新密码:</b><br>
      <font color="#FF0000">如不更改密码此处请留空</font></td>
    <td height="2" align="Left" width="55%"> &nbsp; 
      <input type="password" name="Userpass" size="40" maxlength="16">
</td>
</tr>
<tr class=a4>
    <td height="2" align="right" width="45%"><b>确认新密码:</b><br>
      <font color="#FF0000">请与您的新密码保持一致</font></td>
    <td height="2" align="Left" valign="middle" width="55%"> &nbsp; 
      <input type="password" name="Userpass2" size="40" maxlength="16"></td>
</tr>
<tr class=a3>
    <td height="1" align="right" width="45%"><b>密码提示问题:</b></td>
    <td height="1" align="Left" width="55%"> &nbsp; 
      <input type="text" name="PasswordQuestion" size="40" value="<%=Rs("PasswordQuestion")%>">
</td>
</tr>
<tr class=a4>
    <td height="1" align="right" width="45%"><b>密码提示答案:</b><br>
	<font color="#FF0000">如不更改答案此处请留空</font></td>
    <td height="1" align="Left" width="55%" class=a4> &nbsp; 
      <input type="text" name="PasswordAnswer" size="40" value=""></td>
</tr>
<tr class=a3>
    <td align="center" width="100%" colspan="2">
<input type="submit" value=" 确 定 "></td>
</tr>
</table>

</form>
<%
end sub

sub passok
UserName=Request.Cookies("UserName")
Userpass=Trim(Request("Userpass"))
oldUserpass=Trim(Request("oldUserpass"))
Userpass2=Trim(Request("Userpass2"))
PasswordQuestion=HTMLEncode(Request("PasswordQuestion"))

sql="select * from [BBSXP_Users] where UserName='"&HTMLEncode(UserName)&"'"
Rs.Open sql,Conn,1,3


if md5(oldUserpass)<>Rs("Userpass") then Message=Message&"<li>您的原密码错误"

if Userpass<>Userpass2 then Message=Message&"<li>您的新密码和确认新密码不同"

if Message<>"" then error(""&Message&"")
if Userpass<>empty then Rs("Userpass")=md5(Userpass)
Rs("PasswordQuestion")=PasswordQuestion
if Request("PasswordAnswer")<>empty then Rs("PasswordAnswer")=md5(Request("PasswordAnswer"))
Rs.update
Rs.close
Message=Message&"<li>修改资料成功<li><a href=UserCp.asp>控制面板首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=UserCp.asp>")
end sub


htmlend
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -