obtenerarchivo.asp
<%
''Utilice el componente xmlhttp para obtener archivos remotos y guardarlos en el espacio actual
''Este es un ejemplo en la construcción de un sitio web. Obtenga de forma remota el contenido de una página web y filtre los datos meteorológicos relevantes. Por supuesto, puede omitir el almacenamiento de archivos local y luego obtener los datos.
''Se hace referencia a la función de xoyu, gracias aquí.
fileurl=" http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(fileurl,".")
filepath="thistest"&mid(fileurl,dotloc) ''Crear nombres de archivos del mismo tipo
''filepath="thistest.htm"
llamada saveRemoteFile(filepath,fileurl)
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
anuncios tenues, recuperación, obtener datos remotos
Establecer recuperación = Server.CreateObject ("Microsoft.XMLHTTP")
Con recuperación
.Abrir "Obtener", RemoteFileUrl, Falso, "", ""
.Enviar
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText ''Puedes obtener directamente el contenido de los archivos de texto, pero no admite chino. No sé cómo solucionarlo.
Terminar con
la recuperación del conjunto = Nada
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''Generar el archivo correspondiente
Con anuncios
.Tipo = 1
.Abierto
.Escribir GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Cancelar()
.Cerca()
Terminar con
Establecer anuncios = nada
end sub
''Lo anterior completa el almacenamiento remoto de archivos, lo siguiente solo se aplica a la operación de archivos de texto www.downcodes.com
set fso=server.createobject("scripting.filesystemobject") ''Leer el contenido del archivo
establecer fileout=fso.opentextfile(servidor.mappath(rutadelarchivo),1)
contenido = salida de archivo.readall
establecer salida de archivo = nada
establecer fso = nada
''response.write content
contentarr=split(content,"<td") ''Filtro basado en contenido
para i=1 a ubound(contentarr)
si instr(contentarr(i),"Enshi") entonces thisloc=i
próximo
xu tenue(5)
para j=0 a 4
con1=contentarr(thisloc+j)
inicio1=instr(con1,">")
con1=derecha(con1,len(con1)-inicio1)
parada1=instr(con1,"<")
con1=izquierda(con1,parada1-1)
str=cadena&contentarr(thisloc+j)
xu(j)=recortar(con1)
próximo
si xu(1)<>"" entonces
Response.write "document.write('Pronóstico del tiempo de la prefectura de Enshi para las próximas 24 horas:"&xu(1)&", temperatura mínima"&xu(2)&"℃, temperatura máxima"&xu(3)&"℃, viento dirección:" &xu(4)&".--publicado por el Observatorio Meteorológico Central de Wuhan');"
demás
respuesta.write "document.write('Aún no publicado');"
terminar si
''respuesta.escribir servidor.htmlencode(cadena)
%>
Citando y mostrando el contenido obtenido en otra página htm
<script src="getfile.asp"></script>