Wartefunktion

Mittels diesem code kann man in ASP eine warte-funktion wie in VB erstellen:

<%
While a=1
Response.Write "Hi" & "<br>"
WaitNSeconds(1)
Wend
 
Private Sub WaitNSeconds(n)
 
    Response.Write Now & " - " & Timer & "<br>"
    StopTimer = Timer + n
    Do While Timer < StopTimer
    Loop
    Response.Write Now & " - " & Timer & "<br>"
 
End Sub
%>

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert