tom天气预报小偷

转载于 2007-08-10 19:52:00 发布 · 1k 阅读

·

0

·

文章标签：

#html #function

ASP 专栏收录该内容

13 篇文章

订阅专栏

自动获取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>

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。