La copia del código es la siguiente:
Force la actualización de la página web
<%
'Actualización obligatoria del código de verificación aleatoria
'Deje que el código de verificación aleatorio se actualice automáticamente cada vez que se presione el botón de retroceso del IE en el botón Atrás del IE.
Respuesta.expires = -1
Respuesta.AddHeader "Pragma", "No-Cache"
Respuesta.AddHeader "Cache-Control", "no tienda"
%>
Determinar si la dirección del archivo es válida
La copia del código es la siguiente:
<%
'Autor original: Xiaoyi QQ: 52093 Hora: 2005.6.30
Response.Write ("<head> <style> <!-span {font-size: 9pt}-> </style> </head>")
OnerrorResumEnext
Dimthisurl, thisText
thesURL = request ("thisUrl") 'define la dirección del archivo (documento de formato no HTML)!
ifthisurl = "" entonces
Response.Write ("<Span> Ingrese la dirección del archivo primero! </span>")
Respuesta.
Endif
FunctionOBJXMLHTTP (XMLURL)
OnerrorResumEnext
Setobjxml = createObject ("Microsoft.xmlhttp")
objxml.open "Get", xmlurl, falso
objxml.setRequestHeader "Content-type", "Application/x-www-form-urlencoded"
objxml.send
objxmlhttp = objxml.ResponseBody
iferrthen
Err.Clear
Response.Write ("<Span> La conexión no pudo establecer, el archivo no existe o hay un problema de red!;
</span> ")
Respuesta.
Endif
Función final
Functionbytes2bstr (vin)
strreturn = ""
Fori = 1TolenB (vin)
ThisCharCode = ASCB (MidB (Vin, I, 1))
Ifthischarcode <& h80Then
strreturn = strreturn & chr (thisCharcode)
Demás
Nextcharcode = ascb (midb (vin, i+1,1))
strreturn = strreturn & chr (clng (thisCharCode)*& H100+cint (nextcharcode)))
i = i+1
Endif
Próximo
bytes2bstr = strreturn
Función final
thesUrl2 = Split (thisUrl ",")
Foreachiiinthisurl2
thisText = bytes2bstr (objxmlhttp (ii))
ifinstr (thisText, "<html>") <> 0then
Response.Write ("<span>" & II y "<b> × </b> </span> <br>")
Demás
Response.write ("<span>" & II y "<b> √ </b> </span> <br>")
Endif