參數：

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