Classic ASP

sleep / delay

풍풍 2014. 9. 12. 14:33

        ' sleep 함수

Function Sleep(seconds)

set oShell = CreateObject("Wscript.Shell")

cmd = "%COMSPEC% /c timeout " & seconds & " /nobreak"

oShell.Run cmd,0,1

End Function


        ' 사용예

For i = 1 to 10

response.write("End "&i&"<br>")

Sleep(5)

Next


출처: http://stackoverflow.com/questions/2237393/how-to-delay-a-response-in-classic-asp