ASP 딜레이함수

ASP Delay /딜레이 함수

의도적으로 시간딜레이를 시키는 함수

간단하지만 테스트할때 유용하네 ㅎㅎ

 

Sub Delay(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

[출처] ASP Delay /딜레이 함수|작성자 Keito