getfile.asp
<%
''Verwenden Sie die xmlhttp-Komponente, um Remote-Dateien abzurufen und sie im aktuellen Bereich zu speichern
„Dies ist ein Beispiel für die Website-Erstellung. Sie können den Inhalt einer Webseite aus der Ferne abrufen und relevante Wetterdaten herausfiltern. Natürlich können Sie die lokale Dateispeicherung überspringen und die Daten dann abrufen.“
''Bezog sich auf Xoyus Funktion, vielen Dank hier
fileurl=" http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(fileurl,".")
filepath="thistest"&mid(fileurl,dotloc) ''Dateinamen desselben Typs erstellen
''filepath="thistest.htm"
call saveRemoteFile(filepath,fileurl)
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
Mit Abruf
.Öffnen Sie „Get“, RemoteFileUrl, False, „“, „“
.Schicken
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText '' Sie können den Inhalt von Textdateien direkt abrufen, aber Chinesisch wird nicht unterstützt. Ich weiß nicht, wie ich das lösen soll.
Ende mit
Satzabruf = Nichts
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''Generieren Sie die entsprechende Datei
Mit Werbung
.Typ = 1
.Offen
.GetRemoteData schreiben
.SaveToFile server.MapPath(LocalFileName),2
.Stornieren()
.Schließen()
Ende mit
Legen Sie „Anzeigen=nichts“ fest
end sub
''Das Obige vervollständigt die Fernspeicherung von Dateien, das Folgende gilt nur für den Betrieb von Textdateien www.downcodes.com
set fso=server.createobject("scripting.filesystemobject") ''Dateiinhalt lesen
set fileout=fso.opentextfile(server.mappath(filepath),1)
content=fileout.readall
setze fileout=nichts
setze fso=nichts
''response.write content
contentarr=split(content,"<td") ''Filter basierend auf Inhalt
für i=1 bis ubound(contentarr)
wenn instr(contentarr(i),"Enshi") dann thisloc=i
nächste
dim xu(5)
für j=0 bis 4
con1=contentarr(thisloc+j)
start1=instr(con1,">")
con1=right(con1,len(con1)-start1)
stop1=instr(con1,"<")
con1=left(con1,stop1-1)
str=str&contentarr(thisloc+j)
xu(j)=trimm(con1)
nächste
wenn xu(1)<>"" dann
Response.write "document.write('Wettervorhersage der Präfektur Enshi für die nächsten 24 Stunden:"&xu(1)&", minimale Temperatur"&xu(2)&"℃, maximale Temperatur"&xu(3)&"℃, Wind Richtung:" &xu(4)&".--veröffentlicht vom Wuhan Central Meteorological Observatory');"
anders
Response.write "document.write('Noch nicht freigegeben');"
Ende wenn
''response.write server.htmlencode(str)
%>
Zitieren und Anzeigen des erhaltenen Inhalts auf einer anderen HTM-Seite
<script src="getfile.asp"></script>