Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

ASP Rafraîchissement forcé des pages Web et du code d'instance d'adresse du fichier de juge

Auteur：Eve Cole Date de mise à jour：2025-02-27 14:48:02

Cet article présente principalement un actualisation forcée des pages Web et un code d'instance d'adresse de fichier.

Forcer l'actualisation de la page Web

  1. ＜%
  2. 'Rafraîchissement obligatoire du code de vérification aléatoire
  3. 'Laissez le code de vérification aléatoire être rafraîchi automatiquement chaque fois que le bouton arrière de IE est enfoncé,
  4. Response.expires = -1
  5. Réponse.addheaderpragma, sans cache
  6. Réponse.addhedercache-control, sans magasin
  7. % ＞

Déterminez si l'adresse du fichier est valide

  1. ＜%
  2. Réponse.write ()
  3. Onerrorresumenext
  4. Dimthisurl, ce texte
  5. thisUrl = request (thisUrl) 'définit l'adresse de fichier (document de format non-HTML)!
  6. ifthisurl = alors
  7. Response.Write (veuillez d'abord saisir l'adresse du fichier!)
  8. Réponse.
  9. Endire
  10. Functionobjxmlhttp (xmlurl)
  11. Onerrorresumenext
  12. SetObjxml = createObject (Microsoft.xmlhttp)
  13. objxml.openget, xmlurl, false
  14. objxml.setRequestHeaderContent-type, application / x-www-form-urlencoded
  15. objxml.send
  16. objxmlhttp = objxml.Responsebody
  17. idierrhen
  18. Err.Clear
  19. Response.Write (n'a pas réussi à établir la connexion, le fichier n'existe pas ou il y a un problème de réseau!
  20. Réponse.
  21. Endire
  22. Finition de fin
  23. FunctionBytes2BSTR (VIN)
  24. Streturn =
  25. Fori = 1Tolenb (vin)
  26. ThisCharcode = ASCB (midb (vin, i, 1))
  27. Ifthischarcode <& h80Then
  28. Streturn = Strreturn & Chr (ThisCharcode)
  29. Autre
  30. NextCharcode = ASCB (Midb (Vin, I + 1,1))
  31. Streturn = Streturn & Chr (Clng (ThisCharcode) * & H100 + Cint (NextCharcode))
  32. i = i + 1
  33. Endire
  34. Suivant
  35. bytes2bstr = STRRETURN
  36. Finition de fin
  37. ThisUrl2 = Split (thisUrl ,,)
  38. Foreachiiinthisurl2
  39. thisText = bytes2Bstr (objxmlhttp (ii))
  40. iFinstr (thisText,) <> 0Then
  41. Réponse.Write (& ii & ×
  42. )
  43. Autre
  44. Réponse.Write (& ii & √
  45. )
  46. Endire
  47. Suivant
  48. idierrhen
  49. Err.Clear
  50. Response.Write (j'ai rencontré un accident !; Raison d'erreur: & err.description &!)
  51. Réponse.
  52. Endire
  53. % ＞

Ce qui précède est le code pour le rafraîchissement forcé des pages Web et l'adresse du fichier de jugement.

Articles connexes