La copie de code est la suivante:
Forcer l'actualisation de la page Web
<%
'Rafraîchissement obligatoire du code de vérification aléatoire
«Laissez le code de vérification aléatoire être automatiquement actualisé chaque fois que le bouton IE Retour est appuyé sur le bouton arrière de IE.
Response.expires = -1
Response.Addheader "Pragma", "No-Cache"
Response.Addheader "Cache-Control", "No-Store"
%>
Déterminez si l'adresse du fichier est valide
La copie de code est la suivante:
<%
'Auteur original: Xiaoyi QQ: 52093 Temps: 2005.6.30
Response.Write ("<A-head> <style> <! - Span {Font-Size: 9pt} -> </ Style> </ Head>")
Onerrorresumenext
Dimthisurl, ce texte
thisUrl = request ("thisUrl") 'définit l'adresse de fichier (document de format non-HTML)!
ifThisurl = "" alors
Réponse.write ("<span> Veuillez d'abord saisir l'adresse du fichier! </span>")
Réponse.
Endire
Functionobjxmlhttp (xmlurl)
Onerrorresumenext
SetObjxml = createObject ("Microsoft.xmlhttp")
objxml.open "get", xmlurl, false
objxml.setRequestHeader "Content-Type", "Application / x-www-form-urlencoded"
objxml.send
objxmlhttp = objxml.Responsebody
idierrhen
Err.Clear
Response.Write ("<span> La connexion n'a pas réussi à établir, le fichier n'existe pas ou il y a un problème de réseau!
</span> ")
Réponse.
Endire
Finition de fin
FunctionBytes2BSTR (VIN)
strreturn = ""
Fori = 1Tolenb (vin)
ThisCharcode = ASCB (midb (vin, i, 1))
Ifthischarcode <& h80Then
Streturn = Strreturn & Chr (ThisCharcode)
Autre
NextCharcode = ASCB (Midb (Vin, I + 1,1))
Streturn = Streturn & Chr (Clng (ThisCharcode) * & H100 + Cint (NextCharcode))
i = i + 1
Endire
Suivant
bytes2bstr = STRRETURN
Finition de fin
ThisUrl2 = Split (thisUrl, ",")
Foreachiiinthisurl2
thisText = bytes2Bstr (objxmlhttp (ii))
iFinstr (thisText, "<html>") <> 0THEN
Réponse.write ("<span>" & ii & "<b> × </b> </span> <br>")
Autre
Réponse.write ("<span>" & ii & "<b> √ </b> </span> <br>")
Endire