[ASP] 3초 정도 임의로 지연시키는 함수만들기

실무 코딩작업하다가 

임의로 3초정도 지연시키는 delay 코드를 만들어야 하는 상황이 생겼다.

 

function sleep(scs)
    Dim lo_wsh, ls_cmd
    Set lo_wsh = CreateObject( "WScript.Shell" )
    ls_cmd = "%COMSPEC% /c ping -n " & 1 + scs & " 127.0.0.1>nul"
    lo_wsh.Run ls_cmd, 0, True 
End Function
 
sleep(3)

 

 

참고 : https://stackoverflow.com/questions/2237393/how-to-delay-a-response-in-classic-asp