加入收藏 | 设为首页 | 会员中心 | 我要投稿 聊城站长网 (https://www.0635zz.com/)- 智能语音交互、行业智能、AI应用、云计算、5G!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

asp 延时 页面延迟的三种方法介绍

发布时间:2023-06-02 13:35:57 所属栏目:Asp教程 来源:
导读:有时候我们需要 延迟 下面的函数的执行,但不建议使用啊,最好能换个思路。

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

asp延时第一种

复制代码代码如下:

<% Response.Buffer = True %>

<%

&#39; Setup the
有时候我们需要 延迟 下面的函数的执行,但不建议使用啊,最好能换个思路。
 
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,不推荐访问量大的站使用……
 
 

(编辑:聊城站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章