帝国php访问延时,asp 延时 页面延迟的三种方法

ASP页面延迟的两个简单方法

asp延时第一种

' 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

asp延时第三种方法

'asp延时方法

Sub DelayTime(secondNumber)

dim startTime

startTime=NOW()

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

loop

End Sub

call DelayTime(5)

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