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
投稿猜你喜欢
- decimal 模块：decimal意思为十进制，这个模块提供了十进制浮点运算支持1.可以传递给Decimal整型或者字符串参数，但不能是浮
- 本文实例总结了Python正则表达式常用函数。分享给大家供大家参考，具体如下：re.match()函数原型：match(pattern, s
- 因为项目开发中遇到需要向后台传本周的开始和结束时间，以及上一周的起止时间，就琢磨了半天，总算写出来一套，写篇文章是为了方便自己记忆，也是分享
- 本文实例讲述了python os模块简单应用。分享给大家供大家参考，具体如下：举例中的目录形式如下所示：In [36]: pwdOut[36
- 前言序锦在编程中，经常要用到字符串的相互转换，现在在这里记录一下Python里面的字符串和整数以及浮点型数之间是如何进行相互转换的。int(
IntelliJ IDEA 2021最新激活码超详细教程，成功激活到2099年。每天专业人士测试，保证可以使用才分享给大家的，放心大胆使用哈- 服务器重新启动的情况当mysqld启动时，所有的授权表内容被读进存储器并且从那时开始生效。被服务器立即应用的情况用GRANT、REVOKE或
- using System; using System.Data; using Syst
- 今天是 Firefox3的2008下载日 ，这就意味着Firefox3正式发布了。Firefox3有众多的改进和新功能，我最关注的功能之一是
- 一、现象凌晨对线上一张表添加索引，表数据量太大(1亿+数据，数据量50G以上)，造成主从延迟几个小时，各个依赖从库的系统无法查询数据，最终影
- 本文实例为大家分享了vue实现简单全选和反选的具体代码，供大家参考，具体内容如下<!DOCTYPE html><html
- asp代码 如下：读取注册表信息使用了对象WScript.Shell<％Dim strPath strP
- 一、mongodb安装在官网下载适应于自己平台的mongodb，在此安装环境为Windows7-64bit下载完成后直接安装，连续点击nex
- 英文原文：http://www.smashingmagazine.com/2008/08/18/译文原文：http://blog.bingo
- 引用集：using System.Data.OleDb;static string exePath = System.Environment
- 迭代器迭代器（iterator）有时又称游标（cursor）是程式设计的软件设计模式，可在容器物件（container，例如链表或阵列）上遍
- 两年前，我们开发了一套基于Flash的文件（主要是图片）上传RIA应用，提供给阿里巴巴的用户使用。如果你使用过Wordpress或flick
- 引言“ 这是MySQL系列笔记的第九篇，文章内容均为本人通过实践及查阅资料相关整理所得，可用作新手入门指南，或
- 这篇文章主要介绍了基于python实现蓝牙通信代码实例,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋
- 正则表达式处理花括号内容替换赋值@Test public void replaceStr() { &
