Microsoft.XMLHTTP生成静态页面数据不及时加asp 延迟函数

有用如下Microsoft.XMLHTTP的方法生成静态页面，
但此方法有个弊端，在修改数据库内容后立刻调用生成的静态页面读不到最新数据

典型的就是在后台修改新闻内容页后，立刻生成修改后的页面，数据不能及时更新。

解决方法加上延迟就可以
  <% 
  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 
  %> 
   
  ' To change delay adjust here 
  <% TimeDelaySeconds(2) %>