'ASP -Verzögerungsmethode
Sub DelayTime (SecondNumber)
Dim Starttime
StartTime = jetzt ()
Mach alles ("s", starttime, jetzt ()) <Marondnumber
Schleife
Ende sub
Anruf Delaytime (5)
Es ist in Ordnung für das Testen, aber dieser Code nimmt eine CPU ein, und es wird nicht empfohlen, einen großen Zugriff auf die Station zu verwenden ...