asp 延後執行

延後執行

<%
 for i = 0 to 3
 GoSleep(2)
 resWord(i&"  "&Timer)
 next
 
 function resWord(reW)
 response.Write("<br />"&reW)
 end function

 Function GoSleep(n) '單位 Sec
 Dim StartTime
 StartTime = Timer
 Do : Loop Until Timer>n+StartTime
 End Function
 %>