3

我已经完成了一个 Active Server Page。它在门厅显示器上运行并显示会议。我将显示会议限制为 6 个。我的数据库中有 15 个会议。但门厅一次只能显示 6 个会议。为了显示其余的会议，我想实现分页，但我不知道如何。

分页应该自动发生。例如：显示前 6 次会议 10 秒，然后显示下 6 次会议 10 秒，然后显示最后 3 次会议 10 秒，然后再次显示前 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 
%>
4

2 回答 2

4

你需要做几件事：

  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 ]

  2. 修改您的数据库查询以适当地使用新的变量页面

  3. 在页面上生成一些 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>

  4. 您还需要使函数“doNextPageDelayed”实际运行。为此，请在 HTML 的 body 标记中插入一些代码。

    <body onload="doNextPageDelayed()">
</body>

我发现此链接有助于记住如何导致延迟运行 javascript 函数： http://www.geekpedia.com/KB55_How-do-I-make-a-JavaScript-function-wait-before-executing-(睡眠或延迟）.html

于 2012-12-06T17:22:23.270 回答
2

如果您看到一个工作示例会更好......整个页面。只是这里缩进的代码太多了。见附件...分页

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

于 2012-12-06T17:23:10.063 回答