場合によっては、次の関数の実行を遅らせる必要がありますが、それはお勧めしません。 ASP ページを遅延させる 2 つの簡単な方法
ASP 遅延の最初のタイプ
次のようにコードをコピーします。
<% Response.Buffer = True %>
<%
' タスクを完了するために必要な変数を設定します
Dim TimerStart、TimerEnd、TimerNow、TimerWait
「何秒待ってほしいですか...」
タイマー待機 = 5
' タイマーを設定して開始する
TimerNow = タイマー
タイマースタート = タイマーナウ
タイマー終了 = タイマー開始 + タイマー待機
' 希望の長さの間ループ状態に保ちます
Do While (TimerNow < TimerEnd)
' 現在時間と経過時間を決定します
TimerNow = タイマー
If (TimerNow < TimerStart) then
タイマーナウ = タイマーナウ + 86400
終了の場合
ループ
「よし、時間切れだ、ここから出してもらいましょう」
Response.Redirect nextpage.html %>
ASP 遅延 2、
次のようにコードをコピーします。
<%
Sub TimeDelaySeconds(DelaySeconds)
秒数 = 0
秒2 = 0
While SecCount < DelaySeconds + 1
Sec1 = 秒(時間())
If Sec1 <> Sec2 then
Sec2 = 秒(時間())
秒数 = 秒数 + 1
終了の場合
ウェン
エンドサブ
%>
'遅延を変更するにはここで調整してください
<% TimeDelaySeconds(2) %>
ASP 遅延の 3 番目の方法
次のようにコードをコピーします。
'ASP遅延メソッド
SubDelayTime(秒数)
薄暗い開始時間
startTime=NOW()
do while datediff(s,startTime,NOW())<秒番号
ループ
エンドサブ
callDelayTime(5)
テストには使用できますが、このようなコードは CPU を大量に消費するため、アクセス数の多いサイトにはお勧めできません。