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"-->