List 8-9 10秒おきに日時を表示する例


  1: <HTML>
  2: <BODY>
  3: <%
  4:   Dim dt1
  5:   For i = 1 To 3
  6:     ' その時点の日時を取得して表示する
  7:     dt1 = Now()
  8:     Response.Write dt1 & "<BR>"
  9:     ' 10秒間待つ
 10:     While DateDiff("s", dt1, Now()) < 10
 11:     Wend
 12:   Next
 13: %>
 14: </BODY>
 15: </HTML>