【下载文档:  asp延时_页面延迟的三种方法.txt 】

---

asp 延时 页面延迟的三种方法
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())