无超级链接的天气预报代码（ASP采集天气预报）？
网站添加天气预报代码，但是很多都是超级链接广告，这里提供个无超级链接广告的天气预报代码给大家分享。简单的ASP采集TOM天气预报的源代码，代码如下：
<%
on error resume next
function weather(city)
DIM Product(5)
content = getHTTPPage("http://tq.tom.com/china/index.html")
cc = split(content," align=center><td><font color=#005FC9>")
'response.write (cc(0))
for each a in cc
a1 = split(a,"</font></td><td>")'a1(0)为城市
if (a1(0)=city) then
'response.write a1(0)&a1(1)
a2 = split(a1(1),"</td><td>")'a2(0)天气,a2(1)最高温度,a2(2)最低温度
Product(0) = city
Product(1) = a2(0)
Product(2) = a2(1)
Product(3) = a2(2)
a3 = split(a2(3),"</td>")
Product(4) = a3(0)
exit for
end if
'response.write a&vbcrlf
next
weather = Product
end function
response.write city&vbcrlf&a2(0)&vbcrlf&a2(1)&vbcrlf&a2(2)&vbcrlf&wind
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 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
a = weather("南宁")'这里是城市名称
response.write "城市："&a(0)&"<br>"
response.write "天气："&a(1)&"<br>"
response.write "最低温度："&a(2)&"<br>"
response.write "最高温度："&a(3)&"<br>"
response.write "风力："&a(4)
%>
'以上代码只需制作个独立文件tq.asp，用<!--#include file="tq.asp"-->实现即可。
'这里也要感谢好朋友（惟零）对我的支持！同时，希望这份源代码能为您解决燃眉之急，如需转载请保留版权。
该文章源自[惟零广告]：http://25gx.com/wl2009/New-356.html 本帖最后由 华夏久久 于 2011-2-16 21:43 编辑
见到此好帖，没有话可说马上顶起！
谢谢分享，我会继续关注您！希望您还有更好的东东供大家来分享！
页:
[1]