Trabajo en un portal local y el clima en el sitio web debe actualizarse todos los días. Con el tiempo, me sentí bastante problemático, así que escribí un ladrón de noticias cronometrado.
Aquí está el contenido del ladrón:
| Nombre de archivo Tianqi.asp Escribir por Niaooked QQ408611119 www.knowsky.com ＜% Si hora (ahora) = 9 y minuto (ahora) ＜ 30 entonces getCategories () final si Function getCategories () En el currículum de error siguiente Dim oxmlhttp 'como objeto Dim ocategorías como objeto Tejido oscuro Dim POS, POS1 Establecer oxmlhttp = createObject (Microsoft.xmlhttp) '--- Establezca la llamada XMLHTTP y el envío de emisión (no hay parm como categoría '--- está incluido en URL oxmlhttp.open get, http: //weather.china.com.cn/travel_gntq.php? cityid = 56196 & cityname = mianyang, falso 'Este lugar se cambió a su propia dirección oxmlhttp.send '--- Cargue la respuesta en la isla de datos de categorías BodyText = oxmlhttp.ResponseBody BodyText = ByTestObstr (BodyText, GB2312) Pos = instr (bodyText, ＜ cuerpo) pos1 = instr (bodyText, ＜/cuerpo ＞) BodyText = Mid (BodyText, POS, POS1) BodyText = Split (BodyText, ＜ Tabla) Pos = instr (bodyText (4), ＜ tr) pos1 = instr (bodyText (4), ＜/tr>) Body = Mid (BodyText (4), Pos, Len (BodyText (4))-Pos) cuerpo = dividido (cuerpo, ＜/tabla ＞) Body1 = Split (Reemplace (Reemplace (Reemplace (Cuerpo (0), ＜Br>,), ＜/Td>,), ＜/Tr>,), clima) para i = 1 a Ubund (cuerpo1) Body3 = Split (Body1 (I), ＜ TD) Weather = Weather & Document.Write (& I & $ & Weather & Htmlencode (Trim (Body3 (0))) &); próximo clima = reemplazar (clima, 1 $, ＜ font color =#ffffffff ＞【 hoy 】＜/fuente ＞) clima = reemplazar (clima, 2 $, ＜ font color =#ffffff ＞【 mañana 】＜/fuente ＞) clima = reemplazar (clima, 3 $, ＜ font color =#ffffffff ＞【 el día tras día 】＜/fuente ＞) Establecer fs = createObject (scripting.filesystemObject) Establecer f = fs.CreateTextFile (request.serverVariAbles (appl_physical_path) y tq.js, verdadero) F.Write (Document.Write ('Mianyang Weather Forecast:'); & vbcrlf & reemplazar (clima, ＜br>,))) f.clar Establecer f = nada Establecer fs = nada Respuesta. Escribe el pronóstico del clima de Mianyang: y el clima Establecer oxmlhttp = nada Si err.number ＜＞ 0 entonces Hubo una respuesta de error. Escribe, Descripción del error: & Err.Description & ＜Br> Error Source & Err. Source respuesta.end () final si Función final Función bytestobstr (cuerpo, cset) dim objstream Establecer objstream = server.createObject (ADODB.Stream) objstream.type = 1 objstream.mode = 3 objstream. objstream.write cuerpo objstream.position = 0 objstream.type = 2 objstream.charset = cset Bytestobstr = objstream.readText objstream.close establecer objstream = nada Función final Función pública htmlencode (FString) Si no es isnull (fString) entonces fString = reemplazar (fString, ＞, & gt;) fString = reemplazar (fString, ＜, & lt;) fString = reemplazar (fString, chr (32),) '& nbsp; fString = reemplazar (fString, chr (9),) '& nbsp; fString = reemplazar (fString, chr (34), & quot;) fString = reemplazar (fString, chr (39), ') 'Filtrado de cotización única fString = reemplazar (fString, chr (13),) fString = reemplazar (fString, chr (10) y chr (10), ＜/p> ＜ p>) fString = reemplazar (fString, chr (10), ＜br＞) Htmlencode = fString Final si Función final %＞ |