页面延迟的两个简单方法
点击次数：25 次 发布日期：2008-11-26 15:21:46 作者：源代码网
|
<% 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 %> " To change delay adjust here <% TimeDelaySeconds(2) %> 源代码网供稿. |
