Asp classic 如何修改活动服务器页面

我已经完成了一个活动服务器页面。它在门厅显示器上运行。ASP正在该显示器上显示会议。我把展示会限制在10个。显示器一次可显示5-6次会议。我想要的是，如果显示屏上充满了前6次会议，显示屏应该“更改”为显示最后4次会议的第二页。这应该每10秒发生一次。前6次会议10秒，4次会议10秒，依此类推。我该怎么做

到目前为止，我的代码是：

=转换（日期，getdate（），4）&_
和von=getdate（）”&_
“且STORNO为空”&_
“冯·比斯命令”_
，objConn
“所有人都必须遵守法律
lineMax=10
行数=1
color=“color1”
直到R.EOF为止
布琼根·安齐根·奥德·尼希特
rsRaum.open“选择从Buchung启用的显示”，其中ID=“&rs（“Buchung\u ID”），objConn
displayanzeige=rsRaum（“显示已启用”）
斯劳姆·克洛斯
“洞für lfd.Buchung aus erster Reserve Raum ID and Indikator für Kopplung
rsRaum.open“从保留区中选择raum_id、Koppelbestuhulung_id，其中buchung_id=“&rs（“buchung_id”），对象编号
raum_id=rsRaum（“raum_id”）
KOPPELBESTUHLUNG\u ID=rsRaum（“KOPPELBESTUHLUNG\u ID”）
斯劳姆·克洛斯
“格布德
rsRaum.open“选择不同的g.Bezeichung”和_
“来自GEBAEUDE g、ETAGE e、RAUM r”&_
其中g.ID=e.GEBAEUDE_ID和e.GEBAEUDE_ID=r.GEBAEUDE_ID和r.ID=“&raum_ID，objConn
GebaeudeBezeichnung=rsRaum（“BEZEICHNUNG”）
斯劳姆·克洛斯
'孔终端Hinweistext
rsRaum.open“从Buchung中选择KSTR，其中ID=“&rs（“Buchung_ID”），objConn
Hinweistext=rsRaum（“KSTR”）
斯劳姆·克洛斯
“科普隆瀑布，主洞ID”-劳姆斯
如果不为空（KOPPELBESTUHLUNG\u ID），则
rsRaum.open“从KOPPELN中选择父id，其中子id=“&raum\u id，objConn
如果不是rsRaum.EOF，则
raum_id=rsRaum（“父_id”）
如果结束
斯劳姆·克洛斯
如果结束
“洞罗姆细节
rsRaum.open“从Raum中选择Bezeichung，其中ID=“&Raum_ID，objConn
raumname=rsRaum（“Bezeichung”）
斯劳姆·克洛斯
比恩德瀑布展示区
如果lineCount>lineMax，则
退出do
如果结束
“不受限制的自由选择权”
如果ucase（rs（“thema_enabled”）=“Y”或isnull（rs（“thema_enabled”）），则
thema=rs（“thema”）
其他的
thema=“”
如果结束
如果ucase（displayanzeige）=“Y”或isnull（displayanzeige），则
%>

---

创建一个重复页面，并将参数（
GET
或
POST
）作为当前页面的
RemainingItems
传递给它。
RemainingItems
这里是4，并按如下方式更改当前页面：

If lineCount > lineMax Then

将是：

If lineCount > firstPageItems Then

显然：

lineMax = firstPageItems + RemainingItems

为了在页面之间切换，在特定的时间间隔内，您应该在两个页面上使用JavaScript计时器。经过一段时间后，将客户端重定向到另一个页面（每个页面都知道另一个页面的地址）

可以在一页中完成所有的工作，但由于需要更多的工作，根据问题，我建议这一页