يمنع asp صفحة الويب من تحديث التعليمات البرمجية
SubPreventRefresh()
وقت التحديث الخافت، هو التحديث
RefreshTime = 10 'منع وقت التحديث، الوحدة (بالثواني)
isRefresh = 1 'هل سيتم استخدام وظيفة منع التحديث، 0=لا، 1=نعم
إذا كان التحديث = 1 ثم
إذا (ليس فارغًا (جلسة (وقت التحديث))) ووقت التحديث > 0 إذن
إذا كان DateDiff(s، Session(RefreshTime)، Now()) < RefreshTime ثم
Response.Write <META http-equiv=Content-Type content=text/html;
chaRset=gb2312><meta HTTP-EQUIV=تحديث المحتوى=&RefreshTime&><br>
تستخدم هذه الصفحة آلية منع التحديث. يرجى عدم تحديث هذه الصفحة بشكل مستمر خلال &RefreshTime& ثانية.
<BR>جاري فتح الصفحة، يرجى الانتظار...
الاستجابة.النهاية
آخر
الجلسة (وقت التحديث) = الآن ()
نهاية إذا
آخر
الجلسة (وقت التحديث) = الآن ()
نهاية إذا
نهاية إذا
نهاية الفرعية