'***函数名  : Sleep
'***函数说明: 延时(单位毫秒)
'***参数    : n: 毫秒
'***返回值  : NULL
Sub Sleep(n)
    Dim StartTime
    StartTime = Timer
    Do
    Loop Until Timer>(n/1000)+StartTime
End Sub

ASP是服务器端脚本，设计上没有故意拖延的理由，所以没有延时函数，可以考虑用一段循环代码来拖延时间。