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())<secondnumber
loop
end sub

call delaytime(5)

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