asp 延时 页面推迟的三种方法
发布时间：2023-11-02 09:33:38 所属栏目：Asp教程 来源：
导读：ASP页面延迟的两个简单方法
asp延时第一种
复制代码 代码如下:
<% Response.Buffer = True %>
<%
' Setup the variables necessary to accomplish the task
Dim TimerStart, TimerEnd, TimerNow, Time
asp延时第一种
复制代码 代码如下:
<% Response.Buffer = True %>
<%
' Setup the variables necessary to accomplish the task
Dim TimerStart, TimerEnd, TimerNow, Time
|
ASP页面延迟的两个简单方法 asp延时第一种 复制代码 代码如下: <% Response.Buffer = True %> <% ' Setup the variables necessary to accomplish the task Dim TimerStart, TimerEnd, TimerNow, TimerWait ' How many seconds do you want them to wait... TimerWait = 5 ' Setup and start the timers TimerNow = Timer TimerStart = TimerNow TimerEnd = TimerStart + TimerWait ' Keep it in a loop for the desired length of time Do While (TimerNow < TimerEnd) ' Determine the current and elapsed time TimerNow = Timer If (TimerNow < TimerStart) Then TimerNow = TimerNow + 86400 End If Loop ' Okay times up, lets git em outa here Response.Redirect "nextpage.html" %> asp延时二、 复制代码 代码如下: <% Sub TimeDelaySeconds(DelaySeconds) SecCount = 0 Sec2 = 0 While SecCount < DelaySeconds + 1 Sec1 = Second(Time()) If Sec1 <> Sec2 Then Sec2 = Second(Time()) SecCount = SecCount + 1 End If Wend End Sub %> ' To change delay adjust here <% TimeDelaySeconds(2) %> asp延时第三种方法 复制代码 代码如下: 'asp延时方法 Sub DelayTime(secondNumber) dim startTime startTime=NOW() do while datediff("s",startTime,NOW())<secondNumber loop End Sub call DelayTime(5) 测试用可以，但是这样的代码很占CPU,不推荐访问量大的站使用…… （编辑：汽车网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
