تقدم هذه المقالة بشكل أساسي تحديث ASP لصفحات الويب ورمز مثيل عنوان الملف.
قوة تحديث صفحة الويب
- < ٪
- "تحديث إلزامي لرمز التحقق العشوائي
- "دع رمز التحقق العشوائي يتم تحديثه تلقائيًا في كل مرة يتم فيها الضغط على زر العودة لـ IE ،
- استجابة. expires = -1
- استجابة
- استجابة
- ٪ >
تحديد ما إذا كان عنوان الملف صالحًا
- < ٪
- استجابة. write ()
- onerrorresumenext
- Dimthisurl ، ThisText
- Thisurl = request (thisurl) "يحدد عنوان الملف (مستند تنسيق غير HTML)!
- IfThisurl = ثم
- Response.write (الرجاء إدخال عنوان الملف أولاً!)
- استجابة
- Endif
- functionObjxmlHTTP (xmlurl)
- onerrorresumenext
- setObjxml = createObject (microsoft.xmlhttp)
- objxml.openget ، xmlurl ، خطأ
- OBJXML.SetRequestheaderContent-type ، Application/X-WWW-Form-urlencoded
- OBJXML.SEND
- OBJXMLHTTP = OBJXML.ResponseBody
- iferrthen
- err.clear
- استجابة. write (فشل في إنشاء الاتصال ، الملف غير موجود أو هناك مشكلة في الشبكة! ؛ سبب خطأ: & err.description &!)
- استجابة
- Endif
- الوظيفية
- functionBytes2bst (VIN)
- streturn =
- fori = 1tolenb (vin)
- thischarcode = ASCB (MIDB (VIN ، I ، 1))
- IfThischarcode <& h80then
- Streturn = Streturn & CHR (thischarcode)
- آخر
- NextCharCode = ASCB (MIDB (VIN ، I+1،1))
- Streturn = Streturn & CHR (CLNG (thischarcode)*& H100+Cint (NextCharCode))
- i = i+1
- Endif
- التالي
- bytes2bstr = streturn
- الوظيفية
- thisurl2 = الانقسام (thisurl ،،)
- foreachiiinthisurl2
- ThisText = bytes2bsstr (OBJXMLHTTP (II))
- ifinstr (thisText ،) <> 0then
- استجابة. write (& ii & ×
- )
- آخر
- استجابة. write (& ii & √
- )
- Endif
- التالي
- iferrthen
- err.clear
- Response.write (واجهت حادث! ؛ خطأ: & err.description &!)
- استجابة
- Endif
- ٪ >
ما ورد أعلاه هو رمز الانتعاش القسري لصفحات الويب وعنوان الملف.