تعليمات للاستخدام
1. أضف مرجعًا إلى ملف antirefresh.asp في الجزء العلوي من الصفحة المراد حمايتها ، مثل:
<!-#تضمين Virtual = "antirefresh.asp"->
2. ثم أضف رمز الاتصال
نسخة الكود كما يلي:
<٪
const varnamedatearr = "www_domai_net_app_dataarr" 'اسم اقتباس
const varnameiparr = "www_domai_net_app_iparr" 'اسم اقتباس
باهت بوكانتريفش
تعيين objantirefresh = جديد antirefresh
objantirefresh.buffersize = 100 'حجم الكمية
objantirefresh.cacheitemavailtime = 2'interval الوقت
إذا لم يكن objantirefresh.isvalidaccess () ثم
تعيين objantirefresh = لا شيء
الرد. write ("كانت زياراتك متكررة في الماضي ، يرجى المحاولة مرة أخرى في ثانيتين.")
استجابة.
إنهاء إذا
تعيين objantirefresh = لا شيء
٪>
من بينهم
const varnamedatearr = "www_domai_net_app_dataarr" 'اسم اقتباس
const varnameiparr = "www_domai_net_app_iparr" 'اسم اقتباس
على سبيل المثال ، إذا كنت ترغب في إضافة تنشيط إلى list.asp و search.asp ، فأنت تقوم بنسخ رمز الاتصال أعلاه إلى هاتين الصفحتين ، أو التأكد من أن رمز الصفحتين متسقة. التأثير هو أنه إذا قمت بزيارة صفحة القائمة. asp ، فلن تتمكن من الوصول إلى صفحة القائمة أو البحث. في غضون ثانيتين
إذا كنت تريد أن تكون صفحتان مستقلتان ، فهذا ، بعد الوصول إلى LIST.ASP ، فلن تتمكن من الوصول إلى LIST.asp مرة أخرى في غضون ثانيتين ، ولكن يمكنك الوصول إلى Search.asp. خلاف ذلك ، يجب عليك التأكد من أن const varnamedatearr = "xxx" من الصفحتين مختلفتين. على سبيل المثال ، يتم استخدام الأول أيضًا لاستخدام xxxlist ، ويتم استخدام الصفحة الأولى xxxssearch ،
يحب:
const varnamedatearr = "www_domai_net_app_dataarr_search" '(_list)
const varnameiparr = "www_domai_net_app_iparr_search" '(_list)
يزعجهم ذلك للأصدقاء الذين لا يعرفون الكثير حتى يتمكنوا من استخدام هذه الرموز. إذا فهمت ASP ، فسيكون من السهل فهم ما سبق لك.
فيما يلي رمز مصدر ملف antirefresh.asp
نسخة الكود كما يلي:
<٪
'***********************************************
'* صفحة anti-refresh الوحدة*
'* wdfrog ، 2007-8-16
'***********************************************
فئة antirefresh
Iparr ، Datearr
M_Buffersize الخاص
خاص m_cacheitemavailtime
sub sub class_initialize ()
application.lock ()
m_buffersize = 100
m_cacheitemavailtime = 2
نهاية الفرعية
sub sub class_terminate ()
application.unlock ()
نهاية الفرعية
الممتلكات العامة الحصول على cacheitemavailtime
cacheitemavailtime = m_cacheitemavailtime
نهاية الملكية
خاصية عامة دع CacheItemAvailtime (قيمة)
m_cacheitemavailtime = القيمة
نهاية الملكية
الممتلكات العامة الحصول على خلاف
مخزن مؤقت = m_buffersize
نهاية الملكية
الممتلكات العامة تتيح تخزين المؤسسة (القيمة)
m_buffersize = القيمة
نهاية الملكية
sub sub subs ()
إذا isarray (application (varnamedatearr)) ثم
datearr = التطبيق (varnamedatearr)
آخر
redim datearr (مخزن مؤقت)
إنهاء إذا
إذا isarray (التطبيق (varnameiparr)) ثم
iparr = application (varnameiparr)
آخر
redim iparr (مخزنة)
إنهاء إذا
نهاية الفرعية
الوظيفة العامة isValidAccess ()
DIM IP ، أنا
IP = getip ()
isValidAccess = صحيح