showtitle.asp

ASPTest 网络基础网页设计

<%
conSize = 10 '定义每页显示记录数的变量

If Request("BoardName") <> "" Then
  Session("BoardName") = Request("BoardName")
End If

Set rsArticle = Server.CreateObject("ADODB.RecordSet")
Set rsBoard = Server.CreateObject("ADODB.RecordSet")
Set rsReplyCount = Server.CreateObject("ADODB.RecordSet")
Set rsReplyLast = Server.CreateObject("ADODB.RecordSet")
Set rsUser = Server.CreateObject("ADODB.RecordSet")

rsArticle.PageSize = conSize
rsArticle.Open "SELECT * FROM Lily_Article WHERE BoardName='"&Session("BoardName")&"' ORDER BY PostTime DESC",cn,3,1
rsBoard.Open "SELECT * FROM Lily_Board WHERE BoardName='"&Session("BoardName")&"'",cn

If Len(Request("page")) = 0 Then
  iPage = 1
Else
  iPage = Request("page")
End If

If Not rsArticle.Eof Then
  rsArticle.AbsolutePage = iPage
End If
%>
<table border="0" cellpadding="0" cellspacing="0" width="760" height="41" align="center">
  <tr>
    <td width="33%" height="41"><a href="PostNew.asp"><img border="0" src="Images/postnew.gif"></a></td>
    <td width="33%" height="41" align="right">
      <%=Session("BoardName")%>版主列表：
    </td>
    <td width="34%" height="41">
      <%    
      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>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" align="center" height="46">
  <tr>
    <td width="177" height="19" align="center" bgcolor="#003366">
    <p align="left"><font color="#FFFFFF" size="2">主题</font></td>
    <td width="114" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">作者</font></td>
    <td width="153" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">发表时间</font></td>
    <td width="31" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">阅读</font></td>
    <td width="30" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">回复</font></td>
    <td width="144" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">最后回复时间</font></td>
    <td width="66" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">最后回复人</font></td>
  </tr>
  <%
  For i = 1 To rsArticle.PageSize
    If Not rsArticle.Eof Then
      rsUser.Open "SELECT UserID,UserNick FROM Lily_Users WHERE UserID='"&rsArticle("UserID")&"'",cn
      rsReplyCount.Open "SELECT Count(ReplyID) FROM Lily_Reply WHERE ArticleID="&rsArticle("ArticleID"),cn
      rsReplyLast.Open "SELECT * FROM Lily_Reply WHERE ArticleID="&rsArticle("ArticleID")&" ORDER BY PostTime DESC",cn
      %>   
  <tr>
    <td width="177" height="26">
      <a href=ContentList.asp?ArticleID=<%=rsArticle("ArticleID")%>><%=rsArticle("Title")%></a>　
    </td>
    <td width="114" height="26" bgcolor="#E6ECF9">
      <a href=UserInfo?UserID=<%=rsUser(0)%>><%=rsUser(0)%>（<%=rsUser(1)%>）</a>　
    </td>
    <td width="153" height="26">
      <%=rsArticle("PostTime")%>  　
    </td>
    <td width="31" height="26" bgcolor="#E6ECF9">
      <%=rsArticle("ReadCount")%>
    </td>
    <td width="30" height="26">
      <%=rsReplyCount(0)%>　
    </td>
    <td width="144" height="26" bgcolor="#E6ECF9">
      <%
      If Not rsReplyLast.Eof Then
        Response.Write rsReplyLast("PostTime")
      End If
      %>　
    </td>
    <td width="66" height="26">
    　<%
      If Not rsReplyLast.Eof Then
        Response.Write "<a href=UserInfo.asp?UserID="&rsReplyLast("UserID")&">"&rsReplyLast("UserID")&"</a>"
      End If
      %>
    </td>
  </tr>
      <%
      rsUser.Close
      rsReplyCount.Close
      rsReplyLast.Close
      rsArticle.MoveNext
    End If
  Next  
  %>
  <tr>
    <td width="177" height="19" align="center" bgcolor="#003366">
    <p align="left"><font color="#FFFFFF" size="2">主题</font></td>
    <td width="114" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">作者</font></td>
    <td width="153" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">发表时间</font></td>
    <td width="31" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">阅读</font></td>
    <td width="30" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">回复</font></td>
    <td width="144" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">最后回复时间</font></td>
    <td width="66" height="19" align="center" bgcolor="#003366">
    <font color="#FFFFFF" size="2">最后回复人</font></td>
  </tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" width="760" align="center">
  <tr>
    <td width="100" height="30">
    当前页为第<%=iPage%>页
    </td>
    <td width="258" height="30">　</td>
    <td width="402" height="30" align="right">
      <% 
      If CInt(iPage) = 1 Then '第一页不需显示的两个链接，直接输出字符串
      %>
      第一页 | 上一页 |
      <% 
      Else 
      %>
      <a href="TitleList.asp?page=1">第一页</a>|
      <a href="TitleList.asp?page=<% = iPage - 1 %>"> 上一页 </a>|
      <% 
      End If 
      %>
      <% 
      If CInt(iPage) = CInt(rsArticle.PageCount) Then '同第一页
      %>
      下一页 | 最后一页
      <% 
      Else 
      %>
      <a href="TitleList.asp?page=<% = iPage + 1 %>"> 下一页 </a>|
      <a href="TitleList.asp?page=<% = rsArticle.PageCount %>"> 最后一页</a>
      <% 
      End If 
      %>
    </td>
  </tr>
  
</table>


<%
rsArticle.Close
rsBoard.Close
Set rsArticle = Nothing
Set rsBoard = Nothing
Set rsReplyCount = Nothing
Set rsReplyLast= Nothing
Set rsUser = Nothing
%>