本人就职于一个本地门户网站，每天网站上的天气都得更新。久而久之感到相当麻烦，于是写了一个定时的新闻小偷，帖出来大家参考一下系统要求: 支持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