Je travaille dans un portail local et la météo sur le site Web doit être mise à jour chaque jour. Au fil du temps, je me suis senti assez gênant, j'ai donc écrit un voleur de nouvelles chronométré.
Voici le contenu du voleur:
| Nom de fichier tianqi.asp Écrire par Niaooked QQ408611119 www.knowsky.com ＜% Si heure (maintenant) = 9 et minute (maintenant) ＜ 30 alors getCategories () terminer si Fonction getCategories () sur l'erreur reprendre ensuite Dim oxmlhttp 'comme objet Dim ocategories "comme objet Text de bodyte POS DIM, POS1 SET OXMLHTTP = CreateObject (Microsoft.xmlHttp) '--- Définissez l'appel et le problème XMLHTTP (pas de parm comme catégorie '--- est inclus dans l'URL oxmlhttp.open get, http: //weather.china.com.cn/travel_gnntq.php? CityId = 56196 & CityName = Mianyang, false 'Cet endroit est modifié en votre propre adresse oxmlhttp.send '--- Chargez la réponse dans les catégories Data Island BodyText = oxmlhttp.ResponseBody BodyText = ByTestObstr (BodyText, GB2312) Pos = instr (bodyText, ＜ body) pos1 = instr (bodyText, ＜ / body ＞) BodyText = Mid (BodyText, Pos, POS1) BodyText = Split (BodyText, ＜ Table) Pos = instr (bodyText (4), ＜ tr) pos1 = instr (bodyText (4), ＜ / tr>) Body = Mid (BodyText (4), Pos, Len (BodyText (4)) - pos) corps = divisé (corps, ＜ / tableau ＞) Body1 = Split (remplacer (remplacer (remplacer (corps (0), ＜br>,), ＜ / td>,), ＜ / tr>,), météo) pour i = 1 à Ubund (Body1) Body3 = Split (Body1 (i), ＜ TD) Weather = Weather & Document.Write (& i & $ & Weather & HtmLencode (Trim (Body3 (0))) &); suivant météo = remplacer (météo, 1 $, ＜ Color de police = # ffffffff ＞【 Aujourd'hui 】＜ / police ＞) Météo = remplacer (temps, 2 $, ＜ Color de police = # ffffff ＞【 demain 】＜ / police ＞) Météo = remplacer (temps, 3 $, ＜ Color de police = # ffffffff ＞【 le jour après jour 】＜ / police ＞) Set fs = createObject (scripting.fileSystemObject) Set f = fs.CreateTextFile (request.servervariables (appl_physical_path) & tq.js, true) F.Write (Document.Write ('Mianyang Météo Prévisions:'); & vBcrlf & Remplace (Weather, ＜br>,)) f.close Définir F = rien Définir FS = rien Response.Write Mianyang Météo Prévisions: & Weather Définir oxmlhttp = rien Si err.number ＜＞ 0 alors Il y a eu une réponse d'erreur. réponse.end () terminer si Fonction finale Fonction bytestobstr (corps, cset) objstream sombre Définir ObjStream = Server.CreateObject (Adodb.Stream) objstream.type = 1 objstream.mode = 3 objstream.open OBJSTREAM.WRITE CORPS objstream.position = 0 objstream.type = 2 objstream.charset = cset ByTestObstr = objstream.readText objstream.close définir objstream = rien Fonction finale Fonction publique htmlencocode (fstring) Sinon ISNULL (fstring) alors fString = remplacer (fstring, ＞, & gt;) fString = remplacer (fstring, ＜, & lt;) fString = remplacer (fstring, chr (32),) '& nbsp; fString = remplacer (fstring, chr (9),) '& nbsp; fString = remplacer (fstring, chr (34), & quot;) fString = remplacer (fstring, chr (39), & # 39;) 'filtrage de devis à une seule fois fString = remplacer (fstring, chr (13),) fString = remplacer (fstring, chr (10) & chr (10), ＜ / p> ＜ p>) fstring = Remplace (fstring, chr (10), ＜br＞) Htmlencode = fstring Terminer si Fonction finale % ＞ |