Question

我做了一个Active Server Page。它在foyerdisplay上运行并显示Meeting。我将显示会议限制为6.我在我的数据库中有15次会议。但是，门厅显示器一次只能显示6个会议。要显示我希望实现分页的其他会议，但我不知道如何。

分页应该自动发生。例如：显示前6个会议10秒，然后10秒，接下来的6个会议，然后10秒，最后3个会议，然后再显示前6个会议，依此类推。

任何人都可以帮助我吗？我不知道该怎么做。谢谢！

 <%
    set rs=Server.CreateObject("ADODB.recordset")
    set rsRaum=Server.CreateObject("ADODB.recordset")

    rs.Open "select distinct buchung_id, von, bis, abteilung, veranstalter, THEMA, THEMA_ENABLED " & _
            "  from RESERVIERUNGRAUM r  " & _
            "      ,BUCHUNG b  " & _
            " where r.BUCHUNG_ID = b.ID " & _
            "   and von >= convert(date, getdate(), 4) " & _
            "   and von < convert(date, dateadd(day,1, GETDATE()), 4) " & _
            "   and BIS >= getdate() " & _
            "   and STORNO is null  " & _
            " order by von, bis" _
           ,objConn 


    lineMax = 6
    lineCount = 1
    do until rs.EOF



      rsRaum.open "select DISPLAY_ENABLED from Buchung where ID = " & rs("buchung_id"), objConn
                displayanzeige = rsRaum("DISPLAY_ENABLED")
      rsRaum.close


      rsRaum.open      "select distinct g.BEZEICHNUNG " & _
                       "from GEBAEUDE g, ETAGE e, RAUM r " & _
                       "Where g.ID = e.GEBAEUDE_ID and e.GEBAEUDE_ID = r.GEBAEUDE_ID and r.ID = " & raum_id, objConn

                       GebaeudeBezeichnung = rsRaum("BEZEICHNUNG")

      rsRaum.close



      rsRaum.open "select bezeichnung from Raum where ID = " & raum_id, objConn

          raumname = rsRaum("bezeichnung")

      rsRaum.close

      If lineCount > lineMax Then
        exit do
      End If 


      if ucase(displayanzeige) = "Y" or isnull(displayanzeige) then
    %>

<tr "margin-bottom:100px" height="70" valign="top">
    <td style="overflow:hidden;" class="<% =color%>"><% =thema %></td>
    <td class="<% =color%>"><% =Hinweistext %></td>
    <td align="center"; class="<% =color%>"><% =FormatDateTime( rs("von"), 4)%></td>
    <td align="center"; class="<% =color%>"><% =FormatDateTime( rs("bis"), 4) %></td>
    <td align="center"; class="<% =color%>"><% =GebaeudeBezeichnung %><br></td>
    <td align="center"; class="<% =color%>"><% =raumname %><br></td>
  </tr>

<%  

rs.moveNext

loop
rs.close 
%>

Answer 1

你需要做几件事：

启用脚本以获取GET参数，该参数指定要显示的“页面”。类似的东西：

dim page = Request.QueryString("page")
dim next_page = page + 1
dim num_pages = [ you'll want to get this from your database table ]

修改数据库查询以适当使用新变量页

在页面上生成一些javascript，这会导致浏览器在10秒后为下一页加载新的URL。如果它超过总页数，请回到开头。

<script type="text/javascript">
function doNextPage(){
  window.location = "/my/display.asp?page=<% Response.Write next_page mod num_pages %>";
}
function doNextPageDelayed(){
  setTimeout("doNextPage()", 10000);
}
</script>

您还需要使“doNextPageDelayed”函数实际运行。为此，请将一些代码插入HTML的body标记。
```
<body onload="doNextPageDelayed()">
</body>
```

我发现这个链接有助于记住如何导致运行javascript函数的延迟： http://www.geekpedia.com/KB55_How-do-I-make-a-JavaScript-function-wait-before-executing-(sleep-or-delay).html

Answer 2

如果你看到一个有效的例子......整个页面会更好。只有在这里缩进的代码太多了。请参阅附件...... pagination

此示例还包括可排序列和行删除，并可选择选择页面上的所有行。

如何在Active Server Page上实现Paging（ASP Classic）

2 个答案: