asp+|xml|程式|天氣預報
本人就職於一個本地門戶網站，每天網站上的天氣都得更新。久而久之感到相當麻煩，於是寫了一個定時的新聞小偷，帖出來大家參考一下系統要求: 支援FSO, 伺服器UDP TCP/IP 沒有屏蔽。
下面是小偷的內容：
FileName TianQi.asp
Write By Niaoked QQ408611119
www.knowsky.com
＜%
if hour(now)=9 and minute(now)＜30 then
getCategories()
end if
Function getCategories()
on error resume next
Dim oXMLHTTP ' As Object
Dim oCategories ' As Object
Dim BodyText
Dim Pos,Pos1
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
'--- set the XMLHTTP call and issue send (no parm as category
'--- is included in URL
oXMLHTTP.open "GET","http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname=綿陽",False '這個地方換成你自己的地址
oXMLHTTP.send
'--- load the response into the Categories 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)
body=split(body,"＜/table＞")
body1=split(replace(replace(replace(body(0),"
",""),"＜/td＞",""),"＜/tr＞",""),"天氣")
for i= 1 to ubound(body1)
body3=split(body1(i),"＜td")
weather=weather & "document.write("""& i&"$" & "天氣" & HTMLEncode(trim(body3(0))) & """);" & vbcrlf
next
weather=replace(weather,"1$","＜FONT color=#ffffff＞【今天】＜/FONT＞")
weather=replace(weather,"2$","＜FONT color=#ffffff＞【明天】＜/FONT＞")
weather=replace(weather,"3$","＜FONT color=#ffffff＞【後天】＜/FONT＞")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", True)
f.write("document.write('綿陽天氣預報:');" &vbcrlf & replace(weather,"
",""))
f.close
Set f = nothing
Set fs = nothing
response.write "綿陽天氣預報:"& weather
Set oXMLHTTP = Nothing
if err.number＜＞0 then
response.write "出錯了，錯誤描述："&err.description & "
錯誤來源" err.source
response.End()
end if
End Function
[1] [2] 下一頁
