obter arquivo.asp
<%
''Use o componente xmlhttp para obter arquivos remotos e salvá-los no espaço atual
''Este é um exemplo de construção de site. Obtenha remotamente o conteúdo de uma página da web e filtre dados meteorológicos relevantes. É claro que você pode pular o armazenamento de arquivos locais e, em seguida, obter os dados.
''Função do xoyu referenciada, obrigado aqui
fileurl=" http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(urldoarquivo,".")
filepath="thistest"&mid(fileurl,dotloc) ''Cria nomes de arquivos do mesmo tipo
''filepath="thistest.htm"
chama saveRemoteFile(filepath,fileurl)
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Anúncios, Recuperação, GetRemoteData
Definir recuperação = Server.CreateObject("Microsoft.XMLHTTP")
Com recuperação
.Abra "Obter", RemoteFileUrl, Falso, "", ""
.Enviar
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText ''Você pode obter diretamente o conteúdo de arquivos de texto, mas não suporta chinês, não sei como resolver.
Terminar com
recuperação de conjunto = nada
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''Gere o arquivo correspondente
Com anúncios
.Tipo = 1
.Abrir
.Escreva GetRemoteData
.SaveToFile servidor.MapPath(LocalFileName),2
.Cancelar()
.Fechar()
Terminar com
Definir anúncios = nada
end sub
''O acima completa o armazenamento remoto de arquivos, o seguinte só se aplica à operação de arquivos de texto www.downcodes.com
set fso=server.createobject("scripting.filesystemobject") ''Lê o conteúdo do arquivo
definir fileout=fso.opentextfile(server.mappath(filepath),1)
content=fileout.readall
definir fileout = nada
definir fso = nada
''response.write content
contentarr=split(content,"<td") ''Filtrar com base no conteúdo
para i=1 para ubound(contentarr)
se instr(contentarr(i),"Enshi") então thisloc=i
próximo
escurecer xu(5)
para j = 0 a 4
con1=contentarr(thisloc+j)
start1=instr(con1,">")
con1=direita(con1,len(con1)-start1)
stop1=instr(con1,"<")
con1 = esquerda (con1, parada1-1)
str=str&contentarr(thisloc+j)
xu(j)=cortar(con1)
próximo
se xu(1)<>"" então
response.write "document.write('Previsão do tempo na província de Enshi para as próximas 24 horas:"&xu(1)&", temperatura mínima"&xu(2)&"℃, temperatura máxima"&xu(3)&"℃, vento direção:" &xu(4)&".--lançado pelo Observatório Meteorológico Central de Wuhan');"
outro
response.write "document.write('Ainda não lançado');"
terminar se
''response.write server.htmlencode(str)
%>
Citando e exibindo o conteúdo obtido em outra página htm
<script src="getfile.asp"></script>