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延时方法

Sub DelayTime(secondNumber)

dim startTime

startTime=NOW()

do while datediff("s",startTime,NOW())<secondNumber

loop

End Sub

call DelayTime(5)

测试用可以，但是这样的代码很占CPU,不推荐访问量大的站使用……

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!