首页 / 网页编程 / ASP / 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,不推荐访问量大的站使用……