📄 lookuserinfo.asp
字号:
end if
rs.Close
'--------------------------------------------------------
case 0 '查看我的资料/其它用户资料
usernamea=Request.QueryString("username")
loginuser=username
if usernamea<>"" then loginuser=usernamea end if
AccessNum=AccessNum+1
Set rs=conn.execute("select top 1 * from 用户资料 where 用户名='"&loginuser&"' ")
if rs.bof and rs.eof then
Response.Write "尚未登陆或没有这个用户"
else
Response.Write "<center><table border=0 width=400 cellspacing=0 cellpadding=0 align=center class=table1>"
if usernamea<>"" and username<>usernamea then
Response.Write "<tr><td width=130 height=27 class=TBHEAD> 查看 "&usernamea&" 的资料</td><td class=TBHead><B>※<a href=javascript:openScript('readsms.asp?username="&username&"&sjr="&usernamea&"',500,400)>短信</a> | <a href=addfd.asp?fdname="&usernamea&">加为好友</a>※</B></td></tr>"
else
Response.Write "<tr><td height=27 colspan=2 class=TBHead> 查看我的资料</td></tr>"
end if
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> "&rs("等级")&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 声 望</td><td class=light> "&cstr(rs("声望"))&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 积 分</td><td class=light> "&cstr(rs("积分"))&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 经 验</td><td class=light> "&cstr(rs("经验"))&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 金 钱</td><td class=light> "&cstr(rs("金钱"))&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 主题数</td><td class=light> "&cstr(rs("主题数"))&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 回复数</td><td class=light> "&cstr(rs("回复数"))&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 个人主页</td><td class=light> "&rs("UserPage")&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 头 像</td><td class=light> <img src=../images/userpic/"&rs("头像ID")&" onload=""javascript:if(this.width>150)this.width=150""></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> <TEXTAREA rows=3 cols=40 name=qm>"&rs("签名")&"</textarea></td></tr>"
Response.Write "<tr><td height=27 colspan=2 class=TBHead> 基本资料</td></tr>"
if username=usernamea or rs("是否开放基本资料")="Y" then
Response.Write "<tr><td width=100 height=27 class=light> 开放基本资料</td><td class=light> "&rs("是否开放基本资料")&" (Y,表示开放;N,表示不开放)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 电子邮件</td><td class=light> <a href=mailto:"&rs("电子邮件")&">"&rs("电子邮件")&"</a></td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 性 别</td><td class=light> "&rs("性别")&" (1,表示男;2,表示女)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> OICQ</td><td class=light> "&rs("OICQ")&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> ICQ</td><td class=light> "&rs("ICQ")&"</td></tr>"
else
Response.Write "<tr><td height=27 colspan=2 class=light> 保密</td></tr>"
end if
Response.Write "<tr><td height=27 colspan=2 class=TBHead> 个人资料</td></tr>"
if username=usernamea or rs("是否开放个人资料")="Y" then
Response.Write "<tr><td width=100 height=27 class=light> 开放个人资料</td><td class=light> "&rs("是否开放个人资料")&" (Y,表示开放;N,表示不开放)</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 回帖提示</td><td class=light> "&rs("回帖提示")&" (Y,表示提示;N,表示不提示)</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> "&rs("家庭住址")&"</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> "&rs("身份证号")&"</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> "&rs("生日")&"</td></tr>"
Response.Write "<tr><td width=100 height=27 class=light> 个人照片</td><td class=light> "&rs("个人照片")&"</td></tr>"
else
Response.Write "<tr><td height=27 colspan=2 class=light> 保密</td></tr>"
end if
Response.Write "</table></center>"
end if
rs.close
'--------------------------------------------------------
case 5 '我的收藏夹
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT 所属帐号,主题,路径及文件名,加入时间 FROM 收藏夹 where 所属帐号='"&username&"' "
rs.open sql,conn,1,1
Response.Write "<br><table border=1 width=500 cellspacing=0 cellpadding=0 align=center class=table1><tr><td colspan=3 height=27 class=TBHead><b>我的帖子收藏夹</b></td></tr><tr><td width=350 height=27 class=light1> 主题</td><td class=light1> 加入时间</td><td align=center class=light1>操作</td></tr>"
if rs.bof and rs.eof then
Response.Write "<tr><td colspan=3 height=27 align=center class=light>收藏夹为空</td></tr>"
else
rs.MoveLast
while not rs.bof
Response.Write "<tr><td height=27 class=light> <a href="+rs("路径及文件名")+">"+rs("主题")+"</a></td><td class=light> "+cstr(rs("加入时间"))+"</td><td align=center class=light><a href=addsc.asp?titlename="+rs("主题")+">删除</a></td></tr>"
rs.MovePrevious
wend
end if
rs.Close
Response.Write "</table>"
'--------------------------------------------------------
case 6 '我的好友列表
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT 所属帐号,好友用户名,加入时间 FROM 我的好友 where 所属帐号='"&username&"' "
rs.open sql,conn,1,1
Response.Write "<br><table border=1 width=500 cellspacing=0 cellpadding=0 align=center class=table1><tr><td colspan=3 height=27 class=TBHead><b>我的好友</b></td></tr><tr><td width=350 height=27 class=light1> 好友用户名</td><td class=light1> 加入时间</td><td align=center class=light1>操作</td></tr>"
if rs.bof and rs.eof then
Response.Write "<tr><td colspan=3 height=27 align=center class=light>好友列表为空</td></tr>"
else
rs.movelast
while not rs.bof
Response.Write "<tr><td height=27 class=light> <a href=LookUserInfo.asp?username="+rs("好友用户名")+">"+rs("好友用户名")+"</a></td><td class=light> "+cstr(rs("加入时间"))+"</td><td align=center class=light><a href=addfd.asp?cz=del&fdname="+rs("好友用户名")+">删除</a></td></tr>"
rs.MovePrevious
wend
end if
rs.close
Response.Write "</table>"
set rs=nothing
case 9
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select 用户名,电子邮件,头像ID,Oicq,权限,等级,主题数,回复数,积分 from 用户资料 where 权限<>'reguser' "
rs.open sql,conn,1,1
Response.Write "<br><table border=1 width=550 cellspacing=0 cellpadding=0 align=center class=table1 style='LEFT: 0px; WIDTH: 550; WORD-WRAP: break-word'><tr><td colspan=7 height=27 class=TBhead> 论坛管理团队</td></tr>"
Response.Write "<tr height=27 align=center><td class=light1>用户名</td><td class=light1>电子邮件</td><td class=light1>头像</td><td class=light1>Oicq</td><td class=light1>头衔</td><td class=light1>等级</td><td class=light1>积分</td></tr>"
if rs.bof and rs.eof then
Response.Write "<tr><td colspan=8 height=27> 没有任何管理人员</td></tr>"
else
rs.movefirst
while not rs.eof
if rs("权限")="admin" then qx="管理员" else qx="版主" end if
Response.Write "<tr height=27><td class=light height=100> <a href=LookUserInfo.asp?username="&rs("用户名")&">"&rs("用户名")&"</a></td><td class=light> "&rs("电子邮件")&"</td><td width=100 align=center class=light><img src=../images/userpic/"&rs("头像ID")&" onload=""javascript:if(this.width>100)this.width=100""></td><td class=light> "&rs("Oicq")&"</td><td class=light> "&qx&"</td><td class=light> "&rs("等级")&"</td><td class=light align=center>"&rs("积分")&"</td></tr>"
rs.movenext
wend
end if
Response.Write "</table>"
rs.close
set rs=nothing
case 10
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select 用户名,电子邮件,头像ID,Oicq,权限,等级,积分,主题数,回复数 from 用户资料 order by 积分 desc "
rs.open sql,conn,1,1
Response.Write "<br><table border=1 width=550 cellspacing=0 cellpadding=0 align=center class=table1><tr><td colspan=8 height=27 class=tbhead> 会员排行榜 Top-10</td></tr>"
Response.Write "<tr height=27 align=center><td class=light1>用户名</td><td class=light1>电子邮件</td><td width=100 class=light1>头像</td><td class=light1>头衔</td><td class=light1>等级</td><td class=light1>主题数</td><td class=light1>回帖数</td><td class=light1>积分</td></tr>"
if rs.bof and rs.eof then
Response.Write "<tr><td colspan=8 height=27> 没有任何会员</td></tr>"
else
rs.movefirst
i=0
while not rs.eof and i<10
i=i+1
if rs("权限")="admin" then qx="管理员" else if rs("权限")="bbsadmin" then qx="版主" else qx="注册用户" end if end if
Response.Write "<tr height=27><td class=light> <a href=LookUserInfo.asp?username="&rs("用户名")&">"&rs("用户名")&"</a></td><td class=light> "&rs("电子邮件")&"</td><td width=100 align=center class=light><img src=../images/userpic/"&rs("头像ID")&" onload=""javascript:if(this.width>100)this.width=100""></td><td class=light> "&qx&"</td><td class=light> "&rs("等级")&"</td><td class=light> "&rs("主题数")&"</td><td class=light> "&rs("回复数")&"</td><td class=light> "&rs("积分")&"</td></tr>"
rs.movenext
wend
end if
Response.Write "</table>"
rs.close
set rs=nothing
case 11
Response.Write "</form><form name=lookuser action=Lookuserinfo.asp>"
Response.Write "<br><br> 请输入要查找的用户名 <input type=text name=username size=20> "
Response.Write "<input type=Submit value=查找 name=lookok>"
end select
conn.close
set conn=nothing
EndTime = Timer()
%>
</td></tr>
</table>
<!--#include file="../inc/tom1.inc"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -