tom天气预报小偷

 

 

自动获取tom网站的天气预报，很不错哦。

< html >
  < head >
  < title > tom天气预报 </ title >
  < meta  http-equiv ="Content-Type"  content ="text/html; charset=gb2312" >
  < style  type ="text/css" > ...
 <!--
 body {...}{
 font-size:12px;
 }
 -->
  </ style >
  </ head >
  < body >
  <% ...
  on error resume next
 set http_request = Server.CreateObject("MSXML2.XMLHTTP")
 http_request.Open "GET","http://tq.tom.com",false
 http_request.send
 content = BytesToBstr(http_request.ResponseBody,"gb2312")
 
 i = InStr(content,"<marquee")
 content = Right(content,len(content)-i+1)
 i = InStr(content,"</marquee>")
 content = Left(content,i+9)
 
 content = Replace(content,"scrollamount=1","scrollamount=2")
 
 Function BytesToBstr(body,Cset) 
 dim objstream 
 set objstream = Server.CreateObject("adodb.stream") 
 objstream.Type = 1 
 objstream.Mode =3 
 objstream.Open 
 objstream.Write body 
 objstream.Position = 0 
 objstream.Type = 2 
 objstream.Charset = Cset 
 BytesToBstr = objstream.ReadText 
 objstream.Close 
 set objstream = nothing 
 End Function
 
 Response.Write content
 
 On Error Goto 0
  %>
  </ body >
</ html >