Question

我有一个Active Server Page，它显示当天的预订。我将PageSize设置为2，所以如果有更多记录，我的显示器每侧只显示2个预订。所以实际上我的Recordset中有8个预订，所以我的ASP创建了4个页面。

为了说明这一点，我做了一个快照。

如您所见，有4个页面，我可以在它们之间切换。使用>我接下来的两个预订，<我可以获得前两个预订。

我迫切需要的是在10秒钟内自动更改页面。例如：显示第一页10秒，然后切换到下一页并显示10秒，依此类推。如果已到达最后一页，则从第一页开始。

我想我需要像Timer一样每隔10秒更改一次页面，如果到达最后一页则再次从第一页开始循环。但我不知道该怎么做。

如果有人可以帮助我，我会很高兴。

到目前为止我的部分代码：

Option Explicit
'declare variables
Dim Currpage, pageLen, lastNumber, PageRem, PageTen
Dim connection, recordset, sSQL, sConnString, next10, prev10, P
Dim RSPrevPage, RSNextPage, start
Dim thema, rsRaum, displayanzeige, bstatus, raum_id, GebaeudeBezeichnung, HinweisText, KOPPELBESTUHLUNG_ID, raumname
'Get the current page the user is on, if it's the first time they
'visit and the variable 'PageNo' is empty, then 'CurrPage' gets set to 1
'Else the current page variable 'CurrPage' is set to the page number requested
If IsEmpty(Request.Querystring("PageNo")) then
CurrPage = 1
Else
CurrPage = Cint(Request.Querystring("PageNo"))
End If

'the two functions below return the next 10 and prev 10 page number
Function getNext10(num)
pageLen = len(num)
If pageLen = 1 Then
next10 = 10
ElseIf pageLen>1 Then
pageRem = 10
pageTen = right(num, 1)
next10 = num + pageRem - pageTen
End If
getNext10 = next10
End Function

Function getPrev10(num)
pageLen = len(num)
If pageLen = 1 then
prev10 = 1
ElseIf pageLen>1 then
lastNumber = right(num, 1)
prev10 = num - lastNumber - 10
End If
If prev10 = 0 then
prev10 = 1
End If
getPrev10 = prev10
End Function


 Do Until Recordset.AbsolutePage <> CurrPage OR Recordset.Eof


 Recordset.MoveNext
 Loop


'the next 2 lines setup the page number for the "previous" and "next" links
RSNextPage = CurrPage + 1
RSPrevPage = CurrPage -1

'find out the number of pages returned in the recordset
'if the Next10 page number is greater than the recordset page count
'then set Next10 to the recordset pagecount
If Next10 > Recordset.PageCount Then
Next10 = Recordset.PageCount
End If

'the variable start determines where to start the page number navigation
' i.e. 1, 10, 20, 30 and so on. 
If prev10 = 1 AND next10 - 1 < 10 Then
start = 1
Else
start = Next10 - 10
If right(start, 1) > 0 Then
start = replace(start, right(start, 1), "0")
start = start + 10
End If
End If

'This checks to make sure that there is more than one page of results
If Recordset.PageCount > 1 Then
'Work out whether to show the Previous 10 '<<' 
If currpage > 1 Then
response.write("<a href=""paging.asp?PageNo=" & Prev10 & """><<</a> ")
End If
'Work out whether to show the Previous link '<' 
If NOT RSPrevPage = 0 then
response.write("<a href=""paging.asp?PageNo=" & RSPrevPage & """><</a> ")
End If

'Loop through the page number navigation using P as our loopcounter variable 
For P = start to Next10

If NOT P = CurrPage then
response.write("<a href=""paging.asp?PageNo=" & P & """>" & P & "</a> ")
Else
'Don't hyperlink the current page number 
response.write(" <b>" & P & " </b>")
End If
Next
'this does the same as the "previous" link, but for the "next" link
If NOT RSNextPage > Recordset.PageCount Then
response.write("<a href=""paging.asp?PageNo=" & RSNextPage & """>></a> ")
End If

'Work out whether to show the Next 10 '>>' 
If NOT Next10 = Recordset.PageCount Then
response.write(" <a href=""paging.asp?PageNo=" & Next10 & """>>></a>")
End If

Answer 1

像这样使用Meta Refresh：

<meta http-equiv="refresh" content="10;URL=nextPage.asp" />

content中的 10 是一个秒数，后跟;，然后是URL=<url>。这是一个常规HTML标记，您应该将其放在<HEAD>中。您可以通过ASP修改URL本身。

Answer 2

在上一部分（你已经决定是否放置“下一个”链接），继续使用ASP编写脚本标记来调用javascript函数：

(from the last section of your code example above)
'Work out whether to show the Next 10 '>>' 
If NOT Next10 = Recordset.PageCount Then
    response.write(" <a href=""paging.asp?PageNo=" & Next10 & """>>></a>")
    response.write("<script type=""text/javascript"" language=""javascript"">goToNextPage(" & Next10 & """);</script>")
End If

这将导致页面调用javascript函数“goToNextPage（pageNumber）;”这将接受Next10值。因为只有在编写了“下一个”链接时才将此脚本标记写入输出流，所以只有在显示另一个页面时才会调用它。

然后在您的HEAD部分中，您将添加javascript函数来处理请求：

<head>
<script type="text/javascript" language="javascript">
/*
This function accepts the requested page number and then waits 10 seconds before redirecting back to itself with the new "pageNo" value in the query string
*/
function goToNextPage(nextPageNumber)
{
    setTimeout(function(){window.location='paging.asp?pageNo='+nextPageNumber;},10000);
}

</script>
</head>

10秒后自动更改页面（ASP Classic）

2 个答案: