'asp延时方法
Sub DelayTime(secondNumber)
       dim startTime
       startTime=NOW()
       do while datediff("s",startTime,NOW())<secondNumber
       loop
End Sub

call DelayTime(5)

测试用可以，但是这样的代码很占CPU,不推荐访问量大的站使用……