本人就职于一个本地门户网站，每天网站上的天气都得更新。久而久之感到相当麻烦，于是写了一个定时的新闻小偷，帖出来大家参考一下系统要求: 支持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
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
