Rastrear páginas web. En ocasiones, es necesario conseguir una previsión meteorológica real y actualizada. El componente XMLHTTP se utiliza para capturar la parte especificada de la página web.
Necesidad de dividir el código fuente html
El código fuente HTML capturado en este ejemplo es el siguiente
<p align=left>Martes, 24 de agosto de 2004; durante el día: soleado y a veces nublado, nivel de viento de Yunnan 3-4; noche: viento soleado del sur nivel 3-4; temperatura máxima 29 ℃, mínima 19 ℃ </p>
El programa es de
Utilice 24 de agosto de 2004 como palabra clave de búsqueda hasta</p>fin
El contenido capturado será el martes 24 de agosto de 2004; durante el día: soleado y a veces nublado, nivel de viento de Yunnan 3-4; noche: viento soleado del sur nivel 3-4; temperatura máxima 29 ℃, mínima 19 ℃;
Está limpio. Grábalo.
<%
En caso de error Continuar siguiente
Servidor.ScriptTimeOut=9999999
Función getHTTPage(Ruta)
t = ObtenerCuerpo(Ruta)
getHTTPPage=BytesToBstr(t,GB2312)
Función final
Función GetBody(url)
en caso de error reanudar siguiente
Establecer recuperación = CreateObject(Microsoft.XMLHTTP)
Con recuperación
.Abrir Obtener, URL, Falso, ,
.Enviar
ObtenerCuerpo = .ResponseBody
Terminar con
Establecer recuperación = nada
Función final
Función BytesToBstr(cuerpo,Cset)
corriente de objetos tenue
establecer objstream = Server.CreateObject(adodb.stream)
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
Función final
Función Nuevacadena(wstr,cadena)
Nuevacadena=Instr(lcase(wstr),lcase(cadena))
si Nuevacadena<=0 entonces Nuevacadena=Len(wstr)
Función final
%>
<html>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!-- Inicio-->
<%
Dim wstr,str,url,start,over,dtime
dtime=Año(Fecha)&Año&Mes(Fecha)&Mes&Día(Fecha)&Día
url=http://www.vevb.com/
wstr=getHTTPPage(url)
inicio=Nuevacadena(wstr,dtime)
over=Nuevacadena(wstr,</p>)
cuerpo = medio (wstr, inicio, inicio excesivo)
respuesta.write <MARQUEE onmouseover=this.stop(); onmouseout=this.start();>&body&</marquee>
%>
<!--Fin-->
</cuerpo></html>