网络编程
位置：首页>> 网络编程>> Asp编程>> asp实现页面延迟运行的两个简单方法

asp实现页面延迟运行的两个简单方法

　来源：asp之家　发布时间：2007-10-16 13:49:00　

标签：延迟,for,运行

asp之家注：有时候我们想让程序运行变慢下来，asp中该怎么做呢？原理很简单就是在运行程序前运行一段无关紧要的程序就可以了，要实现加长程序的运行时间还是很容易的，最简单的方法做个FOR循环。

如


for i=0 to 5000
next


如果觉得延迟时间太短大家可以修改参数值，或再嵌套一个for。

下面是两个页面延迟运行的asp方法：

一、 TimerWait = 5 这里设置运行延迟的时间单位秒



<％ 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" ％>


二、


<％
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
％>


' 你可以改变这个的数字

<％ TimeDelaySeconds(2) ％>


0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com