www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > userinfo.asp
<%@language="VBScript"%> <!--#include file="title.asp"--> <% contents=contents &"<title>用户资料-"& caption &"</title>"&_ "</head>"&_ "<body>"&_ ""&_ "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">" if gbmaduser="" then contents=contents &"<script language=""JavaScript"">alert(""出错:你还没登陆或者已经掉线,请重新登陆。"");window.close();</script>" else dim url,username,information,succe url=Request.ServerVariables("HTTP_REFERER") username=Trim(Replace(Request.QueryString("username"),"'","")) if username="" then username=gbmaduser information=Server.HTMLEncode(Trim(Replace(Replace(Request.Form("turename"),"'",""),"{gb|mad}","")) &"{gb|mad}"& Trim(Replace(Replace(Request.Form("address"),"'",""),"{gb|mad}","")) &"{gb|mad}"& Trim(Replace(Replace(Request.Form("phone"),"'",""),"{gb|mad}","")) &"{gb|mad}"& Trim(Replace(Replace(Request.Form("sex"),"'",""),"{gb|mad}","")) &"{gb|mad}"& Trim(Replace(Replace(Request.Form("email"),"'",""),"{gb|mad}","")) &"{gb|mad}"& Trim(Replace(Replace(Request.Form("qq"),"'",""),"{gb|mad}","")) &"{gb|mad}"& Trim(Replace(Replace(Request.Form("msn"),"'",""),"{gb|mad}","")) &"{gb|mad}"& Trim(Replace(Replace(Request.Form("gamemachine"),"'",""),"{gb|mad}","")) &"{gb|mad}"& Trim(Replace(Replace(Request.Form("enjoygame"),"'",""),"{gb|mad}","")) &"{gb|mad}"& Trim(Replace(Replace(Request.Form("remark"),"'",""),"{gb|mad}",""))) if information<>"{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}" then rs.Open "Select userpwd,information From gbmaduser Where gbmaduser='"& username &"'",conn,1,3 if rs("userpwd")<>userpwd then contents=contents &"<script language=""JavaScript"">alert(""出错:密码验证错误,请重新登陆。\n引起该错误的原因可能是因为你手动修改了Cookies。"");window.close();</script>" else rs("information")=information succe=" 填写成功。" rs.Update end if rs.Close end if rs.Open "Select information From gbmaduser Where gbmaduser='"& username &"'",conn,1,1 if rs.Eof then if Instr(url,"userinfo.asp")>0 then contents=contents &"<script language=""JavaScript"">alert(""出错:没有找到你要找的用户 "& gbmaduser &"。"");document.location=""JavaScript:history.back();"";</script>" else contents=contents &"<script language=""JavaScript"">alert(""出错:用户 "& gbmaduser &" 不存在或者已经被删除ID。"");window.close();</script>" end if else information=Split(rs("information"),"{gb|mad}") if username=gbmaduser then contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">你的个人资料</td></tr>"&_ "<tr class=""tds""><td>欢迎来到"& caption &"社区,填写个人资料可以让更多的人了解你。"&_ "<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_ "<form name=""userinfo"" method=""post"" action=""userinfo.asp"">"&_ "<tr><td width=""64"">用 户 名:</td><td class=""otr"">"& username &" <input type=""submit"" value=""提交"" class=""out"" onmouseover=""this.className='over'"" onmouseout=""this.className='out'"">"& succe &"</td></tr>"&_ "<tr><td>真实姓名:</td><td class=""otr""><input name=""turename"" type=""text"" maxlength=""255"" size=""20"" class=""iptwin"" value="""& information(0) &"""></td></tr>"&_ "<tr><td>通讯地址:</td><td class=""otr""><input name=""address"" type=""text"" maxlength=""255"" size=""20"" class=""iptwin"" value="""& information(1) &"""></td></tr>"&_ "<tr><td>联系电话:</td><td class=""otr""><input name=""phone"" type=""text"" maxlength=""255"" size=""20"" class=""iptwin"" value="""& information(2) &"""></td></tr>"&_ "<tr><td>性 别:</td><td class=""otr""><input name=""sex"" type=""text"" maxlength=""255"" size=""20"" class=""iptwin"" value="""& information(3) &"""></td></tr>"&_ "<tr><td> E-Mail:</td><td class=""otr""><input name=""email"" type=""text"" maxlength=""255"" size=""20"" class=""iptwin"" value="""& information(4) &"""></td></tr>"&_ "<tr><td> QQ:</td><td class=""otr""><input name=""qq"" type=""text"" maxlength=""255"" size=""20"" class=""iptwin"" value="""& information(5) &"""></td></tr>"&_ "<tr><td> MSN:</td><td class=""otr""><input name=""msn"" type=""text"" maxlength=""255"" size=""20"" class=""iptwin"" value="""& information(6) &"""></td></tr>"&_ "<tr><td>生 日:</td><td class=""otr""><input name=""gamemachine"" type=""text"" maxlength=""255"" size=""50"" class=""iptwin"" value="""& information(7) &"""></td></tr>"&_ "<tr><td>个人爱好:</td><td class=""otr""><input name=""enjoygame"" type=""text"" maxlength=""255"" size=""50"" class=""iptwin"" value="""& information(8) &"""></td></tr>"&_ "<tr><td>备 注:</td><td class=""otr""><input name=""remark"" type=""text"" maxlength=""255"" size=""50"" class=""iptwin"" value="""& information(9) &"""></td></tr>"&_ "</form>"&_ "</table>"&_ "</td></tr>" else contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">"& username &" 的个人资料</td></tr>"&_ "<form name=""userinfo"" method=""get"" action=""userinfo.asp"">"&_ "<tr class=""tds""><td>"&_ "<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_ "<tr><td width=""64"">用 户 名:</td><td class=""otr"">"& username &"</td></tr>"&_ "<tr><td>真实姓名:</td><td class=""otr"">"& information(0) &"</td></tr>"&_ "<tr><td>通讯地址:</td><td class=""otr"">"& information(1) &"</td></tr>"&_ "<tr><td>联系电话:</td><td class=""otr"">"& information(2) &"</td></tr>"&_ "<tr><td>性 别:</td><td class=""otr"">"& information(3) &"</td></tr>"&_ "<tr><td> E-Mail:</td><td class=""otr"">"& information(4) &"</td></tr>"&_ "<tr><td> QQ:</td><td class=""otr"">"& information(5) &"</td></tr>"&_ "<tr><td> MSN:</td><td class=""otr"">"& information(6) &"</td></tr>"&_ "<tr><td>生 日:</td><td class=""otr"">"& information(7) &"</td></tr>"&_ "<tr><td>个人爱好:</td><td class=""otr"">"& information(8) &"</td></tr>"&_ "<tr><td>备 注:</td><td class=""otr"">"& information(9) &"</td></tr>"&_ "</table>"&_ "<center>搜索用户:<input type=""text"" name=""username"" maxlength=""20"" size=""20"" class=""iptwin""> <input type=""submit"" value=""提交"" class=""out"" onmouseover=""this.className='over'"" onmouseout=""this.className='out'""></center>"&_ "</td></tr>"&_ "</form>" end if end if rs.Close end if contents=contents &"</table>"&_ "" %> <!--#include file="bottom.asp"-->