فرض تحديث صفحة الويب
<%
'تحديث إلزامي لرمز التحقق العشوائي
'اسمح بتحديث رمز التحقق العشوائي تلقائيًا في كل مرة تضغط فيها على زر الرجوع في IE للعودة إلى صفحة تسجيل الدخول.
انتهاء صلاحية الاستجابة=-1
Response.AddHeaderpragma، لا يوجد ذاكرة تخزين مؤقت
Response.AddHeadercache-التحكم، لا يوجد مخزن
%>
تحديد ما إذا كان عنوان الملف صالحًا
<%
'المؤلف الأصلي: Xiaoyi QQ:52093 الوقت: 2005.6.30
الاستجابة. الكتابة ()
على خطأ استئناف التالي
خافت هذا الرابط، هذا النص
thisurl=Request(thisurl) 'تحديد عنوان الملف (مستند بتنسيق غير Html)!
إذا كان هذا عنوان URL = إذن
Response.Write(الرجاء إدخال عنوان الملف أولاً!)
الاستجابة.النهاية
انتهي إذا
الدالة objxmlhttp(xmlurl)
على خطأ استئناف التالي
تعيين objxml = CreateObject(Microsoft.XMLHTTP)
objxml.Open get,xmlurl,false
objxml.setrequestheader نوع المحتوى، application/x-www-form-urlencoded
objxml.send
objxmlhttp = objxml.responsebody
إذا أخطأ بعد ذلك
خطأ.واضح
Response.Write (فشل إنشاء الاتصال، الملف غير موجود أو أن هناك مشكلة في الشبكة!؛ سبب الخطأ: &Err.Description&!)
الاستجابة.النهاية
انتهي إذا
وظيفة النهاية
البايتات الدالة 2BSTR(vIn)
strReturn =
لأني = 1 إلى LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
إذا كان ThisCharCode < &H80 إذن
strReturn = strReturn & Chr(ThisCharCode)
آخر
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ط = ط + 1
نهاية إذا
التالي
bytes2BSTR = strReturn
وظيفة النهاية
thisurl2=تقسيم(thisurl,,)
لكل ii في هذا url2
thistext=bytes2BSTR(objxmlhttp(ii))
إذا كان InStr(thistext,)<>0 إذن
الاستجابة.اكتب (& ii & ×
)
آخر
الاستجابة.اكتب(&ii & √
)
انتهي إذا
التالي
إذا أخطأ بعد ذلك
خطأ.واضح
Response.Write(غير متوقع!؛ سبب الخطأ: &Err.Description&!)
الاستجابة.النهاية
انتهي إذا
%>