user_editinfo.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="Cook.asp" -->
<!--#include file="../API/HiAPI/Class_API.asp"-->
<%
If WRMPS.CheckStr(Request("Action"),0) = "Save" Then
  Dim TrueName,Tel,QQ,AddRess,WM_Sign,i,WM_Face,Email_,Area,Web,Sex
  Email_ = WRMPS.CheckStr(Request("Email_"),0)
  Email = WRMPS.CheckStr(Request("Email"),0)
  TrueName = WRMPS.CheckStr(Request("TrueName"),0)
  Tel = WRMPS.CheckStr(Request("Tel"),0)
  QQ = WRMPS.CheckStr(Request("QQ"),0)
  AddRess = WRMPS.CheckStr(Request("AddRess"),0)
  WM_Sign = WRMPS.CheckStr(Request("WM_Sign"),2)
  If Len(WM_Sign) > 150 Then Call WRMPS.ErrView("·签名不能超过150字符<meta http-equiv=refresh content='1;URL=User_EditInfo.asp'>",0)
  If WM_Sign = "" Then WM_Sign = ""
  WM_Face = WRMPS.CheckStr(Request("Pic"),0)
  If Left(WM_Face,Len(WR_Setting(3))) = WR_Setting(3) Then WM_Face = Right(WM_Face,Len(WM_Face)-Len(WR_Setting(3)))
  AreaID = WRMPS.CheckStr(Request("AreaID"),1)
  If AreaID = "" Then AreaID = WRMPS.CheckStr(Request("Area_"),1)
  If AreaID = "" Then AreaID = 0
  Web = WRMPS.CheckStr(Request("Web"),0)
  If Web = "" Then Web = Null
  Sex = WRMPS.CheckStr(Request("Sex"),1)

  If Email_ <> Email Then
    Set Rs = Conn.Execute("Select Top 1 WM_ID From WM_Member Where WM_Email = '"&Email&"' and WM_ID<>"&MemID&"")
	If Not Rs.Eof Then
	  Call WRMPS.ErrView("·此邮箱已经有人使用<meta http-equiv=refresh content='1;URL=User_EditInfo.asp'>",1)
	End If
	Rs.Close
  End If 
  If WRUser.ChkRZEdit(MemName,"Email") = False Then
    SQL = ",WM_Email='"&Email&"'"
    If Email = "" Then Call WRMPS.ErrView("·请输入您的电子邮箱<meta http-equiv=refresh content='1;URL=User_EditInfo.asp'>",0)
  Else
    SQL = ""
  End If
  If WRUser.ChkRZEdit(MemName,"TRUENAME") = False Then
    If TrueName = "" Then Call WRMPS.ErrView("·请输入您的真实姓名<meta http-equiv=refresh content='1;URL=User_EditInfo.asp'>",0)
    SQL = SQL & ",WM_TrueName='"&TrueName&"'"
  End If
  'API整合接口
  If API_Enable Then 
    Dim API
    Set API = New API_WRMPS
    API.LoadXmlFile True
    API.UserName=MemName
    API.EMail=Email
    API.TrueName=TrueName
    API.QQ=QQ
    API.AddRess=AddRess
    API.Sex=Sex
    API.Web=Web
    Call API.ProcessMultiPing("update")
    Set API=Nothing
  End If
  Conn.Execute("Update WM_Member Set WM_AreaID="&AreaID&""&SQL&",WM_Tel='"&Tel&"',WM_QQ='"&QQ&"',WM_AddRess='"&AddRess&"',WM_Sign='"&WM_Sign&"',WM_Face='"&WM_Face&"',WM_Sex="&Sex&",WM_Web='"&Web&"' where WM_ID="&MemID)
  Call DBConnEnd()
  Call WRMPS.ErrView("·用户资料修改成功<meta http-equiv=refresh content='1;URL=User_EditInfo.asp'>",1)
End If

Content = Content & PageTop()
Content = Content & UserPath(",<a href=User_EditInfo.asp>资料修改</a>")

Set Rs=server.createobject("adodb.recordset")
Rs.Open "Select WM_Email,WM_TrueName,WM_Face,WM_Sign,WM_Tel,WM_QQ,WM_AddRess,WM_AreaID,WM_Sex,WM_Web,WM_RZEmail,WM_RZID From WM_Member Where WM_ID = "&MemID ,Conn,1,1
If Not Rs.Eof Then
	  Area = "您还没有选择城市"
	  If Rs(7) > 0 Then
	    Area=WRDB.GetClassName("WM_Area",Rs(7))
	  End If
      Content = Content & "<Script language=""JavaScript"" Src=""../Inc/Menu.Js""></Script>" & vbCrlf
      Content = Content & "<div id=ubb class=menuskin style=""display:none"">[br]分行符<br>[pic]图片地址[/pic]<br>[flash=宽,高]Flash地址[/flash]<br>[color=颜色值]内容[/color]<br>[align=左/中/右]内容[/align]<br>[b]内容[/b]<br>[size=1-7]内容[/size]<br>[email=邮箱地址]内容[/email]<br>[url=链接地址]内容[/url]</div>" & vbCrlf
      Content = Content & vbCrlf
      Content = Content & "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"" class=td1 align=center>" & vbCrlf
      Content = Content & "<form method=""POST"" action=""?Action=Save"" name=myform>" & vbCrlf
      Content = Content & "<input name=Email_ type=""hidden"" value='"&Rs(0)&"'>" & vbCrlf
      Content = Content & "<input name=Area_ type=hidden value='"&Rs(7)&"'>" & vbCrlf
      Content = Content & "  <tr><td class=td4 colspan=3>基本资料</td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td width=""30%""><strong>真实姓名</strong></td><td colspan=2><input name=""TrueName"" type=""text"" Style=""width:200"" maxlength=50 value='"&Rs(1)&"'"
	  If Rs(11) = 1 Then Content = Content & " disabled"
      Content = Content & ">" & vbCrlf
	  If Rs(11) = 1 Then Content = Content & " 已通过认证，不能被修改"
	  Content = Content & " <font Class=Font2>*</font></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>性别</strong></td><td colspan=2><input name=""Sex"" type=""radio"" value=1 checked Class=radio"&WRMPS.GetCheckVer(1, Rs(8), 1)&">男孩　<input name=""Sex"" type=""radio"" value=0 Class=radio"&WRMPS.GetCheckVer(0, Rs(8), 1)&">女孩 <font Class=Font2>*</font></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>网站地址</strong></td><td colspan=2><input name=""Web"" type=""text"" Style=""width:200"" maxlength=""50"" value="""&Rs(9)&"""></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>头像</strong></td><td width=""56%""><select name='Face' onChange=""document.images['PicShow'].src='../'+options[selectedIndex].value;Pic.value=options[selectedIndex].value"">" & vbCrlf
      For I=0 To 59
      Content = Content & "<option value='Images/Face/Image"&i&".gif'"&WRMPS.GetCheckVer("Images/Face/Image"&i&".gif",Rs(2),0)&">Image"&i&".gif</option>" & vbCrlf
      Next
      Content = Content & "</select><br>" & vbCrlf
      Content = Content & "<input name=""Pic"" type=""text"" Style=""width:200"" maxlength=100 value='"&Rs(2)&"'>　<a href=""javascript:openWithIframe('上传头像','../Plus/UpLoad/Index.asp?Type=6&User=3',350,150);"">上传头像</a>" & vbCrlf
      Content = Content & "</td><td width=""14%"" rowspan=2 align=center><Img Src='"&WR_Setting(3)&Rs(2)&"' ID=PicShow onload=javascript:DrawImage(this,100,100)></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>签名</strong><br>150字符以内</td><td><textarea name=""WM_Sign"" cols=""40"" rows=""5"">"&WRMPS.CheckStr(Rs(3),3)&"</textarea></td></tr>" & vbCrlf
      Content = Content & "  <tr><td class=td4 colspan=3>联系方式</td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>电子邮箱</strong></td><td colspan=2><input name=Email type=""text"" Style=""width:200"" maxlength=""50"" value='"&Rs(0)&"'"
	  If Rs(10) = 1 Then Content = Content & " disabled"
      Content = Content & ">" & vbCrlf
	  If Rs(10) = 1 Then Content = Content & " 已通过认证，不能被修改"
	  Content = Content & " <font Class=Font2>*</font></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>电话</strong></td><td colspan=2><input name=""Tel"" type=""text"" Style=""width:200"" maxlength=""50"" value='"&Rs(4)&"'></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>QQ</strong></td><td colspan=2><input name=""QQ"" type=""text"" Style=""width:200"" maxlength=""50"" value='"&Rs(5)&"'></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>所在地</strong><br>不改请不要动</td><td colspan=2>您当前选择的城市为：<b>"&Area&"</b><br><script src=../Inc/Js/AreaSelect.Js></Script></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>联系地址</strong></td><td colspan=2><input name=""AddRess"" type=""text"" Style=""width:200"" maxlength=""200"" value='"&Rs(6)&"'></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td></td><td colspan=2><input type=""submit"" value=""确定修改""></td></tr>     " & vbCrlf
      Content = Content & "</form>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
End If
Rs.Close
Set Rs = Nothing
Content = Content & PageButtom()
Call ClassEnd()
Call DBConnEnd()
response.write Content
%>