Rastrear páginas da web. Ocasionalmente, é necessário obter previsões meteorológicas reais e atualizadas. O componente XMLHTTP é usado para capturar a parte especificada da página da web. Na verdade, muitos programas ladrões precisam dividir o código-fonte HTML para serem mais úteis.
O código-fonte HTML capturado neste exemplo é o seguinte
<p alinhamento=esquerda>Terça-feira, 24 de agosto de 2004; dia: ensolarado e às vezes nublado, vento de Yunnan nível 3-4; noite: vento sul ensolarado temperatura: máximo 29℃ e mínimo 19℃ </p>
O programa é de
Use 24 de agosto de 2004 como palavra-chave de pesquisa até o final
O conteúdo capturado é terça-feira, 24 de agosto de 2004; dia: ensolarado e às vezes nublado, nível de vento de Yunnan 3-4; noite: vento sul ensolarado, temperatura: máximo 29°C, mínimo 19°C;
Está limpo. Grave.
Copie o código do código da seguinte forma:
<%
Em caso de erro, retomar o próximo
Servidor.ScriptTimeOut=9999999
Função getHTTPage(Caminho)
t = GetBody (Caminho)
getHTTPPage=BytesToBstr(t,GB2312)
Função final
Função GetBody(url)
em caso de erro, retome a seguir
Definir recuperação = CreateObject (Microsoft.XMLHTTP)
Com recuperação
.Abra Obter, url, Falso, ,
.Enviar
GetBody = .ResponseBody
Terminar com
Definir recuperação = nada
Função final
Função BytesToBstr(corpo,Cset)
escurecer objstream
definir objstream = Server.CreateObject (adodb.stream)
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
Função final
Função Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
se Newstring<=0 então Newstring=Len(wstr)
Função final
%>
<html>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!-- Iniciar-->
<%
Dim wstr,str,url,start,over,dtime
dtime=Ano(Data)&Ano&Mês(Data)&Mês&Dia(Data)&Dia
url=http://www.vevb.com/
wstr=getHTTPágina(url)
start=Newstring(wstr,dtime)
over=Newstring(wstr,</p>)
corpo = meio (wstr, início, início excessivo)
resposta.write <MARQUEE onmouseover=this.stop();
%>
<!--Fim-->
</body></html>