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

📄 list.asp

📁 5237 论坛.rar
💻 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" -->
<%
State="浏览版面列表"
%>
<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%>">
<!--#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 width="40%">&nbsp;您所在的位置： <a href="../" onfocus="this.blur()">首页</a> 
            &gt;&gt; 
            <%
			If Request("T")="" Then
			Response.Write "<font color='"&Forum_ColorList_NavFontColor&"'>讨论组</font>"
			Else
			Set rsGetType = Server.CreateObject("ADODB.Recordset")
            Sql = "Select rTypeName From tTypeManage Where rID="&Request("T")
            rsGetType.Open Sql,ConnY,3,3
			If rsGetType.Eof And rsGetType.Bof Then Response.Redirect "Error.asp?Error=1"
			Response.Write "<a href='List.asp' onFocus='this.blur()'>讨论组</a> &gt;&gt; <font color='"&Forum_ColorList_NavFontColor&"'>"&rsGetType("rTypeName")&"</font>"
			rsGetType.Close
			Set rsGetType=Nothing
			End If
			%>
          </td>
          <td width="30%"></td>
          <td width="30%"> 
            <div align="right"><img src="<%=Forum_Pic_Open%>" width="15" height="14" border="0" alt="显示个人工具箱" onClick="ShowInfo()" style="CURSOR: hand" align="texttop"></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="1" cellpadding="0" align="center" id=info bgcolor="<%=Forum_ColorList_BorderColor%>">
  <tr>
    <td valign="top" bgcolor="<%=Forum_ColorList_BgColor%>"><!--#include file="Inc/Tools.asp" --></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=infoborder>
  <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_BroadColor%>"> 
    <td colspan="6" height="16"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td width="12%"><img src="<%=Forum_Pic_Announce%>" width="20" height="16" align="absbottom"> 
            论坛公告：</td>
          <td><!--#include file="Inc/SystemBroad.asp" --></td>
          <td width="40%"> 
            <%
		    Set rsNewUser = Server.CreateObject("ADODB.Recordset")
            Sql = "Select Top 2 *  From tUserManage Where rUserID<>'admin' And rUserID<>'Guest' Order By rRegTime Desc"
            rsNewUser.Open Sql,ConnY,3,3
		    %>
            <div align="right">欢迎新用户: 
              <%
			While Not rsNewUser.Eof And Not rsNewUser.Bof
			Response.Write "<a href='User.asp?I="&rsNewUser("rNickName")&"' onfocus='this.blur()'>"&rsNewUser("rNickName")&"</a> "
			rsNewUser.MoveNext
			Wend
			If rsNewUser.Eof And rsNewUser.Bof Then
			Response.Write "暂无"
			End If
			rsNewUser.Close
			Set rsNewUser=Nothing
			%>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_ColorList_BgColor%>"> 
    <td width="4%" height="18"> 
      <div align="center"> 
      <%
	  If Request.QueryString("T")<>"" Then
      Response.Write "<a href='List.asp' onFocus='this.blur()'>&lt;-</a>"
      Else 
      Response.Write "&nbsp;"
      End If
	  %>
      </div>
    </td>
    <td width="45%" height="20"> 
      <div align="center">讨论组版面</div>
    </td>
    <td width="7%" height="20"> 
      <div align="center">主题数</div>
    </td>
    <td width="7%" height="20"> 
      <div align="center">回复数</div>
    </td>
    <td width="17%" height="20"> 
      <div align="center">最新话题</div>
    </td>
    <td width="16%" height="20"> 
      <div align="center">版主</div>
    </td>
  </tr>
  <%
  Set rsType = Server.CreateObject("ADODB.Recordset")
  If Request.QueryString("T")="" Then
  Sql = "Select *  From tTypeManage Order By rID"
  Else
  Sql = "Select *  From tTypeManage Where rID="&Request.QueryString("T")
  End If
  rsType.Open Sql,ConnY,3,3
  TypeTotal=rsType.RecordCount
  While Not rsType.Eof And Not rsType.Bof
  %>
  <tr bgcolor="<%=Forum_ColorList_AlternateColor1%>" valign="bottom"> 
    <td colspan="6" height="18">&nbsp;·<%=rsType("rTypeName")%>·</td>
  </tr>
  <%
  Set rsSubject = Server.CreateObject("ADODB.Recordset")
  Sql = "Select *  From tSubjectManage"
  rsSubject.Open Sql,ConnY,3,3
  SubjectTotal=rsSubject.RecordCount
  rsSubject.Close
  Sql = "Select *  From tSubjectManage Where rType="&rsType("rID")&" Order By rID"
  rsSubject.Open Sql,ConnY,3,3
  While Not rsSubject.Eof And Not rsSubject.Bof
  %>
  <tr bgcolor="<%=Forum_ColorList_BgColor%>"> 
    <td width="4%"> 
      <div align="center"><img src="<%=rsSubject("rPic")%>"></div>
    </td>
    <td width="45%"> 
      <table width="100%" border="0" cellspacing="1" cellpadding="0" class="font">
        <tr> 
          <td valign="top">
		  <%
		  Response.Write "<a href='Board.asp?S="&rsSubject("rID")&"' onFocus='this.blur()'>"&rsSubject("rName")&"</a>"
		  %></td>
        </tr>
        <tr> 
          <td valign="bottom" height="16"><font color="<%=Forum_ColorList_UFontColor%>"><%=rsSubject("rIntroduction")%></font></td>
        </tr>
      </table>
    </td>
    <%
	Set rsArticle = Server.CreateObject("ADODB.Recordset")
	Sql = "Select *  From tArticleManage"
    rsArticle.Open Sql,ConnY,3,3
	ArticleTotal=rsArticle.RecordCount
	rsArticle.Close
	Sql = "Select *  From tArticleManage Where rRepID<>0"
    rsArticle.Open Sql,ConnY,3,3
	NewTopicTotal=rsArticle.RecordCount
	rsArticle.Close
    Sql = "Select *  From tArticleManage Where rSubject="&rsSubject("rID")&" And rRepID=0"
    rsArticle.Open Sql,ConnY,3,3
	ThemeTotal=rsArticle.RecordCount
	%>
    <td width="7%"> 
      <div align="center"><%=ThemeTotal%></div>
    </td>
    <%
	rsArticle.Close
	Sql = "Select *  From tArticleManage Where rSubject="&rsSubject("rID")&" And rRepID<>0"
	rsArticle.Open Sql,ConnY,3,3
	ThemeTotal=rsArticle.RecordCount
	%>
    <td width="7%"> 
      <div align="center"><%=ThemeTotal%></div>
    </td>
    <%
	rsArticle.Close
	Sql = "Select Top 1 *  From tArticleManage Where rSubject="&rsSubject("rID")&" Order By rPostTime Desc"
	rsArticle.Open Sql,ConnY,3,3
	%>
    <td width="17%"> 
      <%
	If Not rsArticle.Eof And Not rsArticle.Bof Then
	%>
      <table width="100%" border="0" cellspacing="1" cellpadding="0" class="font">
        <tr> 
          <td width="90%" valign="top"> 
            <div align="right"><%=TimeNoSecond(rsArticle("rLastReplyTime"))%></div>
          </td>
          <td height="17" rowspan="2"> 
            <div align="right"><a href="Jump.asp?I=<%=rsArticle("rID")%>" onFocus="this.blur()"><img src="<%=Forum_Pic_Jump%>" width="10" height="10" border="0" alt="<%=rsArticle("rTitle")%>"></a></div>
          </td>
        </tr>
        <tr> 
          <td width="90%" height="16" valign="bottom"> 
            <div align="right">由<a href="User.asp?I=<%=rsArticle("rPosterNickName")%>" onFocus="this.blur()"><%=rsArticle("rPosterNickName")%></a>发表</div>
          </td>
        </tr>
      </table>
      <%
	  Else 
	  %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
        <tr> 
          <td height="24" valign="bottom"> 
            <div align="center">无最新发表</div>
          </td>
        </tr>
      </table>
      <%
	  End If
	  rsArticle.Close
	  %>
    </td>
    <td width="16%"> 
      <div align="center"> 
        <%
	Set rsHost = Server.CreateObject("ADODB.Recordset")
    Sql = "Select *  From tUserManage Where rHost="&rsSubject("rID")&" Order By rExp Desc"
    rsHost.Open Sql,ConnY,3,3
	If rsHost.Eof And rsHost.Bof Then
    Response.Write "暂无版主"
	Else
	While Not rsHost.Eof And Not rsHost.Bof
	Response.Write "<a href='User.asp?I="&rsHost("rNickName")&"' onFocus='this.blur()'>"&rsHost("rNickName")&"</a> "
	rsHost.MoveNext
	Wend
    End If
    rsHost.Close
	%>
      </div>
    </td>
  </tr>
  <%
  rsSubject.MoveNext
  Wend
  rsSubject.Close
  rsType.MoveNext
  Wend
  rsType.Close
  Set rsType=Nothing
  %>
  <tr bgcolor="<%=Forum_ColorList_AlternateColor1%>"> 
    <td colspan="6"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="font">
        <tr bgcolor="<%=Forum_ColorList_AlternateColor1%>"> 
          <td> 
            <div align="left"></div>
          </td>
          <td height="18" width="500"> 
            <div align="right">栏目总数: <%=TypeTotal%>　 版面总数: <%=SubjectTotal%>　 
              主题贴子: <%=NewTopicTotal%>　 帖子总数: <%=ArticleTotal%></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</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>

⌨️ 快捷键说明

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