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/7/7 19:48:00  回复