0

我已经在使用 Classis ASP 的网站上工作了一段时间（在我自己的个人服务器上），但是我遇到了一个绊脚石。我正试图让分页工作，但由于某种原因，页面上没有显示任何内容，我根本无法理解。基本上，该网站是一个广告板，在一个页面上显示每种项目类型的总数，单击该页面并显示这些项目但对它们进行分页。

<%
    If (Request.QueryString("type") <> "" ) Then
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.Open "select s.Unique_ID, s.Location,s.Extension,s.Item,s.Description,s.Price,s.Date_On_Sale,s.Type, s.Name, s.Date_Posted " & _
        " from tblSales s where Lower(s.Type) = Lower('" & Request.QueryString("type") &  "')" , objconn, 3, 3

        If (rs.BOF or rs.EOF) Then StrMsg = "<font color='red'> <b> System found no results for <u> " & Request.QueryString("type") & " </u>  </b></font>"
    End If
%>

<%response.Write(strQuery) %>  
<div id="midrow" style="clear:both;"> 
    <div class="center">     
         <p>To view the details of an item, simply click on desired item</p>
    </div>
</div>

<div class="board_bottomrow">
    <div class="center">



<% If StrMsg <> "" Then
Response.Write(StrMsg)
Else
      Dim bShowPages 
      rs.PageSize = 20
      nPageCount = rs.PageCount
      If nPageCount <2 Then 
      bShowPages = false 
      Else bShowPages = true 
      End If

      nPage = CLng(Request.QueryString("Page"))
      If (Request.QueryString("Page") = "") Then nPage = 1
      If nPage < 1 Or nPage > nPageCount Then
  nPage = 1
      End If

      item_type = Request.QueryString("type")

      rs.AbsolutePage = nPage

      %>

<div> <b>  <%= Request.QueryString("type") %> Items </b>  </div>
<br>

<table class="table_border" cellpadding="5" cellspacing="5" border="0" style="width:950px" id="items" >

<thead>
<th style="text-align:left"> <b> <font size="2"> Item  </font> </b> </th>
<th style="text-align:left"> <b> <font size="2">  Description </font> </b> </th>
<th style="text-align:left;"> <b> <font size="2"> Price </font> </b> </th>
<th style="text-align:left;"> <b> <font size="2"> Posted By  </font> </b> </th>
<th style="text-align:left;"> <b> <font size="2"> Extension </font> </b> </th>
<th style="text-align:left;"> <b> <font size="2"> Posted On  </font> </b> </th>
</thead>


<tbody>


<% 
  Response.Write(rs.AbsolutePage)
    While Not (rs.Eof Or rs.AbsolutePage <> nPage) %>
   <tr style="vertical-align:top">
<td> <a href='Board_Item.asp?link_id=<%=rs("Unique_ID")%>'> <%= rs("Item") %> </a> </td>
<td style="width:350px"> <%= rs("Description") %>  </td>
<td style="margin-left:10px"> £ <%= rs("Price") %> </td>
<td> <%= rs("Name") %> </td>
<td> <%= rs("Extension") %> </td>
<td> <%= rs("Date_Posted") %> </td>

  </tr>
 <%
rs.MoveNext()
  Wend  

 'Response.Write ("bShowPages " & bShowPages)
 %>


<!-- show pages only if pageCount > 1 -->
<%If bShowPages <> false Then%>
<tr style="background-color:#f1f1f1">
<td> Pages:  </td> <td colspan="5"> 
 <a href='Items.asp?type=<%=item_type%>&Page=1'> First </a>  
<a href='Items.asp?type=<%=item_type%>&Page=<%=nPage - 1%>'> Prev </a>  
<a href='Items.asp?type=<%=item_type%>&Page=<%=nPage + 1%>'> Next </a> 
 <a href='Items.asp?type=<%=item_type%>&Page=<%=nPageCount%>'> Last </a> 
 <td> </td>
  </tr>

  </tbody>
 </table>
 <%End If%>

<% End If %>


</div>

<br>

我很清楚样本中有一些错误的编码，但目前这对我来说是一个个人学习项目，如果有人能明白为什么这些记录不会显示 id，那就太好了。页码全部显示，只是没有记录。谢谢。

4

0 回答 0