Startseite>Tutorial zur Netzwerkprogrammierung>ASP-Tutorial

ASP erzwungene Aktualisierung von Webseiten und Richterdatei -Adressinstanzcode

Autor：Eve Cole Aktualisierungszeit：2025-02-27 14:48:02

In diesem Artikel wird hauptsächlich ASP erzwungene Aktualisierung von Webseiten und Beurteilungen der Dateiadresseninstanz vorgelegt.

Erzwingen Sie die Aktualisierung der Webseite

  1. ＜%
  2. 'Obligatorische Auffrischung des Zufallsüberprüfungscode
  3. 'Lassen Sie den zufälligen Verifizierungscode jedes Mal automatisch aktualisiert werden, wenn der Rückknopf des IE gedrückt wird.
  4. Response.expires = -1
  5. Response.addHeaderpragma, no-cache
  6. Response.addhedeCache-control, No Store
  7. %＞

Stellen Sie fest, ob die Dateiadresse gültig ist

  1. ＜%
  2. Response.write ()
  3. OnErrorresumeNext
  4. Dimthisurl, ThisText
  5. thisUrl = request (thisurl) 'definiert die Dateiadresse (Non-HTML-Formatdokument)!
  6. ifthisurl = dann
  7. Antwort.Write (Bitte geben Sie zuerst die Dateiadresse ein!)
  8. Antwort.end
  9. Endif
  10. FunctionObjxmlhttp (xmlurl)
  11. OnErrorresumeNext
  12. SetObjxml = createObject (microsoft.xmlhttp)
  13. objxml.openget, xmlurl, false
  14. objxml.setRequesthedeContent-Typ, Anwendung/x-www-form-urlencoded
  15. objxml.send
  16. objxmlhttp = objxml.responseBody
  17. Isterrthen
  18. Err.clear
  19. Response.write (Die Verbindung hat nicht hergestellt, die Datei existiert nicht oder es gibt ein Netzwerkproblem!; Fehlergrund: & err.description &!)
  20. Antwort.end
  21. Endif
  22. Endfunktion
  23. FunctionBytes2bstr (vin)
  24. Streturn =
  25. Fei = 1tolenb (vin)
  26. Thischarcode = ascb (Midb (vin, i, 1))
  27. IFTHISCHARCODE <& H80Then
  28. Streturn = Streturn & chrt (thisharcode)
  29. Anders
  30. NextCharcode = ASCB (Midb (Vin, I+1,1))
  31. Streturn = Streturn & chrt (clng (thischarcode)*& h100+cint (NextCharCode))
  32. i = i+1
  33. Endif
  34. Nächste
  35. bytes2bstr = Streturn
  36. Endfunktion
  37. thisurl2 = split (thisurl ,,)
  38. Foreachiiinthisurl2
  39. thisText = bytes2bstr (objxmlhttp (ii))
  40. ifInstr (thisText,) <> 0Then
  41. Antwort.Write (& II & ×
  42. )
  43. Anders
  44. Antwort.Write (& II & √
  45. )
  46. Endif
  47. Nächste
  48. Isterrthen
  49. Err.clear
  50. Response.write (ich habe einen Unfall angetroffen!; Fehlergrund: & err.description &!)
  51. Antwort.end
  52. Endif
  53. %＞

Der oben genannte Code für die erzwungene Aktualisierung von Webseiten und die Beurteilung der Dateiadresse. Ich hoffe, dass dies für das Lernen aller hilfreich ist.

Ähnliche Artikel