参数：

ASP_Pause(ByVal IntSeconds)

代码：

Function ASP_Pause(ByVal IntSeconds)

Dim startTime

startTime = Time()

Do Until DateDiff("S", startTime, Time(), 0, 0) > intSeconds

Loop

End Function

调用范例：

response.Write("当前时间:"&now)

response.Write "<br>"

call ASP_Pause(5)

response.Write("延迟后时间:"&now)

返回结果：

当前时间:2020/8/15 10:56:37

延迟后时间:2020/8/15 10:56:43