排序方式解决“上下主题”问题（2）

     <%
  Const adOpenStatic = 3
  Const adLockPessimistic = 2
  Set conn = Server.CreateObject("ADODB.Connection")
  Set RS = Server.CreateObject("ADODB.Recordset")
  DBPath=Server.MapPath("../fpdb/massege.mdb")
  conn.Open "DRIVER={Microsoft Aclearcase/" target="_blank" >ccess Driver (*.mdb)};dbq="& DBPath
  SQLcmd="Select * From MASSEGE Order By A_OrderID Desc"
  RS.Open SQLcmd,conn,adOpenStatic,adLockPessimistic
  page = CLng(Request("txtpage"))
  RS.PageSize = 30
  If Page < 1 Then Page = 1
  If page > RS.PageCount Then page = RS.PageCount
  RS.AbsolutePage = page
  %>
  <form action="main.asp" method="get">
  <table align="center" border="0" cellspacing="0" cellpadding="0">
   <tr>
   <td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><a href="speak.asp" target="rbottom"><font color="#0000FF">发言</font></a></td>
   <td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><a href="main.asp"><font color="#0000FF">刷新</font></a></td>
   <td height="1" style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">留言笔数:<%=RS.RecordCount%></font></td>
   <td height="1" style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">总页数:<%=RS.PageCount%></font></td>
   <td height="1" style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">目前页次:<%=page%></font></td>
   <td valign="top" align="left" height="1" style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">转到<input type="text" name="txtpage" size="2" style="font-size: 8pt; border-style: dotted; border-width: 1">页</font></td>
  <td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00">
  <font color="#0000FF">
  <%
  If page <> 1 Then
   Response.Write"<a href=main.asp?txtpage=1>第一页</a>"%></font></td>
   <td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00">
   <font color="#0000FF">
   <%Response.Write"<a href=main.asp?txtpage="&(page - 1)&">上一页</a>"%></font></td>
  <%
  End If
  If page <>RS.PageCount Then%><td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00">
   <font color="#0000FF">
   <%Response.Write"<a href=main.asp?txtpage="&(page + 1)&">下一页</a>" %></font></td>
   <td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF"><%Response.Write"<a href=main.asp?txtpage="&RS.PageCount&">最后一页</a>"
  End If
  %></font></td>
  <td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><a href="pob_massege.asp"><font color="#0000FF">精华</font></a></td>
  <td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><a href="baoqian.htm"><font color="#0000FF">检索</font></a></td>
  <%
  If Application("Ukingliu")="kingliu" Then
   aaa="on"
  Else
   aaa="off"
  End If
  %>
   <td style="border-left: 1 solid #FFFF00; border-right: 1 solid #FFFF00; border-bottom: 2 solid #FFFF00"><font color="#0000FF">本版斑竹：<a href="mailto:kingliuzk@chinaren.com">沧海为水</a><img src="../images/<%=aaa%>.gif" width="15" height="15"></font></td>
   </tr>
  </table>
  </form>
  <%For ipage = 1 To RS.PageSize%>
  .
  .
  .
  （缩进，省略）
  face=RS("A_Face")
  mmm=gif&""&face&".gif"
  %>
  <table align="center" border="0" cellspacing="1" width="750" bgcolor="#BEBEDC">
   <tr>
   <td style="border-bottom: 1 solid #FFFF00"><%=aaa%>
   <ul>
   <li><img src="../images/<%=mmm%>"><a href="massege.asp?txtID=<%=RS("A_ID")%>" target="rbottom"><%=Server.HTMLEncode(RS("A_Subject"))%></a>
   <%
   If RS("A_Text")="" Then
   Response.Write"<无内容>"
   End If
   %>
   {ID:<%=RS("A_ID")%>}【<%=RS("A_Name")%>ID:<%=RS("A_NID")%>】<<%=RS("A_Time")%>>『点击：<%=RS("A_Times")%>』</td>
   </tr>
  </table>
  <%
   RS.MoveNext
   If RS.EOF Then Exit For
   Next
  RS.Close
  conn.Close
  
  
  
  

原文转自：http://www.ltesting.net