如getData.asp
if strData = "" or isNull(strData ) then
Response.Write "<script>alert('网络繁忙!');</script>"
TimeDelaySeconds 10
Response.Write "<script>this.location='getData.asp';</script>;"
end if
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