天气预报的小偷程序

盗用sina.com.cn的天气预报 转化了一种格式

<%
 On Error Resume Next
 Server.Scripttimeout=9999999
 Function Gethttppage(Path)
 T = Getbody(Path)
 Gethttppage=Bytestobstr(T,"Gb2312")
 End Function
 
 
 Function Getbody(Url)
 On Error Resume Next
 Set Retrieval = Createobject("Microsoft.Xmlhttp")
 With Retrieval
 .Open "Get", Url, False, "", ""
 .Send
 Getbody = .Responsebody
 End With
 Set Retrieval = Nothing
 End Function
 
 
 
 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
 
 Function Newstring(Wstr,Strng)
 Newstring=Instr(950,Lcase(Wstr),Lcase(Strng)    '从950个字符开始
 If Newstring<=0 Then Newstring=Len(Wstr)
 End Function

%> 

<%
 Dim Wstr,Str,Url,Start,Over,City

 
    'City = Request.Querystring("Id")
  
  
   'Url="Http://Appnews.Qq.Com/CGI-bin/News_qq_search?city="&City&""
   Url="http://news.sina.com.cn/iframe/weather/110100.html"
  
  
   body=Gethttppage(Url)
 
   Start=Newstring(body,"<B>")
 
 
   Over=Newstring(body,"</B>")
 '  response.Write over
  
   Body1=Mid(body,Start,Over-start)
  
      Start=Newstring(body,"src=")
 
 
   Over=Newstring(body,".gif")
      Body2=Mid(body,Start,Over-start)
 
 '  ' str="</img>"
   ' Body = Replace(Body,"◎","<img src='images/dot_title.gif' width='11' height='11'/>")
 'strword=instr(body,"</a>")
 '   Body = Replace(Body,"</a>","</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
' Body = Replace(Body,"document.write('","")
' Body = Replace(Body,"');","")
  '  Body = Replace(Body," class=MainContentS","")

   ' Body = Replace(Body,"</tr><tr>","</tr><br/><tr>")
  
  'Response.Write ("<script language='javascript'>"&Body&"</script")
   Response.Write Body1
  Response.Write "<IMG height=19 "&body2&".gif  width=27>"

   %>