📄 lookuserinfo.asp
字号:
<!--#include file="const.asp"-->
<!--#include file="char.asp"-->
<!--#include file="../conn.asp"-->
<!--#include file="BtBBS_Fun.asp"-->
<!--#include file="md5.asp"-->
<%username=Request.Cookies("username")
bbsgl=Request.Cookies("bbsgl")
login=BT_SF()
lookid=cint(Request.QueryString("lookid"))
StarTime = Timer():AccessNum=0
if lookid<1 or lookid>11 then lookid=0 end if
Call JCC_Board_Top
Call Login_EN
BT_Board():aRS=Application(BBSname&"BT_Board")
Response.Write "<table width=743><tr><td height=30 class=light> <img src=../images/nav.gif>"
Call BBSFLMenu()
Response.Write " >> <font class=NavColor>论坛控制面板</font> >> <a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a></font></td></tr></table>"
Response.Write "<table border=1 width=743 cellspacing=0 cellpadding=0 class=table1><tr><td width=150 valign=top class=tdbg4><img src=../images/userchnlnav.gif><br>"
Response.Write " <b>※我的控制面板※</b><br><br>"
Response.Write " <a href=lookuserinfo.asp?lookid=1>修改用户资料/密码</a><br>"
Response.Write " <a href=lookuserinfo.asp>查看我的资料</a><br>"
Response.Write " <a href=javascript:openScript('MyMoney.asp',250,200)>金钱转帐</a><br>"
Response.Write " <a href=javascript:openScript('shortinfo.asp?optionvar=短消息&shortinfo=收件箱',500,400)>我的收件箱</a><br>"
Response.Write " <a href=javascript:openScript('shortinfo.asp?optionvar=短消息&shortinfo=已发送',500,400)>已发送信息</a><br>"
Response.Write " <a href=lookuserinfo.asp?lookid=5>我的帖子收藏夹</a><br>"
Response.Write " <a href=lookuserinfo.asp?lookid=6>论坛好友列表</a><br>"
Response.Write " <a href=exit.asp>重登录论坛</a><br>"
Response.Write " <a href=logout.asp>退出登录状态</a><br><br>"
Response.Write " <b>※论坛信息※</b> <br><br>"
Response.Write " <a href=lookuserinfo.asp?lookid=9>论坛管理团队</a><br>"
Response.Write " <a href=lookuserinfo.asp?lookid=10>会员排行榜</a><br>"
Response.Write " <a href=lookuserinfo.asp?lookid=11>查找论坛用户</a><br>"
Response.Write " <a href=disonline.asp>在线情况</a><br>"
Response.Write " <a href=UserTop.asp>会员列表</a><br><br>"
Response.Write " <b>※论坛帮助※</b> <br><br>"
Response.Write " <a href=Help.asp>论坛使用手册</a><br>"
Response.Write " <a href=UbbHelp.asp>UBB代码释疑</a><br>"
Response.Write "</td><td valign=top class=tdbg5>"
select case lookid
case 1 '修改用户资料
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT top 1 * FROM 用户资料 where 用户名='"&username&"' "
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Write "尚未登陆或没有这个用户"
else
if Request.QueryString("xg")="" then
Response.Write "<form name=xginfo action=Lookuserinfo.asp?lookid=1&xg=xg method=post>"
Response.Write "<center><table border=0 width=600 cellspacing=0 cellpadding=0 align=center class=table1>"
Response.Write "<tr><td height=27 colspan=2 class=TBHead> 修改我的资料/密码</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 用户名</td><td class=light> "&rs("用户名")&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 设置密码</td><td class=light> <input type=password size=15 name=password1 value="&rs("密码")&"> (不修改密码不要改动它)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 确认密码</td><td class=light> <input type=password size=15 name=password2 value="&rs("密码")&"> (不修改密码不要改动它)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 密码问题</td><td class=light> <input type=text size=15 name=passwt value="&rs("密码问题")&"> (忘记密码后,取回密码的问题)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 问题答案</td><td class=light> <input type=text size=15 name=passdh value="&rs("问题答案")&"> (忘记密码后,取回密码提问的答案)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 门 派</td><td class=light> <input type=text size=20 name=mp value="&rs("门派")&"></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 签 名</td><td class=light> <TEXTAREA rows=3 cols=40 name=qm>"&rs("签名")&"</textarea> (签名支持UBB语法,长度不能超过"&qmlen&")</td></tr>"
Response.Write "<tr><td height=27 colspan=2 class=TBHead> 基本资料</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 开放基本资料</td><td class=light> <select name=jbzl><option selected value="&rs("是否开放基本资料")&">"&rs("是否开放基本资料")&"</option><option value=Y>开放</option><option value=N>不开放</option></select> 当前:"&rs("是否开放基本资料")&" (Y,表示开放;N,表示不开放,开放后,其它会员可以看到你的基本资料)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 电子邮件</td><td class=light> <input type=text size=25 name=email value="&rs("电子邮件")&"></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 性 别</td><td class=light> <select name=sex><option selected value="&rs("性别")&">"&rs("性别")&"</option><option value=1>男</option><option value=2>女</option></select> 当前:"&rs("性别")&" (1,表示男;2,表示女)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 头 像</td><td class=light> <input type=text size=10 name=imageid value="&rs("头像ID")&"><a href=imageid.asp target=_blank><img src=../images/userpic/"&rs("头像ID")&" align=center border=0 onload=""javascript:if(this.width>150)this.width=150""></a> <a href=javascript:openScript('imageid.asp',150,400)>头像一览表</a> <IFRAME name=mqs marginWidth=0 marginHeight=0 src=uploadPost_ID.asp frameBorder=0 width=180 scrolling=no height=20></IFRAME></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> OICQ</td><td class=light> <input type=text size=20 name=oicq value="&rs("OICQ")&"></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> ICQ</td><td class=light> <input type=text size=20 name=icq value="&rs("ICQ")&"></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 个人主页</td><td class=light> <input type=text size=25 name=Userpage value="&rs("UserPage")&"></td></tr>"
Response.Write "<tr><td height=27 colspan=2 class=TBHead> 个人资料</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 开放个人资料</td class=light><td class=light> <select name=glzl><option selected value="&rs("是否开放个人资料")&">"&rs("是否开放个人资料")&"</option><option value=Y>开放</option><option value=N>不开放</option></select> 当前:"&rs("是否开放个人资料")&" (Y,表示开放;N,表示不开放,开放后,其它会员可以看到你的个人资料)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 回帖提示</td><td class=light> <select name=wtds><option selected value="&rs("回帖提示")&">"&rs("回帖提示")&"</option><option value=Y>提示</option><option value=N>不提示</option></select> 当前:"&rs("回帖提示")&" (Y,表示提示;N,表示不提示)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 真实姓名</td><td class=light> <input type=text size=20 name=zsxm value="&rs("真实姓名")&"></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 家庭住址</td><td class=light> <input type=text size=20 name=dress value="&rs("家庭住址")&"></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 联系电话</td><td class=light> <input type=text size=20 name=photo value="&rs("联系电话")&"></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 身份证号</td><td class=light> <input type=text size=30 name=sfzh value="&rs("身份证号")&"></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 你的爱好</td><td class=light> <input type=text size=40 name=youah value="&rs("你的爱好")&"></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 生 日</td><td class=light> <input type=text size=30 name=sr value="&rs("生日")&"> (请用这种格式输入,例:1980.03.02)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 个人照片</td><td class=light> <input type=text size=40 name=youpic value="&rs("个人照片")&"> (输入图片地址,前面加Http://)</td></tr>"
Response.Write "<tr><td height=27 colspan=2 align=center class=light><br><input type=Submit value=确定 name=xgok></td></tr>"
Response.Write "</table></center></form>"
else
if login<>"Y" and Request.Cookies("username")=username then
Response.Write "敬告:非法提交,如果你是骇客,你要为这种可耻的行为负责"
Response.End
end if
password1=Request.Form("password1")'设置密码
password2=Request.Form("password2")'确认密码
passwt=Request.Form("passwt")'密码问题
passdh=Request.Form("passdh")'问题答案
mp=Request.Form("mp")'门派
if mp="" then mp=" " end if
qm=Request.Form("qm")'签名
if qm="" or len(qm)>qmlen then qm=" " end if
jbzl=Request.Form("jbzl")'基本资料公开选项
email=Request.Form("email")'电子邮件
sex=Request.Form("sex")'姓别
imageid=Request.Form("imageid")'头像ID
oicq=Request.Form("oicq")'Oicq
if oicq="" then oicq=" " end if
icq=Request.Form("icq")'Icq
if icq="" then icq=" " end if
UserPage=Request.Form("UserPage")'Icq
if UserPage="" then UserPage="#" end if
glzl=Request.Form("glzl")'个人资料公开选项
wtds=Request.Form("wtds")'回帖提示
if wtds="" then wtds=" " end if
zsxm=Request.Form("zsxm")'真实姓名
if zsxm="" then zsxm=" " end if
dress=Request.Form("dress")'家庭住址
if dress="" then dress=" " end if
photo=Request.Form("photo")'联系电话
if photo="" then photo=" " end if
sfzh=Request.Form("sfzh")'身份证号
if sfzh="" then sfzh=" " end if
youah=Request.Form("youah")'你的爱好
if youah="" then youah=" " end if
sr=Request.Form("sr")'生日
if sr="" then sr=" " end if
youpic=Request.Form("youpic")'个人照片
if youpic="" then youpic=" " end if
if password1<>"" and password2<>"" and passwt<>"" and passdh<>"" and email<>"" and imageid<>"" then
if password1<>password2 then
Response.Write "设置密码/确认密码不同"
else
if rs("密码")<>password1 then rs("密码")=md5(password1) end if
rs("密码问题")=passwt
if rs("问题答案")<>passdh then rs("问题答案")=md5(passdh) end if
rs("门派")=mp
if qm<>" " then rs("签名")=qm end if
rs("是否开放基本资料")=jbzl
rs("电子邮件")=email
rs("性别")=sex
rs("头像ID")=imageid
rs("oicq")=oicq
rs("icq")=icq
rs("UserPage")=UserPage
rs("是否开放个人资料")=glzl
rs("回帖提示")=wtds
rs("真实姓名")=zsxm
rs("家庭住址")=dress
rs("联系电话")=photo
rs("身份证号")=sfzh
rs("你的爱好")=youah
rs("生日")=sr
rs("个人照片")=youpic
rs.Update
Response.Write "<br><br> 修改完成"
end if
else
Response.Write "密码项/电子邮件项/头像项均不能为空"
end if
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -