Saya bekerja untuk portal lokal, dan cuaca di situs web perlu diperbarui setiap hari.
Seiring berjalannya waktu, menjadi cukup merepotkan,jadi
saya menulis berita pencuri terjadwal. Silakan merujuk ke persyaratan sistem setelah mempostingnya: Dukungan FSO, server UDP TCP/IP.
Nama File TianQi.asp
Tulis Oleh Nioked QQ408611119
www.downcodes.com
<%
jika jam(sekarang)=9 dan menit(sekarang)<30 maka
dapatkan Kategori()
berakhir jika
Fungsi getCategories()
pada kesalahan lanjutkan berikutnya
Redupkan oXMLHTTP 'Sebagai Objek
Redupkan oCategories ' Sebagai Objek
DimBodyText
Redupkan Pos, Pos1
Setel oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
'--- atur panggilan XMLHTTP dan kirim masalah (tidak ada parm sebagai kategori
'--- disertakan dalam URL
oXMLHTTP.open "GET"," http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname =Mianyang",False 'Ganti tempat ini dengan alamat Anda sendiri
oXMLHTTP.kirim
'--- muat respons ke dalam pulau data Kategori
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"gb2312")
Pos=Instr(BodyText,"<body")
pos1=Instr(BodyText,"</body>")
BodyText=tengah(BodyText,pos,pos1)
BodyText=split(BodyText,"<tabel")
Pos=Instr(BodyText(4),"<tr")
pos1=Instr(BodyText(4),"</tr>")
Badan=tengah(BodyText(4),pos,len(BodyText(4))-pos)
tubuh=split(tubuh,"</tabel>")
body1=split(replace(replace(replace(body(0),"<br>",""),"</td>",""),"</tr>",""),"Cuaca" )
untuk i= 1 sampai ubound(body1)
tubuh3=berpisah(tubuh1(i),"<td")
cuaca=cuaca & "document.write("""& i&"$" & "Cuaca" & HTMLEncode(trim(body3(0))) & """);"
Berikutnya
cuaca=ganti(cuaca,"1$","<FONT color=#ffffff>【Hari ini】</FONT>")
cuaca=ganti(cuaca,"2$","<FONT color=#ffffff>【Besok】</FONT>")
cuaca=ganti(cuaca,"3$","<FONT color=#ffffff>[Lusa]</FONT>")
Setel fs = CreateObject("Scripting.FileSystemObject")
Setel f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", Benar)
f.write("document.write('Prakiraan Cuaca Mianyang:');" &vbcrlf & ganti(cuaca,"<BR>",""))
f.tutup
Tetapkan f = tidak ada
Tetapkan fs = tidak ada
respon.tulis "Prakiraan cuaca Mianyang:" & cuaca
Setel oXMLHTTP = Tidak Ada
jika err.number<>0 maka
respon.write "Terjadi kesalahan, deskripsi kesalahan:"&err.description & "<br>Sumber kesalahan"& err.source
respon.Akhir()
berakhir jika
Fungsi Akhir
Fungsi BytesToBstr(body,Cset)
objek redup
setel objstream = Server.CreateObject("adodb.stream")
objstream.Jenis = 1
objstream.Mode =3
objstream.Buka
objstream.Tulis isi
objstream.Posisi = 0
objstream.Jenis = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Tutup
setel objstream = tidak ada
Fungsi Akhir
Fungsi Publik HTMLEncode (fString)
Jika Bukan IsNull(fString) Lalu
fString = ganti(fString, ">", ">")
fString = ganti(fString, "<", "<")
fString = Ganti(fString, CHR(32), " ") '
fString = Ganti(fString, CHR(9), " ") '
fString = Ganti(fString, CHR(34), """)
fString = Ganti(fString, CHR(39), "'") 'Pemfilteran kutipan tunggal
fString = Ganti(fString, CHR(13), "")
fString = Ganti(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Ganti(fString, CHR(10), "<BR> ")
HTMLEncode = fString
Akhiri Jika
Fungsi Akhir
%>