📄 user.asp
字号:
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
If Cint(Session("SLevel"))=0 Then Response.Redirect "Error.asp?Error=5"
I=LiannCheckBadWord(Request.QueryString("I"))
Set rsUserDetail = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tUserManage Where rNickName='"&I&"'"
rsUserDetail.Open Sql,ConnY,3,3
If rsUserDetail.Eof And rsUserDetail.Bof Then Response.Redirect "Error.asp?Error=8"
If rsUserDetail("rLevel")=2 Then
Set rsHost = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tSubjectManage Where rID="&rsUserDetail("rHost")
rsHost.Open Sql,ConnY,3,3
ManageSubject="<a href=Board.asp?S="&rsHost("rID")&" onFocus='this.blur()'>"&rsHost("rName")&"版</a> 版主"
rsHost.Close
Set rsHost=Nothing
End If
State="查看用户:"&I&"资料"
%>
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>" onLoad="MM_preloadImages('<%=Forum_Pic_Write2%>','<%=Forum_Pic_Vote2%>')">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr>
<td height="20" bgcolor="<%=Forum_ColorList_BgColor%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
<tr>
<td> 您所在的位置： <a href="../" onfocus="this.blur()">首页</a> >>
<a href="List.asp" onFocus="this.blur()">讨论组</a> >> <font color="<%=Forum_ColorList_NavFontColor%>">用户:<%=I%></font></td>
<td width="50">
<div align="center"><a href=# onClick=history.go(-1) onFocus="this.blur()"><img src="Images/BackTo.gif" width="16" height="16" border="0" align="absmiddle">返回</a>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=infoborder style="DISPLAY: none">
<tr>
<td height=1></td>
</tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
<tr>
<td bgcolor="<%=Forum_ColorList_AlternateColor1%>" colspan="4" height="20">
<table width="100%" border="0" cellspacing="0" class="font" cellpadding="0">
<tr>
<td width="8%"> ·社区信息 </td>
<td width="64%"> </td>
<td width="18%">
<div align="right">| <a href="Post.asp?I=<%=I%>" onFocus="this.blur()"><font color="<%=Forum_ColorList_PFontColor%>">发送信件</font></a>
| <a href="Mail_AddA.asp?I=<%=rsUserDetail("rID")%>" onFocus="this.blur()">加入地址簿</a>
|</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="<%=Forum_ColorList_AlternateColor2%>" rowspan="2" width="15%">
<div align="center">
<%
If rsUserDetail("rPFace")="无" Then
Response.Write "<a href='User.asp?I="&rsUserDetail("rNickName")&"' onFocus='this.blur()'><img src='"&rsUserDetail("rFace")&"' border='0'></a>"
Else
Response.Write "<a href='User.asp?I="&rsUserDetail("rNickName")&"' onFocus='this.blur()'><img src='"&rsUserDetail("rPFace")&"' border='0' Width='"&rsUserDetail("rWidth")&"' Height='"&rsUserDetail("rHeight")&"'></a>"
End If
%>
</div>
</td>
<td bgcolor="<%=Forum_ColorList_AlternateColor2%>" rowspan="2" width="35%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td height="18">
<div align="left">该用户登录过本站<%=rsUserDetail("rLoginNum")%>次.</div>
</td>
</tr>
<tr>
<td height="24" valign="bottom">
<div align="left">上次登录:<%=TimeAll(rsUserDetail("rLastLoginTime"))%></div>
</td>
</tr>
</table>
</td>
<td width="15%" bgcolor="<%=Forum_ColorList_AlternateColor1%>" height="22" class="font">
<div align="center">发表原帖</div>
</td>
<td bgcolor="<%=Forum_ColorList_AlternateColor1%>" width="35%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td>
<div align="left"><%=rsUserDetail("rPostNum")%></div>
</td>
<td width="85%"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="15%" bgcolor="<%=Forum_ColorList_AlternateColor2%>" height="22" class="font">
<div align="center">被删原帖</div>
</td>
<td bgcolor="<%=Forum_ColorList_AlternateColor2%>" width="35%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td>
<div align="left"><%=rsUserDetail("rMainDeleteNum")%></div>
</td>
<td width="90%">( 被删除率:
<%
If rsUserDetail("rPostNum")<>0 Then
If rsUserDetail("rMainDeleteNum")=0 Then
Response.Write "0.00%"
Else
Response.Write FormatPercent((rsUserDetail("rMainDeleteNum")/rsUserDetail("rPostNum")), 2, -2, -2, -2)
End If
Else
Response.Write "0.00%"
End If
%>
)</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<td height="20" width="15%" class="font">
<div align="center">用户编号</div>
</td>
<td width="30%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td><%=rsUserDetail("rID")%></td>
</tr>
</table>
</td>
<td width="15%" height="22" class="font">
<div align="center">回复原帖</div>
</td>
<td width="35%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td>
<div align="left"><%=rsUserDetail("rReplyNum")%></div>
</td>
<td width="90%"> </td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<td height="20" width="15%" bgcolor="<%=Forum_ColorList_AlternateColor2%>" class="font">
<div align="center">用户昵称</div>
</td>
<td width="30%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td><%=rsUserDetail("rNickName")%></td>
</tr>
</table>
</td>
<td width="15%" height="22" class="font">
<div align="center">被删回复</div>
</td>
<td width="35%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td height="16">
<div align="left"><%=rsUserDetail("rReplyDeleteNum")%></div>
</td>
<td width="90%" height="16">( 被删除率:
<%
If rsUserDetail("rReplyNum")<>0 Then
If rsUserDetail("rReplyDeleteNum")=0 Then
Response.Write "0.00%"
Else
Response.Write FormatPercent((rsUserDetail("rReplyDeleteNum")/rsUserDetail("rReplyNum")), 2, -2, -2, -2)
End If
Else
Response.Write "0.00%"
End If
%>
)</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="<%=Forum_ColorList_AlternateColor1%>">
<td height="20" width="15%" class="font">
<div align="center">用户性别</div>
</td>
<td width="30%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td>
<%
Select Case rsUserDetail("rSex")
Case 0
Response.Write("男性")
Case 1
Response.Write("女性")
Case 2
Response.Write("保密")
End Select
%>
</td>
</tr>
</table>
</td>
<td width="15%" height="22" class="font">
<div align="center">被回复数</div>
</td>
<td width="35%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td>
<div align="left"><%=rsUserDetail("rRepliedNum")%></div>
</td>
<td width="90%">( 被回复率:
<%
If rsUserDetail("rPostNum")<>0 Then
If rsUserDetail("rRepliedNum")=0 Then
Response.Write "0.00%"
Else
Response.Write FormatPercent((rsUserDetail("rRepliedNum")/rsUserDetail("rPostNum")), 2, -2, -2, -2)
End If
Else
Response.Write "0.00%"
End If
%>
)</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="<%=Forum_ColorList_AlternateColor2%>">
<td width="15%">
<div align="center">出生年月</div>
</td>
<td width="30%">
<table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
<tr>
<td><%=rsUserDetail("rBirthYear")&"年"&rsUserDetail("rBirthMonth")&"月"&rsUserDetail("rBirthDay")&"日"%></td>
</tr>
</table>
</td>
<td width="15%" height="22" class="font">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -