getfile.asp
<%
''Gunakan komponen xmlhttp untuk mendapatkan file jarak jauh dan menyimpannya ke ruang saat ini
''Ini adalah contoh dalam pembuatan situs web. Dapatkan konten halaman web dari jarak jauh dan menyaring data cuaca yang relevan. Tentu saja, Anda dapat melewati penyimpanan file lokal dan kemudian mendapatkan datanya.
'' Mereferensikan fungsi xoyu, terima kasih di sini
fileurl=" http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(fileurl,".")
filepath="thistest"&mid(fileurl,dotloc) ''Buat nama file dengan tipe yang sama
''filepath="thistest.htm"
panggil saveRemoteFile(filepath,fileurl)
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
redupkan Iklan, Pengambilan, GetRemoteData
Setel Pengambilan = Server.CreateObject("Microsoft.XMLHTTP")
Dengan Pengambilan
.Buka "Dapatkan", RemoteFileUrl, Salah, "", ""
.Mengirim
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText ''Anda dapat langsung memperoleh konten file teks, tetapi tidak dapat mendukung bahasa Mandarin. Saya tidak tahu cara mengatasinya.
Diakhiri Dengan
Pengambilan Set = Tidak Ada
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''Buat file yang sesuai
Dengan Iklan
.Jenis = 1
.Membuka
.Tulis GetRemoteData
Server .SaveToFile.MapPath(NamaFile Lokal),2
.Membatalkan()
.Menutup()
Akhiri Dengan
Setel Iklan=tidak ada
end sub
''Di atas melengkapi penyimpanan file jarak jauh, yang berikut ini hanya berlaku untuk pengoperasian file teks www.downcodes.com
set fso=server.createobject("scripting.filesystemobject") ''Baca konten file
setel fileout=fso.opentextfile(server.mappath(jalur file),1)
konten=fileout.readall
atur fileout=tidak ada
atur fso=tidak ada
''response.write content
contentarr=split(content,"<td") ''Filter berdasarkan konten
untuk i=1 hingga ubound(contentarr)
jika instr(contentarr(i),"Enshi") maka lokasi ini=i
Berikutnya
redupkan xu(5)
untuk j=0 hingga 4
con1=contentarr(lokasi ini+j)
mulai1=instr(kon1,">")
con1=kanan(con1,len(con1)-start1)
stop1=instr(kon1,"<")
con1=kiri(con1,stop1-1)
str=str&kontenarr(lokasi ini+j)
xu(j)=trim(kon1)
Berikutnya
jika xu(1)<>"" maka
respon.write "document.write('Prakiraan cuaca Prefektur Enshi untuk 24 jam ke depan:"&xu(1)&", suhu minimum"&xu(2)&"℃, suhu maksimum"&xu(3)&"℃, angin arah:" &xu(4)&".--dirilis oleh Observatorium Meteorologi Pusat Wuhan');"
kalau tidak
respon.tulis "document.write('Belum dirilis');"
berakhir jika
''response.tulis server.htmlencode(str)
%>
Mengutip dan menampilkan konten yang diperoleh di halaman htm lain
<skrip src="getfile.asp"></skrip>