Eu trabalho em um portal local e o clima no site precisa ser atualizado todos os dias. Com o tempo, senti -me bastante problemático, então escrevi um ladrão de notícias cronometrado.
Aqui está o conteúdo do ladrão:
| FileName Tianqi.asp Escreva por Niaooked QQ408611119 www.knowsky.com ＜% Se hora (agora) = 9 e minuto (agora) ＜ 30 então getCategories () final se Função getCategories () em erro de erro em seguida Dim oxmlHttp 'como objeto Dimcategories 'como objeto Dim BodyText Dim POS, POS1 Definir oxmlHttp = CreateObject (Microsoft.xmlHttp) '--- Defina a chamada e a emissão xmlHttp Enviar (sem parm como categoria '--- está incluído em URL oxmlhttp.open get, http: //weather.china.com.cn/travel_gntq.php? CityId = 56196 & cityName = mianyang, false 'Este lugar é alterado para seu próprio endereço oxmlHttp.send '--- Carregue a resposta nas categorias 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) corpo = divisão (corpo, ＜/tabela ＞) corpo1 = dividido (substitua (substitua (substitua (corpo (0), ＜br>,), ＜/td>,), ＜/tr>,), clima) para i = 1 a ubund (corpo1) corpo3 = divisão (corpo1 (i), ＜ td) Weather = Weather & Document.Write (& I & $ & Weather & Htmlencode (Trim (Body3 (0)) e); próximo clima = substituir (clima, 1 $, ＜ font cor =#fffffff ＞【 hoje 】＜/font ＞) clima = substituir (clima, 2 $, ＜ font cor =#ffffff ＞【 amanhã 】＜/font ＞) clima = substituir (clima, 3 $, ＜ font cor =#fffffff ＞【 no dia após dia 】＜/font ＞) Set fs = createObject (script.filesystemoBject) Set f = fs.createTextFile (request.servervariables (appl_physical_path) & tq.js, true) F.Write (Document.Write ('Mianyang Weather Prevision:'); & Vbcrlf & Substituir (Weather, ＜br>,))) F.Close Definir F = nada Definir fs = nada Response.Write Mianyang Previsão do tempo: e clima Defina oxmlHttp = nada se err.Number ＜＞ 0 então Houve uma resposta de erro.Write, Error Descrição: & Err.Description & ＜br> Fonte de erro e err.Source Response.end () final se Função final Função bytestobstr (corpo, cset) objStream dim set objStream = server.createObject (adodb.stream) objstream.type = 1 objstream.mode = 3 objstream.open objstream.write corpo objstream.Position = 0 objstream.type = 2 objstream.charset = cset Bytestobstr = objStream.readText objstream.close definir objstream = nada Função final Função pública htmlencode (fstring) Se não é IsNull (fString) então fString = substituir (fstring, ＞, & gt;) fString = Substituir (fstring, ＜, & lt;) fString = Substituir (fString, Chr (32),) '& nbsp; fString = Substituir (fString, Chr (9),) '& nbsp; fString = Substituir (FString, Chr (34), & quot;) fString = Substituir (FString, Chr (39), ') 'Filtragem de citação única fString = Substituir (fstring, Chr (13),) fString = Substituir (fString, Chr (10) e Chr (10), ＜/P> ＜ P>) fString = Substitua (fString, Chr (10), ＜br＞) Htmlencode = fString Final se Função final %＞ |