showboard.asp

ASPTest 网络基础网页设计

<table border="1" cellpadding="0" cellspacing="0" width="760" style="border-collapse: collapse" bordercolor="#111111" align="center">

  <tr>
    <td width="387" colspan="2" bgcolor="#003366" height="20">
      <font color="#FFFFFF">论坛</font>
    </td>
    <td width="59" bgcolor="#003366" height="20">
      <font color="#FFFFFF">主题</font>
    </td>
    <td width="51" bgcolor="#003366" height="20">
      <font color="#FFFFFF">回复</font>
    </td>
    <td width="263" bgcolor="#003366" height="20">
      <font color="#FFFFFF">版主</font>
    </td>
  </tr>

<%
Dim rsArea,rsBoard,rsArticle,rsReply

Set rsArea = Server.CreateObject("ADODB.RecordSet")
Set rsBoard = Server.CreateObject("ADODB.RecordSet")
Set rsArticle = Server.CreateObject("ADODB.RecordSet")
Set rsReply = Server.CreateObject("ADODB.RecordSet")

'循环以遍历所有讨论区
rsArea.Open "SELECT * FROM Lily_Area ORDER BY AreaID",cn
Do While Not rsArea.Eof
%>

  <tr>
    <td width="760" colspan="5" bgcolor="#1E3A75" height="20">
      <font color="White"><% =rsArea("AreaName") %></font>　
    </td>
  </tr>

  <tr>
    <td width="760" colspan="5" height="20">　</td>
  </tr>
  
<%
  rsBoard.Open "SELECT * FROM Lily_Board WHERE AreaID="&rsArea("AreaID")&" ORDER BY BoardID",cn
  '循环以遍历某一讨论区所有版面
  Do While Not rsBoard.Eof
    rsArticle.Open "SELECT Count(ArticleID) FROM Lily_Article " & _
      "WHERE BoardName='" & rsBoard("BoardName") & "'",cn
    rsReply.Open "SELECT Count(ReplyID) FROM Lily_Reply WHERE "& _
      "BoardName='"&rsBoard("BoardName")&"'",cn 
%>
  
  <tr>
    <td width="80" bgcolor="#FFFFFF" height="20">　</td>
    <td width="307" bgcolor="#B5C7EC" height="20">
      <a href="TitleList.asp?BoardName=<% =rsBoard("BoardName") %>">
      <% =rsBoard("BoardName") %></a>　
    </td>
    <td width="59" bgcolor="#D8E1F5" height="20">
      <% =rsArticle(0) %>　
    </td>
    <td width="51" bgcolor="#B5C7EC" height="20">
      <% =rsReply(0) %>　
    </td>
    <td width="263" bgcolor="#D8E1F5" height="20">
<%    If IsNull(rsBoard("Manager1")) Then
        Response.Write "暂无版主，欢迎申请"
      Else
        Response.Write "<a href=UserInfo.asp?UserID="& _
        rsBoard("Manager1")& ">"&rsBoard("Manager1")&"</a>"
        If Not IsNull(rsBoard("Manager2")) Then
          Response.Write "|<a href=UserInfo.asp?UserID="& _
          rsBoard("Manager2")&">"&rsBoard("Manager2")&"</a>"
        End If
        If Not IsNull(rsBoard("Manager3")) Then
          Response.Write "|<a href=UserInfo.asp?UserID="& _
          rsBoard("Manager3")&">"&rsBoard("Manager3")&"</a>"
        End If
      End If
%> 　
    </td>
  </tr>
<%
    rsArticle.Close
    rsReply.Close
    If Not rsBoard.Eof Then rsBoard.MoveNext
  Loop  
%>    
  <tr>
    <td width="760" colspan="5" height="20">　</td>
  </tr>
<%
  rsBoard.Close
  If Not rsArea.Eof Then rsArea.MoveNext
Loop
rsArea.Close
%>
</table>
<%
Set rsArea = Nothing
Set rsBoard = Nothing
Set rsArticle = Nothing
Set rsReply = Nothing
%>