Forcer l'actualisation de la page Web
<%
'Actualisation obligatoire du code de vérification aléatoire
« Laissez le code de vérification aléatoire être automatiquement actualisé à chaque fois que vous appuyez sur le bouton de retour d'IE pour revenir à la page de connexion.
Réponse.expires=-1
Response.AddHeaderpragma, sans cache
Response.AddHeadercache-control, sans magasin
%>
Déterminer si l'adresse du fichier est valide
<%
'Auteur original : Xiaoyi QQ : 52093 Heure : 2005.6.30
Réponse.Write()
En cas d'erreur, reprendre ensuite
Diminuer cetteurl,cetexte
thisurl=Request(thisurl) 'Définir l'adresse du fichier (document au format non HTML) !
si cetteurl=alors
Response.Write (Veuillez d'abord saisir l'adresse du fichier !)
Réponse.Fin
Terminer si
Fonction objxmlhttp(xmlurl)
En cas d'erreur, reprendre ensuite
Définir objxml = CreateObject (Microsoft.XMLHTTP)
objxml.Open get,xmlurl,false
objxml.setrequestheader type de contenu, application/x-www-form-urlencoded
objxml.envoyer
objxmlhttp = objxml.responsebody
si Err alors
Err.Effacer
Response.Write (Échec de l'établissement de la connexion, le fichier n'existe pas ou il y a un problème avec le réseau ! ; Raison de l'erreur : &Err.Description&!)
Réponse.Fin
Terminer si
Fonction de fin
Fonction octets2BSTR(vIn)
strRetour =
Pour i = 1 À LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Si ThisCharCode < &H80 Alors
strReturn = strReturn & Chr(ThisCharCode)
Autre
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
je = je + 1
Fin si
Suivant
octets2BSTR = strRetour
Fonction de fin
thisurl2=Split(thisurl,,)
Pour chaque ii Dans thisurl2
thistext=bytes2BSTR(objxmlhttp(ii))
si InStr(cetexte,)<>0 alors
Réponse.Écrire(& ii & ×
)
Autre
Réponse.Écrire(& ii & √
)
Terminer si
Suivant
si Err alors
Err.Effacer
Response.Write (Inattendu ! ; Raison de l’erreur : &Err.Description&!)
Réponse.Fin
Terminer si
%>