Forzar actualización de página web
<%
'Actualización obligatoria del código de verificación aleatorio
'Deje que el código de verificación aleatorio se actualice automáticamente cada vez que presione el botón Atrás de IE para regresar a la página de inicio de sesión.
Respuesta.expire=-1
Respuesta.AddHeaderpragma, sin caché
Response.AddHeadercache-control, sin almacenamiento
%>
Determinar si la dirección del archivo es válida
<%
'Autor original: Xiaoyi QQ:52093 Hora: 2005.6.30
Respuesta.Escribir()
En caso de error Continuar siguiente
Atenuar esta URL, este texto
thisurl=Solicitud(thisurl) '¡Definir dirección de archivo (documento en formato no HTML)!
si esta URL = entonces
Response.Write (¡Ingrese primero la dirección del archivo!)
Respuesta.Fin
terminar si
Función objxmlhttp(xmlurl)
En caso de error Continuar siguiente
Establecer objxml = CreateObject(Microsoft.XMLHTTP)
objxml.Abrir obtener,xmlurl,falso
objxml.setrequestheader tipo de contenido, aplicación/x-www-form-urlencoded
objxml.enviar
objxmlhttp = objxml.responsebody
si errar entonces
Err.Borrar
Response.Write (¡No se pudo establecer la conexión, el archivo no existe o hay un problema con la red!; Motivo del error: &Err.Description&!)
Respuesta.Fin
terminar si
Función final
Función bytes2BSTR(vIn)
strRetorno =
Para i = 1 a LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Si ThisCharCode < & H80 Entonces
strReturn = strReturn & Chr(ThisCharCode)
Demás
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
yo = yo + 1
Terminar si
Próximo
bytes2BSTR = strReturn
Función final
estaurl2=Dividir(estaurl,,)
Para cada ii en thisurl2
estetexto=bytes2BSTR(objxmlhttp(ii))
si InStr(estetexto,)<>0 entonces
Respuesta.Escribir(& ii & ×
)
Demás
Respuesta.Escribir(& ii & √
)
terminar si
Próximo
si errar entonces
Err.Borrar
Response.Write(¡Inesperado!; Motivo del error: &Err.Description&!)
Respuesta.Fin
terminar si
%>