ASP延迟两秒后执行程序的实例

只看楼主收藏回复

• 枫之精英
  

  <%

  TimeDelaySeconds 2

  Response.Write "这是延时2秒后执行的数据!"

  
  

  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

  %>

  
  

  1楼  2024/8/26 11:45:17  回复