asp中延时函数

[lirlir]

我有2行代码,连续执行,但是执行需要延时0.5秒左右时间

aa.PTZControl(23,0)
这里需要延时0.5秒
aa.PTZControl(23,1)

但是在延时的时候界面不能死掉,请问怎么写函数?

[孟子E章]

用
a = now
While DateDiff("s",a,now) <0.5
Wend

[lirlir]

什么意思?

[spec_lc]

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

[mayi545]

net_lover(孟子E章)
比较简洁

[myvicy]

用datediff，写一个循环判断就是了。

[gilbert007]

学习

[xinghuo8888]

up

[cornerslippers]

a = now
While DateDiff("s",a,now) <0.5
Wend

写得好！！！

[__Ray__]

up 孟子