📄 viewuser.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="top.asp" -->
<!--#include file="ubb.asp" -->
<% cpbtitle="查看会员"
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
if h_viewcpb=1 and isuser=false then response.redirect("login.asp")
if h_viewuser=1 and isuser=false then
errornum=1
errormsg="<li>很抱歉,客人不允许浏览会员资料,请先<a href=reg.asp>注册</a>或者<a href=login.asp>登陆</a></li>"
end if
if errornum=1 then
call error(errormsg)
call login()
call bq()
response.end
end if
fusername=chktopic(Request.QueryString("username"))
if fusername<>"" then
dim u_deltopic,u_toptopic,msn,u_todaytime,h_birder,sex,u_logintimes,lastsendtime,u_todaysend,fen,u_lastlogin,time,username,send,home,imgwidth,u_name,imgheight,imghead,address,u_weiwang,u_beauty,u_money,sign,grade,qq,email,face
sqledit="select u_deltopic,u_toptopic,msn,u_todaytime,h_birder,sex,u_logintimes,lastsendtime,u_todaysend,fen,u_lastlogin,time,username,send,home,imgwidth,u_name,imgheight,imghead,address,u_weiwang,u_beauty,u_money,sign,grade,qq,email,face from user where username='"&fusername&"'"
set rs_user=conn.execute(sqledit)
if rs_user.eof and rs_user.bof then
errornum=1
errormsg="<li>无此用户,可能不存在或者被管理员删除</li>"
call error(errormsg)
call bq()
response.end
end if
fyusername=rs_user("username")
fysex=rs_user("sex")
fysign=rs_user("sign")
fyimghead=chkimg(rs_user("imghead"))
fyimgwidth=rs_user("imgwidth")
fyimgheight=rs_user("imgheight")
fyaddress=rs_user("address")
fygrade=rs_user("grade")
fyweiwang=rs_user("u_weiwang")
fyfen=rs_user("fen")
fybeauty=rs_user("u_beauty")
fymoney=rs_user("u_money")
fyhome=rs_user("home")
fyname=rs_user("u_name")
fyqq=rs_user("qq")
fymsn=rs_user("msn")
fyemail=rs_user("email")
fyface=rs_user("face")
fysend=rs_user("send")
fytime=year(rs_user("time"))&"-"&month(rs_user("time"))&"-"&day(rs_user("time"))
fydeltopic=rs_user("u_deltopic")
fytoptopic=rs_user("u_toptopic")
fylastlogin=rs_user("u_lastlogin")
fylogintimes=rs_user("u_logintimes")
fylastsend=rs_user("lastsendtime")
fytodaysend=rs_user("u_todaysend")
fysex=rs_user("sex")
fybirder=rs_user("h_birder")
fyhiddenemail=rs_user("u_todaytime")
fysign=rs_user("sign")
%>
<center>
<table table border=0 cellspacing=0 cellPadding=1 class=tb2>
<tr>
<td align="left" valign=top width="100%">
<table border=1 borderColor=<%=tdc2%> cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse">
<tr align="center">
<td nowrap <%=tColor%> class=tdc1 height="23" align="center" colspan=2>
用户 <%=fusername%> 的资料</td>
</tr>
<tr><td height="23" bgcolor=<%=tColor1%> class=tdc colspan=2> <img src=image/todaytopic.gif>
<b>社区资料</b></td></tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23 width=50%>
<B>用户名称：</b><%=fyusername%>
</td>
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23 width=50%>
<B>总共发贴</B>：<%=fysend%></td> </tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>用户头衔：</b><%=fyname%>
</td>
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>精华帖数</B>：<%=fytoptopic%></td> </tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23>
<B>用户等级</B>：<%sql_fen = "select g_title from grade where g_num="&fygrade&""
set rs_fen =conn.Execute (sql_fen)
if not rs_fen.eof then
response.write(rs_fen("g_title"))
end if
set rs_fen=nothing
%>
</td>
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23>
<B>被删帖数：</b><%=fydeltopic%>
</td> </tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>用户性别</B>：<%=fysex%>
</td>
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>用户经验：</b><%=fyfen%>
</td> </tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23>
<B>注册时间</B>：<%=fytime%>
</td>
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23>
<B>用户财产</B>：<%=fymoney%>
</td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>最后登陆</B>：<%=fylastlogin%>
</td>
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>用户魅力：</b><%=fybeauty%> </td> </tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23>
<B>最后发帖：</b><%=fylastsend%>
</td>
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23>
<B>用户威望：</b><%=fyweiwang%>
</td> </tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>今日发帖</B>：<%=fytodaysend%>
</td>
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>登陆次数：</b><%=fylogintimes%>
</td> </tr>
</table>
</td>
</tr><tr>
<td align="right" valign=top width="100%">
<table border=1 borderColor=<%=tdc2%> cellPadding=1 cellSpacing=1 width="100%" style="border-collapse: collapse">
<tr><td height="23" bgcolor=<%=tColor1%> class=tdc colspan=2> <img src=image/todaytopic.gif>
<b>联系资料</b></td></tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23 width=50%>
<B>电子邮件：</b><%if fyhiddenemail=1 then
response.write("隐藏")
else
response.write("<a href=mailto:"&fyemail&">"&fyemail&"</A>")
end if
%> </td>
<td bgcolor=<%=tColor2%> class=tdc height=138 width=50% rowspan="6" valign="top">
<b>用户头像</b><BR>
<% if fyimghead<>"" then
response.write("<img src="&fyimghead&" width="&fyimgwidth&" height="&fyimgheight&">")
else
response.write("<img src="&fyface&">")
end if%> </td> </tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>个人主页</B>：<a href="<%=fyhome%>" target=_blank><%=fyhome%></a>
</td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23 width=50%>
<B>O I C Q</B>：<%=fyqq%>
</td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>出生日期：</b><%=fybirder%>
</td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23 width=50%>
<B>用户来自</B>：<%=fyaddress%>
</td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
<B>当前在线：</b> <%
sqlo="select o_username from online where o_username='"&fyusername&"'"
set rso=conn.execute(sqlo)
if rso.bof or rso.eof then
response.write"不在线"
else
response.write"在线"
end if %> </td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23 width=50%>
</td>
<td bgcolor=<%=tColor2%> class=tdc align="left" height=69 width=50% rowspan="5" valign="top">
<b>用户签名:</b><BR><%if fysign<>"" then response.write(ubbsign(fysign))%></td> </tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23>
</td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23 width=50%>
</td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="left" height=23 width=50%>
</td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc align="left" height=23 width=50%>
</td>
</tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc align="center" height=23 colspan=2>
|
<a href="pm.asp?mode=add&action=add&username=<%=fyusername%>" title="点击发消息给<%=fyusername%>">用论坛短消息联系 <%=fyusername%></a> |
<a href="friend.asp?action=add&u_friendname=<%=fyusername%>" title="添加<%=fyusername%>到好友列表">添加 <%=fyusername%> 到好友列表</a> |
<a href="friend.asp?action=add1&u_friendname=<%=fyusername%>" title="添加<%=fyusername%>到忽略列表">添加 <%=fyusername%> 到忽略列表</a> |
<a href="todaytopic.asp?username=<%=fyusername%>" title="查看<%=fyusername%>发表的所有主题">查看 <%=fyusername%> 发表的所有主题</a>
</td>
</tr>
<tr>
<td bgcolor=<%=tColor1%> class=tdc height=23 colspan=2 > <b>==>用户 <%=fyusername%> 最近发表的主题</b></td>
</tr>
<% sql = "select top 10 t_id,l_id,t_title,t_time from topic where t_username='"&fusername&"' and t_lock<>2 order by t_lasttime desc"
set rs=conn.execute(sql)
do while not rs.eof %>
<tr>
<td bgcolor=<%=tColor2%> class=tdc height=23 colspan=2 >□ <a href=topic.asp?l_id=<%=rs("l_id")%>&t_id=<%=rs("t_id")%> title=<%=HTMLEncode(rs("t_title"))%>><%=left(HTMLEncode(rs("t_title")),40)%>...</a>--<%=rs("t_time")%></td>
</tr>
<%
rs.MoveNext
loop
set rs=nothing
%>
</table>
</td></tr>
</table>
<% rs_user.close
set rs_user=nothing
end if%><!--#include file="bq.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -