Ich arbeite in einem lokalen Portal und das Wetter auf der Website muss täglich aktualisiert werden. Im Laufe der Zeit fühlte ich mich ziemlich mühsam, also schrieb ich einen zeitgesteuerten Nachrichtendieb.
Hier ist der Inhalt des Diebes:
| Dateiname tianqi.asp Schreiben Sie von Niaooked QQ408611119 www.knowsky.com ＜% Wenn Stunde (jetzt) = 9 und Minute (jetzt) ＜ 30 dann getCategories () Ende wenn Funktion getCategories () Bei der nächsten Fehleraufnahme als nächstes Dim Oxmlhttp 'als Objekt Dim Ocategories 'als Objekt Dimer BodyText Dim Pos, Pos1 Setzen Sie OxMlHttp = CreateObject (microsoft.xmlhttp) '--- Legen Sie den XMLHTTP-Anruf ein und geben Sie SEND (kein Parm als Kategorie '--- ist in der URL enthalten oxmlhttp.open Get, http: //weather.china.com.cn/travel_gntq.php? CityId = 56196 & CityName = Mianyang, False 'Dieser Ort wird in Ihre eigene Adresse geändert oxmlhttp.send '--- Laden die Antwort in die Kategoriendateninsel laden Sie BodyText = oxmlhttp.responseBody BodyText = byTestObstr (bodyText, gb2312) Pos = instr (bodytext, ＜ Körper) Pos1 = Instrument (BodyText, ＜/Körper ＞) BodyText = Mid (BodyText, POS, POS1) BodyText = Split (BodyText, ＜ Tabelle) Pos = instr (bodytext (4), ＜ tr) pos1 = instr (bodytext (4), ＜/tr>) Body = Mid (BodyText (4), Pos, Len (BodyText (4))-Pos) Körper = Split (Körper, ＜/Tabelle ＞) Body1 = Split (ersetzen (ersetzen (Körper (0), ＜br>,), ＜/td>,), ＜/tr>,), Wetter), Wetter)) für i = 1 bis ubund (Body1) Body3 = Split (Body1 (i), ＜ td) Weather = Weather & Document.Write (& i & $ & Weather & HTMlencode (Trim (Body3 (0)) &); nächste Wetter = Ersetzen (Wetter, 1 $, ＜ Schriftart Farbe =#ffffffff ＞【 heute 】＜/Schriftart ＞) Wetter = Ersetzen (Wetter, 2 $, ＜ Schriftart Farbe =#ffffff ＞【 morgen 】＜/Schriftart ＞) Wetter = Ersetzen (Wetter, 3 $, ＜ Schriftart Farbe =#ffffffff ＞【 am Tag für Tag 】＜/Schriftart ＞) Setzen Sie fs = createObject (scripting.FilesSystemObject) Setzen Sie f = fs.createTextFile (Request.Servervariables (appl_physical_path) & tq.js, true) F.Write (document.write ('Mianyang Wettervorhersage:'); & vbcrlf & ersetzen (Wetter, ＜BR>,)) F.CLOSE Setzen Sie f = nichts Setzen Sie fs = nichts Reaktion. Schreiben Sie Mianyang Wettervorhersage: & Wetter Setzen Sie Oxmlhttp = nichts wenn err.number ＜＞ 0 dann Es gab eine Fehlerantwort. Antwort.end () Ende wenn Endfunktion Funktion byTestObstr (Körper, cset) Dimer Objstream Setzen Sie 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 objstream einstellen = nichts Endfunktion Öffentliche Funktion HTMlencode (FSTRING) Wenn nicht ist nicht (Fstring) fstring = ersetzen (fstring, ＞, & gt;) fstring = ersetzen (fstring, ＜, & lt;) fstring = ersetzen (fstring, chr (32),) '& nbsp; fstring = ersetzen (fstring, chr (9),) '& nbsp; fstring = ersetzen (fstring, chr (34), & quot;) fstring = ersetzen (fstring, chr (39), ') 'Single -Zitat -Filterung fstring = ersetzen (fstring, chr (13),) fstring = ersetzen (fstring, chr (10) & chr (10), ＜/p> ＜ p>) fstring = ersetzen (fstring, chr (10), ＜br＞) Htmlencode = fstring Ende wenn Endfunktion %＞ |