WebページのASP強制リフレッシュとJudgent Fileアドレスインスタンスコード

この記事では、主にWebページの更新を紹介し、それを必要とするファイルアドレスインスタンスコードを審査します

Webページの強制リフレッシュ

1. ＜％
2. 'ランダム検証コードの必須リフレッシュ
3. 「IEのバックボタンが押されるたびに、ランダム検証コードを自動的に更新します。
4. Response.Expires = -1
5. Response.AddheaderPragma、No-Cache
6. Response.AdddederCache-Control、No-Store
7. ％＞

ファイルアドレスが有効かどうかを判断します

1. ＜％
2. respons.write（）
3. onerrorresumenext
4. dimthisurl、このテキスト
5. thisurl = request（thisurl） '​​ファイルアドレス（非HTML形式のドキュメント）を定義します！
6. iftisurl = then
7. Response.Write（最初にファイルアドレスを入力してください！）
8. Response.End
9. endif
10. functionobjxmlhttp（xmlurl）
11. onerrorresumenext
12. setobjxml = createObject（microsoft.xmlhttp）
13. objxml.openget、xmlurl、false
14. objxml.setRequestHeadCrecontent-Type、Application/x-www-form-urlencoded
15. objxml.send
16. objxmlhttp = objxml.responsebody
17. iferrthen
18. err.clear
19. response.write（接続の確立に失敗した、ファイルが存在しないか、ネットワークの問題がある！;エラー理由：＆err.description＆！）
20. Response.End
21. endif
22. エンド機能
23. functionbytes2bstr（vin）
24. strreturn =
25. fori = 1tolenb（vin）
26. thischarcode = ascb（midb（vin、i、1））
27. ifthischarcode <＆h80then
28. strreturn = strreturn＆chr（thischarcode）
29. それ以外
30. NextCharcode = ascb（midb（vin、i+1,1））
31. strreturn = strreturn＆chr（clng（thischarcode）*＆h100+cint（nextcharcode）））
32. i = i+1
33. endif
34. 次
35. bytes2bstr = strreturn
36. エンド機能
37. thisurl2 = split（thisurl ,,）
38. foreachiiinthisurl2
39. thistext = bytes2bstr（objxmlhttp（ii））
40. ifinstr（thistext、）<> 0then
41. Response.Write（＆II＆×
42. ））
43. それ以外
44. Response.Write（＆II＆√
45. ））
46. endif
47. 次
48. iferrthen
49. err.clear
50. Response.Write（事故に遭遇しました！;エラー理由：＆err.description＆！）
51. Response.End
52. endif
53. ％＞

上記は、Webページを強制的に更新し、ファイルアドレスを審査するためのコードです。