有时候,在循环的时候需要延迟几秒然后再执行接下去的语句,可以用下面的方法实现。
<%
Sub TimeDelaySeconds(sSec)
Dim t
t = 0
Dim Sec1,Sec2
Sec1 = Second(Time())
Sec2 = Second(Time())
Do While t <= sSec
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
t = t + 1
End If
Loop
End Sub
for i = 0 to 3
'TimeDelaySeconds(5)
'执行语句
next
%>
评论