บางครั้งเราจำเป็นต้องชะลอการดำเนินการของฟังก์ชันต่อไปนี้ แต่ไม่แนะนำให้คิดแตกต่างออกไป สองวิธีง่ายๆ ในการหน่วงเวลาเพจ ASP
asp ล่าช้าประเภทแรก
คัดลอกรหัสรหัสดังต่อไปนี้:
<% การตอบสนองบัฟเฟอร์ = จริง %>
-
' ตั้งค่าตัวแปรที่จำเป็นเพื่อให้งานสำเร็จ
Dim TimerStart, TimerEnd, TimerNow, TimerWait
'อยากให้พวกเขารอกี่วินาที...
ตัวจับเวลารอ = 5
' ตั้งค่าและเริ่มจับเวลา
TimerNow = ตัวจับเวลา
TimerStart = ตัวจับเวลาตอนนี้
TimerEnd = TimerStart + TimerWait
' วนซ้ำตามระยะเวลาที่ต้องการ
ทำในขณะที่ (TimerNow < TimerEnd)
' กำหนดเวลาปัจจุบันและเวลาที่ผ่านไป
TimerNow = ตัวจับเวลา
ถ้า (TimerNow < TimerStart) จากนั้น
ตัวจับเวลาตอนนี้ = ตัวจับเวลาตอนนี้ + 86400
สิ้นสุดถ้า
วนซ้ำ
' เอาล่ะ หมดเวลาแล้ว เรามาเริ่มกันเลยดีกว่า
Response.Redirect nextpage.html %>
งูเห่าล่าช้า 2,
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ย่อย TimeDelaySeconds (DelaySeconds)
จำนวนวินาที = 0
วินาที2 = 0
ในขณะที่ SecCount < DelaySeconds + 1
วินาทีที่ 1 = วินาที (เวลา ())
ถ้า Sec1 <> Sec2 แล้ว
วินาทีที่ 2 = วินาที (เวลา ())
วินาทีนับ = วินาทีนับ + 1
สิ้นสุดถ้า
เวนด์
จบหมวดย่อย
-
'หากต้องการเปลี่ยนความล่าช้าให้ปรับที่นี่
<% เวลาดีเลย์วินาที(2) %>
วิธีที่สามของความล่าช้าของ asp
คัดลอกรหัสรหัสดังต่อไปนี้:
'วิธีการหน่วงเวลา asp'
SubDelayTime (หมายเลขที่สอง)
เวลาเริ่มต้นสลัว
เวลาเริ่มต้น=ตอนนี้()
ทำในขณะที่ datediff(s,startTime,NOW())<secondNumber
วนซ้ำ
จบหมวดย่อย
โทรล่าช้าเวลา(5)
สามารถใช้สำหรับการทดสอบได้ แต่โค้ดดังกล่าวใช้ CPU จำนวนมาก และไม่แนะนำสำหรับไซต์ที่มีการเข้าชมจำนวนมาก...