⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 user.asp

📁 5237 论坛.rar
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
      <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("rIsQuintessence")%></div>
          </td>
          <td width="90%">( 被收录率: 
            <%
				If (rsUserDetail("rPostNum")+rsUserDetail("rReplyNum"))<>0 Then
				If rsUserDetail("rIsQuintessence")=0 Then
				Response.Write "0.00%"
				Else
				Response.Write FormatPercent((rsUserDetail("rIsQuintessence")/(rsUserDetail("rReplyNum")+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> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td><%=TimeAll(rsUserDetail("rRegTime"))%></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 width="11%"> <font color="<%=Forum_ColorList_PFontColor%>"><%=rsUserDetail("rExp")%></font> 
          </td>
          <td width="90%">&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_ColorList_AlternateColor2%>"> 
    <td height="20" width="15%" class="font"> 
      <div align="center">详细地址</div>
    </td>
    <td> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td><%=rsUserDetail("rAddress")%></td>
        </tr>
      </table>
    </td>
    <td width="15%" height="20" class="font"> 
      <div align="center">社区财产</div>
    </td>
    <td width="35%"> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td><%=rsUserDetail("rAssets")&" 吨"%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_ColorList_AlternateColor1%>"> 
    <td height="20" width="15%" class="font"> 
      <div align="center">O I C Q</div>
    </td>
    <td> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td><a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rsUserDetail("rOICQ")%>" target="_blank" onFocus="this.blur()"><%=rsUserDetail("rOICQ")%></a></td>
        </tr>
      </table>
    </td>
    <td width="15%" height="20" class="font"> 
      <div align="center">个人魅力</div>
    </td>
    <td width="35%"> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td><%=rsUserDetail("rGlamour")&" 牛"%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_ColorList_AlternateColor2%>"> 
    <td height="20" width="15%" class="font"> 
      <div align="center">个人主页</div>
    </td>
    <td> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td><a href="<%=rsUserDetail("rHomePage")%>" target="_blank" onFocus="this.blur()"><%=rsUserDetail("rHomePage")%></a></td>
        </tr>
      </table>
    </td>
    <td> 
      <div align="center">社区职务</div>
    </td>
    <td width="35%"> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td> 
            <% 
			Select Case rsUserDetail("rLevel")
			Case 0
			Response.Write ("游客")
			Case 1
            Response.Write ("普通用户")
			Case 2
			Response.Write ManageSubject
			Case 3
			Response.Write ("社区总管")
			Case 4
			Response.Write ("站长")
			End Select
			%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_ColorList_AlternateColor1%>"> 
    <td height="20" width="15%" class="font"> 
      <div align="center">电子信箱</div>
    </td>
    <td> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td><a href="mailto:<%=rsUserDetail("rEmail")%>" onFocus="this.blur()"><%=rsUserDetail("rEmail")%></a></td>
        </tr>
      </table>
    </td>
    <td> 
      <div align="center">用户等级</div>
    </td>
    <td width="35%"> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td> 
            <div align="left"> 
              <%
Set rsLevel = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tLevelManage"
rsLevel.Open Sql,ConnY,3,3
j=0
While Not rsLevel.Eof
If rsUserDetail("rExp")>rsLevel("rExp") Then j=j+1
rsLevel.MoveNext
Wend
rsLevel.Close
If J=0 Then J=J+1
Sql = "Select *  From tLevelManage Where rID="&j
rsLevel.Open Sql,ConnY,3,3
Response.Write rsLevel("rLevelName")
rsLevel.Close
%>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_ColorList_AlternateColor2%>"> 
    <td width="15%" height="20"> 
      <div align="center">个性签名</div>
    </td>
    <td colspan="3"> 
      <table width="100%" border="0" cellspacing="2" cellpadding="0" class="font">
        <tr> 
          <td><%=UBB(rsUserDetail("rPersonality"))%></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="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
  <tr bgcolor="<%=Forum_ColorList_AlternateColor1%>"> 
    <td height="20" width="2%"> 
      <div align="center">新</div>
    </td>
    <td height="20" width="50%">
<div align="right"><a href="Show.asp?I=<%=Request.QueryString("I")%>" onFocus="this.blur()"><font color="<%=Forum_ColorList_PFontColor%>">查看该用户所有帖子</font></a></div>
    </td>
  </tr>
  <%
  Set rsActive = Server.CreateObject("ADODB.Recordset")
  Sql = "Select Top 5 *  From tArticleManage Where rPosterNickName='"&Request.QueryString("I")&"' Order By rPostTime Desc"
  rsActive.Open Sql,ConnY,3,3
  L=1
  While Not rsActive.Eof And Not rsActive.Bof
  %>
  <tr bgcolor="<%
  If L Mod 2 = 0 Then
  Response.Write Forum_ColorList_AlternateColor1
  Else
  Response.Write Forum_ColorList_AlternateColor2
  End If
  %>"> 
    <td width="2%" height="20"> 
      <div align="center"><img src="Images/Mood/<%=rsActive("rEmotion")%>.gif" width="15" height="15" align="absmiddle"></div>
    </td>
    <td height="20">&nbsp; 
      <%
	 If rsActive("rIsNeedPay") And rsActive("rPoster")<>Session("SUserID") Then
	 Response.Write "<a href='javascript:PayAssets("&rsActive("rSubject")&","&rsActive("rID")&","&rsActive("rPayHowMuch")&")' onFocus='this.blur()'>"&CovHtml(rsActive("rTitle"))&"</a>"
	 Else
	 If rsActive("rIsQuintessence") Then LiannTitle="<font color='"&Forum_PFontColor&"'>◎</font>"&LiannTitle
	 Response.Write "<a href='View.asp?S="&rsActive("rSubject")&"&I="&rsActive("rID")&"' onFocus='this.blur()'>"&CovHtml(rsActive("rTitle"))&"</a>"
	 End If
	 Response.Write " <font color='"&Forum_ColorList_UFontColor&"'>["&rsActive("rPostTime")&"]</font>"
	 If rsActive("rReplyNum") Mod Forum_ReplyNum <> 0 Then
	 ReplyPage=Int(rsActive("rReplyNum")/Forum_ReplyNum) + 1
	 Else
	 ReplyPage=Int(rsActive("rReplyNum")/Forum_ReplyNum)
	 End If
	 If ReplyPage>1 Then
	 Response.Write "&nbsp;&nbsp;"
	 Response.Write "<img src='"&Forum_Pic_PageNum&"' width='12' height='14' align='absmiddle'>"
	 For I=1 To ReplyPage
	   If I<4 Then
	   Response.Write " <a href='View.asp?S="&rsActive("rSubject")&"&I="&rsActive("rID")&"&P="&I&"' onFocus='this.blur()'>"&I&"</a>"
	   Else
	   Response.Write " <a href='View.asp?S="&rsActive("rSubject")&"&I="&rsActive("rID")&"&P="&ReplyPage&"' onFocus='this.blur()'>&gt;&gt;</a>"
	   Exit For
	   End If
	 Next
	 End If
	 %>
    </td>
  </tr>
  <%
  rsActive.MoveNext
  L=L+1
  Wend
  rsActive.Close
  %>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=onlineborder>
  <tr> 
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" id=online>
  <tr> 
    <td valign="top" bgcolor="<%=Forum_ColorList_OnlineColor%>"> 
      <!--#include file="Inc/Online.asp" -->
    </td>
  </tr>
</table>
<!--#include file="Inc/Bottom.asp" -->
</body>
</html>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -