Saya bekerja di portal lokal dan cuaca di situs web perlu diperbarui setiap hari. Seiring waktu, saya merasa sangat merepotkan, jadi saya menulis pencuri berita waktunya.
Inilah isi pencuri:
| Nama file tianqi.asp Tulis dengan Niaooked QQ408611119 www.knowsky.com ＜% Jika jam (sekarang) = 9 dan menit (sekarang) ＜ 30 lalu getCategories () akhiri jika Fungsi getCategories () pada kesalahan resume berikutnya Redup oxmlhttp 'sebagai objek Redup ocategories 'sebagai objek Bodytext redup Redup, pos1 Setel oxmlhttp = createObject (microsoft.xmlhttp) '--- atur panggilan xmlhttp dan masalah kirim (no parm sebagai kategori '--- termasuk dalam url oxmlhttp.open get, http: //weather.china.com.cn/travel_gntq.php? cityid = 56196 & cityname = mianyang, false 'tempat ini diubah ke alamat Anda sendiri oxmlhttp.send '--- Muat respons ke dalam kategori Pulau Data BodyText = oxmlhttp.responseBody BodyText = bytestoBStr (BodyText, GB2312) POS = Instr (BodyText, ＜ Tubuh) pos1 = instr (bodyText, ＜/body ＞) BodyText = Mid (BodyText, POS, POS1) BodyText = split (bodyText, ＜ tabel) POS = Instr (BodyText (4), ＜ TR) POS1 = Instr (BodyText (4), ＜/tr>) Tubuh = Mid (BodyText (4), POS, Len (BodyText (4))-POS) tubuh = split (tubuh, ＜/tabel ＞) body1 = split (ganti (ganti (ganti (body (0), ＜br>,), ＜/td>,), ＜/tr>,), cuaca) untuk i = 1 ke ubund (body1) body3 = split (body1 (i), ＜ td) cuaca = cuaca & dokumen.write (& i & $ & cuaca & htmlencode (trim (body3 (0))) &); & vbcrlf Berikutnya cuaca = ganti (cuaca, 1 $, ＜ warna font =#ffffffff ＞【 hari ini 】＜/font ＞) cuaca = ganti (cuaca, 2 $, ＜ warna font =#ffffff ＞【 besok 】＜/font ＞) cuaca = ganti (cuaca, 3 $, ＜ warna font =#ffffffff ＞【 Hari demi hari 】＜/font ＞) Set FS = CreateObject (Scripting.FilesystemObject) Set f = fs.createTextFile (request.serverVariables (appl_physical_path) & tq.js, true) f.write (document.write ('ramalan cuaca mianyang:'); & vbcrlf & ganti (cuaca, ＜br>,))) f.close Set f = tidak ada Atur fs = tidak ada Response.write Prakiraan Cuaca Mianyang: & Cuaca Atur oxmlhttp = tidak ada Jika err.number ＜＞ 0 lalu Ada respons kesalahan. Penulisan, Deskripsi Kesalahan: & Err.Description & ＜BR> Sumber Kesalahan & Err.Source response.end () akhiri jika Fungsi akhir Fungsi bytestoBstr (body, cset) redup objstream Set ObjStream = Server.CreateObject (adodb.stream) objstream.type = 1 objstream.mode = 3 objstream.open Objstream.write Body objstream.position = 0 objstream.type = 2 objstream.charset = cset BytestoBstr = objstream.readtext objstream.close atur objstream = tidak ada Fungsi akhir HTMLencode fungsi publik (FString) Jika tidak isnull (fstring) maka fString = ganti (fString, ＞, & gt;) fString = ganti (fstring, ＜, & lt;) fString = ganti (fString, chr (32),) '& nbsp; fString = ganti (fstring, chr (9),) '& nbsp; fstring = ganti (fstring, chr (34), & quot;) fstring = ganti (fstring, chr (39), ') 'penyaringan 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 %＞ |