asp利用xmlhttp抓取特定网页内容例子
发布时间：2008-10-10 12:58:00
标签：xmlhttp,组件,asp
asp抓取网页。偶要实现实实更新天气预报。利用了XMLHTTP组件，抓取网页的指定部分。很多小偷查询都是使用这个方法来实现的。
需要分件html源代码
此例中的被抓取的html源代码如下
<p align=left>2004年8月24日星期二；白天：晴有时多云南风3—4级；夜间：晴南风3—4级；气温：最高29℃最低19℃ </p>
而程序中是从以2004年8月24日为关键字搜索，直到</p>结速
而抓取的内容就变成了"2004年8月24日星期二；白天：晴有时多云南风3—4级；夜间：晴南风3—4级；气温：最高29℃最低19℃ "
干干净净的了。记录一下。
<％
'asp之家
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(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
％>
<html>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!-- 开始 -->
<％
Dim wstr,str,url,start,over,dtime
dtime=Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"
url="http://www.qianhuaweb.com/"
wstr=getHTTPPage(url)
start=Newstring(wstr,dtime)
over=Newstring(wstr,"</p>")
body=mid(wstr,start,over-start)
response.write "<MARQUEE onmouseover=this.stop(); onmouseout=this.start();>"&body&"</marquee>"
％>
<!-- 结束 -->
</body></html>
0
投稿猜你喜欢
- 如今大部分网站仍然采用表格嵌套内容的方式来制作网站，虽然此方法对于我们来说比较熟悉、比较上手；但是，它却阻碍了一种更好的、更有亲和力的、更灵
前言：书终于完稿了，我也有了一些自己的时间，于是决定将书中讲到的一些比较常见的知识点整理出来，发在Blog里面。当然也不会完全发表出来，毕竟- 方法一一般情况下，SQL数据库的收缩并不能很大程度上减小数据库大小，其主要作用是收缩日志大小，应当定期进行此操作以免数据库日志过大1、设置数
- 看一个网站其实就好比品评一个美女。一看长相，我们很多时候关注的是视觉，比如老板经常会说，你做几个页面让我看看！二看身材，也有很多关注标准和s
- 为了处理根据Web标准创作的网页和根据盛行于20世纪90年代末的旧时实践创作的网页，当代的Web浏览器实现了各种不同的引擎模式。本文说明了那
- 在ASP.NET中，如何连接 SQLServer数据库？连接数据库：<％@ Import Namespace=&q
- 另：@会影响效率如：@mysql_connect() 可以导出错误，但会影响效率。mysql与mysqli的区别：
- Yahoo和Google都有自己的建设高性能网站最佳实践, 我不做赘述, 需要了解的自行查阅资料:Yahoo的: Best Practice
- [pre]REPAIR [LOCAL | NO_WRITE_TO_BINLOG] TABLE[/pre][pre] tbl_name[,tb
- SSI是英文Server Side Includes的缩写，翻译成中文就是服务器端包含的意思。从技术角度上说，SSI就是在HTML文件中，可
- int connectDb() { EXEC SQL BEGIN DECLARE SECTION; char username[20]; c
- 最近经常遇到xmlHttp组件的问题, 今天终于有空将解决过程中的经验整理下来了! ^o^一、在运用xmlhttp组件编
- 首先，创建一个存储过程 get_clob:t_name：要查询的表名；f_name：要查询的字段名；u_id：表的主键，查询条件；l_pos
- 今天在 ajaxian 上看到一篇文章，名为 Five Ajax Anti-pattern ，觉得讲得比较有道理，现粗略翻译一下，加一些自己
- 在我做过的N多项目中，基本都有个跑不开的怪圈——首页很难设计。根据进度安排，首页必须按时出来，不然没法review，也没法测试。于是，首页只
- 笔者通过一周的时间，询问了许多设计人员真实用户，以便确保这六个方面确实是大多数用户所不喜并且有非常大的概率普遍存在于众多的医疗网站之中。那么
- 关于这个话题，我也看到网上有其他方法来解决。 不过从性能和代码量上来看，我有更好的办法。 在这里和大家 分享。 原理其实很简单， 知识1、长
- 这可是个综合性的问题，看看下面对文件操作的集大成代码：<％ 'Set file i/
- 第一章：日志管理 1.forcing log switchessql> alter system switch logfile;2.f
- 代码片段一：alert(Function instanceof Object); // truealert(Object instanceo
