Trabalho para um portal local e a previsão do tempo no site precisa ser atualizada todos os dias. Com o tempo, tornou-se bastante problemático, então escrevi um ladrão de notícias programado. Consulte os requisitos do sistema após publicá-lo: Suporte FSO, servidor UDP TCP/IP
A seguir está o conteúdo do ladrão.
Nome do arquivo TianQi.asp
Escrever por Nioked QQ408611119
www.downcodes.com
<%
se hora(agora)=9 e minuto(agora)<30 então
getCategorias()
terminar se
Função getCategories()
em caso de erro, retome a seguir
Dim oXMLHTTP 'Como objeto
Dim oCategories 'As Object
DimBodyText
DimPos,Pos1
Definir oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
'--- define a chamada XMLHTTP e emite o envio (sem parm como categoria
'--- está incluído no URL
oXMLHTTP.open "GET"," http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname =Mianyang",False 'Substitua este lugar pelo seu próprio endereço
oXMLHTTP.send
'--- carrega a resposta na ilha de dados Categorias
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"gb2312")
Pos=Instr(BodyText,"<corpo")
pos1=Instr(BodyText,"</body>")
BodyText=mid(BodyText,pos,pos1)
BodyText=split(BodyText,"<tabela")
Pos=Instr(BodyText(4),"<tr")
pos1=Instr(BodyText(4),"</tr>")
Corpo=meio(BodyText(4),pos,len(BodyText(4))-pos)
corpo=dividir(corpo,"</table>")
body1=split(replace(replace(replace(body(0),"<br>",""),"</td>",""),"</tr>",""),"Tempo" )
para i= 1 para ubound(body1)
corpo3=dividir(corpo1(i),"<td")
weather=weather & "document.write("""& i&"$" & "Weather" & HTMLEncode(trim(body3(0))) & """);"
próximo
weather=replace(weather,"1$","<FONT color=#ffffff>【Hoje】</FONT>")
weather=replace(weather,"2$","<FONT color=#ffffff>【Amanhã】</FONT>")
weather=replace(weather,"3$","<FONT color=#ffffff>【Depois de amanhã】</FONT>")
Definir fs = CreateObject("Scripting.FileSystemObject")
Definir f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", True)
f.write("document.write('Previsão do tempo em Mianyang:');" &vbcrlf & replace(clima,"<BR>",""))
f.fechar
Definir f = nada
Defina fs = nada
response.write "Previsão do tempo em Mianyang:"& clima
Definir oXMLHTTP = Nada
se err.número<>0 então
response.write "Ocorreu um erro, descrição do erro:"&err.description & "<br>Fonte do erro"& err.source
resposta.End()
terminar se
Função Final
Função BytesToBstr(body,Cset)
escurecer objstream
definir objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
Função final
Função Pública HTMLEncode(fString)
Se não for nulo (fString) então
fString = substituir(fString, ">", ">")
fString = substituir(fString, "<", "<")
fString = Substituir(fString, CHR(32), " ") '
fString = Substituir(fString, CHR(9), " ") '
fString = Substituir(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'") 'Filtragem de aspas simples
fString = Substituir(fString, CHR(13), "")
fString = Substituir(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Substituir(fString, CHR(10), "<BR> ")
HTMLEncode=fString
Terminar se
Função final
%>