useredit.asp
来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 524 行 · 第 1/2 页
ASP
524 行
<!-- #include file="setup.asp" -->
<!-- #include file="inc/function.asp" -->
<%
validate "Login.asp",0
if Request.ServerVariables("request_method")="POST" then
Select case trim(Request.Form("Submit"))
Case "确定修改"
UserName_1=Trim(Request.Form("UserName_1"))
UserEmail_1=Trim(Request.Form("UserEmail_1"))
UserTel=Trim(Request.Form("UserTel"))
UserPsdASK=Trim(Request.Form("UserPsdASK"))
UserPsdQ=Trim(Request.Form("UserPsdQ"))
EMessage=""
if UserName_1="" or UserEmail_1="" or UserTel="" or UserPsdASK="" or UserPsdQ="" then EMessage=EMessage&"个人信息不能为空！\n"
if user(UserName_1) = false then EMessage=EMessage&"姓名不能包含特殊字符！\n"
if IsValidEmail(UserEmail_1) = false then EMessage=EMessage&"请正确输入Email！\n"
if Len(UserName_1)>30 then EMessage=EMessage&"昵称只能由15个汉字或30个英文字母组成！\n"
if instr(conn.execute("Select FunctionInfo from Functions where FunctionID=21")(0),UserName_1) > 0 Then EMessage=EMessage&"此用户名已被保留,请重新输入!\n"
if instr(conn.execute("Select FunctionInfo from Functions where FunctionID=22")(0),UserEmail_1) > 0 Then EMessage=EMessage&"此Email已被保留,请重新输入!\n"
if EMessage<>"" then Error 2,"关于错误的原因！\n\n"&EMessage,""
Conn.Execute("update UserInfo Set UserName_1='"&server.htmlencode(UserName_1)&"',UserEmail_1='"&server.htmlencode(UserEmail_1)&"',UserTel='"&server.htmlencode(UserTel)&"',UserPsdASK='"&server.htmlencode(UserPsdASK)&"',UserPsdQ='"&server.htmlencode(UserPsdQ)&"' Where UserId="&Request.Cookies("User"))
Case "修 改"
Userface=Trim(Request("userface"))
'UserEmail_2=Trim(Request("UserEmail_2"))
UserWeb=Trim(Request("UserWeb"))
UserCphone=Trim(Request("UserCphone"))
UserFax=Trim(Request("UserFax"))
UserAddr=Trim(Request("UserAddr"))
UserQQ=Trim(Request("UserQQ"))
UserICQ=Trim(Request("UserICQ"))
UserInf=Trim(Request("UserInfo"))
UserInf=HTMLEncode(UserInf)
UserCode=Trim(Request("UserCode"))
EMessage=""
if IsNumEric(UserCode) = Flase Then EMessage=EMessage&"请输入正确邮编！！\n"
'if instr(Trim(conn.execute("Select FunctionInfo from Functions where FunctionID=21")(0)),Trim(UserName_2)) > 0 Then EMessage=EMessage&"此用户名已被保留,请重新输入!\n"
if UserEmail_2<>"" Then if instr(conn.execute("Select FunctionInfo from Functions where FunctionID=22")(0),UserEmail_2) > 0 Then EMessage=EMessage&"此Email已被保留,请重新输入!\n"
if EMessage<>"" then Error 2,"关于错误的原因！\n\n"&EMessage,""
Conn.Execute("update UserInfo Set userhead='"&userface&"',UserWeb='"&server.htmlencode(UserWeb)&"',UserCphone='"&server.htmlencode(UserCphone)&"',UserFax='"&server.htmlencode(UserFax)&"',UserAddr='"&server.htmlencode(UserAddr)&"',UserQQ='"&server.htmlencode(UserQQ)&"',UserICQ='"&server.htmlencode(UserICQ)&"',UserInfo='"&server.htmlencode(UserInf)&"',UserCode='"&UserCode&"' Where UserId="&Request.Cookies("User"))
Case "修改密码"
OldPsd=Encrypt(Trim(Request.Form("OldPsd")))
UserPsd1=Trim(Request.Form("UserPsd1"))
UserPsd2=Trim(Request.Form("UserPsd2"))
EMessage=""
if OldPsd <> Trim(conn.execute("Select UserPsd from UserInfo where UserID="&Request.Cookies("User"))(0)) Then EMessage=EMessage&"您输入的旧密码不正确！\n"
if OldPsd="" or UserPsd1="" or UserPsd2="" Then EMessage=EMessage&"信息输入不完整！\n"
if UserPsd1 <> UserPsd2 Then EMessage=EMessage&"新密码与确认新密码不一致！\n"
if EMessage<>"" then Error 2,"关于错误的原因！\n\n"&EMessage,""
conn.execute("Update UserInfo set UserPsd='"&Encrypt(UserPsd1)&"' where UserID="&Request.Cookies("User"))
Response.Cookies("password")=Encrypt(UserPsd1)
End Select
Conn.Close
Set Conn = Nothing
Response.Redirect "?Menu="&Request.QueryString("menu")
Response.end
End if
Menu=Request.QueryString("menu")
Call Top
Call table()
Sql="Select * From UserInfo Where UserId="&Request.Cookies("User")
Set Rs = Conn.Execute(Sql)
if Rs.eof Then Error 1,"错误的登陆信息！\n您的IP已被记录！",""
%>
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<title>控制面板</title>
<br>
<TABLE align=center borderColor=a4b6d7 cellSpacing=0 cellPadding=5 width=100% border=1 style="border-collapse: collapse" background=images/title_sub.gif >
<TBODY><TR>
<TD align="center"><b><font color="#FFFFFF"><a href=usercp.asp><font color=#ffffff title="">控制面板首页</font></a></font></a></TH></font></b>
<Td align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?Menu=UpPhoto"><font color="#FFFFFF">用户照片上传</font></a></TH> </font>
</b><TD align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?Menu=Basic"><font color="#FFFFFF">基本资料修改</TH> </font></a> </font>
</b><TD align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?menu=Community"><font color="#FFFFFF">社区资料修改</TH></font></a></font>
</b><TD align="center"><b><font color="#FFFFFF"><a href="UserEdit.asp?menu=UserPsd"><font color="#FFFFFF">用户密码修改</TH> </font></a></font></b>
<TD align="center"><b><font color="#FFFFFF"><a href="message.asp"><font color="#FFFFFF">用户短信服务</TH> </font></a> </font>
</b><TD align="center"><b><font color="#FFFFFF"><a href="Quote.asp?menu=fortune"><font color="#FFFFFF">查看财富排行</font></a></TH> </font>
</b></TR></TBODY></TABLE> <HR width="100%" SIZE=1><center>
<%
Select Case Menu
Case "Basic"
%>
<table border="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#BBD0EC" cellpadding="0" bgcolor="#BBD0EC">
<form method="POST" name="form" ><tr>
<td width="100%">
<table width="100%" cellspacing=1 cellpadding=4 border=0>
<tr>
<td height="20" align="center" colspan="2" background=images/title_sub.gif >
<b>用户基本资料修改</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" height="25" valign="middle" align="left" width="740"><b> <img src="images/2.gif" width="60" height="9">个人信息</b>（以下内容
请如实填写）</td>
</tr>
<tr>
<td bgcolor=#ECF5FF height="5" align="right" valign="middle" width="290"><b>姓名：</b></td>
<td bgcolor=#ECF5FF height="5" align="left" valign="middle" width="459">
<input name="UserName_1" type="text" value="<%=Rs("UserName_1")%>" size="20" maxlength="15">
</td>
</tr>
<tr>
<td bgcolor=#f2f8ff height="2" align="right" valign="middle" width="290"><b>Email地址
：<br>
</b>(安全邮件地址)</td>
<td bgcolor=#f2f8ff height="2" align="left" valign="middle" width="459">
<input name="UserEmail_1" type="text" value="<%=Rs("UserEmail_1")%>" size="40" maxlength="50">
</td>
</tr>
<tr>
<td bgcolor=#f2f8ff height="2" align="right" valign="middle" width="290"><b>
联系电话： </b></td>
<td bgcolor=#f2f8ff height="2" align="left" valign="middle" width="459">
<input name="UserTel" type="text" value="<%=Rs("UserTel")%>" size="40" maxlength="40"></td>
</tr>
<tr bgcolor="#ECF5FF">
<td height="2" align="right" valign="middle" width="290"><b>密码提示问题：</b></td>
<td height="2" align="left" valign="middle" width="459">
<select name="UserPsdASK" size="1">
<option value="<%=Rs("UserPsdASK")%>" selected><%=Rs("UserPsdASK")%></option>
<option value="value">—— 请选择问题 ——</option>
<option value="你在哪所中学读初中？">你在哪所中学读初中？</option>
<option value="你的宠物叫什么名字？">你的宠物叫什么名字？</option>
<option value="你最喜欢的音乐是？">你最喜欢的音乐是？</option>
<option value="你最喜欢的球队是？">你最喜欢的球队是？</option>
<option value="你最喜欢的书是？">你最喜欢的书是？</option>
<option value="你最好的朋友是？">你最好的朋友是？</option>
<option value="你的出生年月是？">你的出生年月是？</option>
<option value="你爱人的名字是？">你爱人的名字是？</option>
<option value="你父亲的名字是？">你父亲的名字是？</optionā> </option>
<option value="你母亲的名字是？">你母亲的名字是？</option>
</select></td>
</tr>
<tr bgcolor="#ECF5FF">
<td height="2" align="right" valign="middle" width="290"><b>密码提示答案：</b></td>
<td height="2" align="left" valign="middle" width="459">
<input name="UserPsdQ" type="text" value="<%=Rs("UserPsdQ")%>" size="40" maxlength="50">
</td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td height="2" valign="middle" colspan="2" >
<input type="submit" name="Submit" value="确定修改">
</td>
</tr>
</table>
</td>
</tr>
</form></table>
<%Case "Community"%>
<table border="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#BBD0EC" cellpadding="0" bgcolor="#BBD0EC">
<form method="POST" name="form" onsubmit="return VerifyInput();"><tr><td width="100%">
<table width="100%" cellspacing=1 cellpadding=4 border=0 height="233">
<tr>
<td height="16" align="center" colspan="2" background=images/title_sub.gif >
<b>修改用户社区资料</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="left" valign="middle" colspan="2" width="740"><b> <img src="images/2.gif" width="60" height="9">个人生活信息</b>（以下内容建议填写）</td>
</tr>
<tr bgcolor="#ECF5FF">
<td height="28" valign="top" bgcolor="#ECF5FF" width="291">
<p align="right"><b>登陆名：</b></td>
<td height="28" valign="top" bgcolor="#ECF5FF" width="458"> <%=Rs("UserName_2")%></td>
</tr>
<tr bgcolor="#ECF5FF">
<td height="28" valign="top" bgcolor="#ECF5FF" width="291">
<p align="right"><b>用户头像：</b></td>
<td height="28" valign="top" bgcolor="#ECF5FF" width="458"> <img name="tus" src="images/face/<%= Rs("UserHead") %>.gif" >
<script>function showimage(){document.images.tus.src="images/face/"+document.form.userface.options[document.form.userface.selectedIndex].value+".gif";}</script>
<select name=userface size=1 onChange="showimage()">
<option value=<%= Rs("UserHead") %>><%= Rs("UserHead") %></option>
<option value="">随机</option>
<option value=1>1</option>
<option value=2>2</option>
<option value=3>3</option>
<option value=4>4</option>
<option value=5>5</option>
<option value=6>6</option>
<option value=7>7</option>
<option value=8>8</option>
<option value=9>9</option>
<option value=10>10</option>
<option value=11>11</option>
<option value=12>12</option>
<option value=13>13</option>
<option value=14>14</option>
<option value=15>15</option>
<option value=16>16</option>
<option value=17>17</option>
<option value=18>18</option>
<option value=19>19</option>
<option value=20>20</option>
<option value=21>21</option>
<option value=22>22</option>
<option value=23>23</option>
<option value=24>24</option>
<option value=25>25</option>
<option value=26>26</option>
<option value=27>27</option>
<option value=28>28</option>
<option value=29>29</option>
<option value=30>30</option>
<option value=31>31</option>
<option value=32>32</option>
<option value=33>33</option>
<option value=34>34</option>
<option value=35>35</option>
<option value=36>36</option>
<option value=37>37</option>
<option value=38>38</option>
<option value=39>39</option>
<option value=40>40</option>
<option value=41>41</option>
<option value=42>42</option>
<option value=43>43</option>
<option value=44>44</option>
<option value=45>45</option>
<option value=46>46</option>
<option value=47>47</option>
<option value=48>48</option>
<option value=49>49</option>
<option value=50>50</option>
<option value=51>51</option>
<option value=52>52</option>
<option value=53>53</option>
<option value=54>54</option>
<option value=55>55</option>
<option value=56>56</option>
<option value=57>57</option>
<option value=58>58</option>
<option value=59>59</option>
<option value=60>60</option>
<option value=61>61</option>
<option value=62>62</option>
<option value=63>63</option>
<option value=64>64</option>
<option value=65>65</option>
<option value=66>66</option>
<option value=67>67</option>
<option value=68>68</option>
<option value=69>69</option>
<option value=70>70</option>
<option value=71>71</option>
<option value=72>72</option>
<option value=73>73</option>
<option value=74>74</option>
<option value=75>75</option>
<option value=76>76</option>
<option value=77>77</option>
<option value=78>78</option>
<option value=79>79</option>
<option value=80>80</option>
<option value=81>81</option>
<option value=82>82</option>
<option value=83>83</option>
<option value=84>84</option>
<option value=85>85</option>
<option value=86>86</option>
<option value=87>87</option>
<option value=88>88</option>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?