经典ASP中的线程睡眠？

我正在对使用经典ASP/VbScript编写的旧应用程序进行一些修改.

它具有向应用程序成员发送电子邮件的功能,但由于成员列表非常大,服务器在发送前一百个左右后拒绝新的电子邮件.

我写了一些代码,让它发送20个爆炸的电子邮件,但这仍然不起作用.我认为也许让它在爆发之间睡一会儿可能会正常工作.

但是,我似乎无法在VbScript中找到Thread.Sleep类型方法.

有吗？

此例程等待任何时间,并且不使用CPU:

Function asp_Wait(nMilliseconds)
  Dim oShell
  '' VBS: Set oShell= Wscript.CreateObject("WScript.Shell")
  '' ASP:
  Set oShell= Server.CreateObject("WScript.Shell")
  Call oShell.run("ping 1.1.1.1 -n 1 -w " & nMilliseconds,1,TRUE) 
  '' Option TRUE: Wait until ping is complete
  '' 1000 milli-second wait is 1 second
End Function

还有一个很好的hta hack应该可以工作.在这里寻找A合成睡眠功能:http: //www.mvps.org/scripting/rube/index.htm