asp ป้องกันหน้าเว็บไม่ให้รีเฟรชโค้ด
SubPreventRefresh()
Dim RefreshTime คือรีเฟรช
RefreshTime = 10 'ป้องกันเวลารีเฟรช หน่วย (วินาที)
isRefresh = 1 'ไม่ว่าจะใช้ฟังก์ชันป้องกันการรีเฟรชหรือไม่ 0=no, 1=yes
ถ้า isRefresh = 1 แล้ว
ถ้า (ไม่ใช่ IsEmpty (เซสชัน (RefreshTime))) และ RefreshTime > 0 จากนั้น
ถ้า DateDiff(s, เซสชัน(RefreshTime), Now()) < RefreshTime แล้ว
การตอบสนองเขียน <META http-equiv=Content-Type content=text/html;
chaRset=gb2312><meta HTTP-EQUIV=รีเฟรชเนื้อหา=&RefreshTime&><br>
หน้านี้ใช้กลไกป้องกันการรีเฟรช โปรดอย่ารีเฟรชหน้านี้อย่างต่อเนื่องภายใน &RefreshTime& วินาที
<BR>กำลังเปิดหน้า กรุณารอสักครู่...
การตอบสนองสิ้นสุด
อื่น
เซสชั่น(RefreshTime) = ตอนนี้()
สิ้นสุดถ้า
อื่น
เซสชั่น(RefreshTime) = ตอนนี้()
สิ้นสุดถ้า
สิ้นสุดถ้า
จบหมวดย่อย