أجبر ASP على تحديث صفحات الويب ورمز مثيل عنوان الملف القاضي

تقدم هذه المقالة بشكل أساسي تحديث ASP لصفحات الويب ورمز مثيل عنوان الملف.

قوة تحديث صفحة الويب

1. ＜ ٪
2. "تحديث إلزامي لرمز التحقق العشوائي
3. "دع رمز التحقق العشوائي يتم تحديثه تلقائيًا في كل مرة يتم فيها الضغط على زر العودة لـ IE ،
4. استجابة. expires = -1
5. استجابة
6. استجابة
7. ٪ ＞

تحديد ما إذا كان عنوان الملف صالحًا

1. ＜ ٪
2. استجابة. write ()
3. onerrorresumenext
4. Dimthisurl ، ThisText
5. Thisurl = request (thisurl) "يحدد عنوان الملف (مستند تنسيق غير HTML)!
6. IfThisurl = ثم
7. Response.write (الرجاء إدخال عنوان الملف أولاً!)
8. استجابة
9. Endif
10. functionObjxmlHTTP (xmlurl)
11. onerrorresumenext
12. setObjxml = createObject (microsoft.xmlhttp)
13. objxml.openget ، xmlurl ، خطأ
14. OBJXML.SetRequestheaderContent-type ، Application/X-WWW-Form-urlencoded
15. OBJXML.SEND
16. OBJXMLHTTP = OBJXML.ResponseBody
17. iferrthen
18. err.clear
19. استجابة. write (فشل في إنشاء الاتصال ، الملف غير موجود أو هناك مشكلة في الشبكة! ؛ سبب خطأ: & err.description &!)
20. استجابة
21. Endif
22. الوظيفية
23. functionBytes2bst (VIN)
24. streturn =
25. fori = 1tolenb (vin)
26. thischarcode = ASCB (MIDB (VIN ، I ، 1))
27. IfThischarcode <& h80then
28. Streturn = Streturn & CHR (thischarcode)
29. آخر
30. NextCharCode = ASCB (MIDB (VIN ، I+1،1))
31. Streturn = Streturn & CHR (CLNG (thischarcode)*& H100+Cint (NextCharCode))
32. i = i+1
33. Endif
34. التالي
35. bytes2bstr = streturn
36. الوظيفية
37. thisurl2 = الانقسام (thisurl ،،)
38. foreachiiinthisurl2
39. ThisText = bytes2bsstr (OBJXMLHTTP (II))
40. ifinstr (thisText ،) <> 0then
41. استجابة. write (& ii & ×
42. )
43. آخر
44. استجابة. write (& ii & √
45. )
46. Endif
47. التالي
48. iferrthen
49. err.clear
50. Response.write (واجهت حادث! ؛ خطأ: & err.description &!)
51. استجابة
52. Endif
53. ٪ ＞

ما ورد أعلاه هو رمز الانتعاش القسري لصفحات الويب وعنوان الملف.