asp获取远程网页的指定内容的实现代码
来源：asp之家 发布时间：2011-02-16 10:41:00
代码如下：
代码如下:
<％
'用ASP获取远程目标网页指定内容
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
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 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
'ASP获取远程网页指定内容开始
Dim wstr,str,url,start,over,dtime
a="开始内容" 'ASP获取目标网页内容开始标记
b="结束内容" 'ASP获取网页内容结束标记
url="https://www.aspxhome.com/"
wstr=getHTTPPage(url)
start=Newstring(wstr,a)
over=Newstring(wstr,b)
body=mid(wstr,start,over-start)
response.write ""&body&"" '输出获取到的网页内容
'ASP获取远程网页指定内容结束
％>
上面的代码可以获取指定网页的内容，如果是全部获取就更简单了
核心代码:
代码如下:
'ASP获取远程网页指定内容开始
Dim wstr,str,url,start,over,dtime
url="https://www.aspxhome.com/"
wstr=getHTTPPage(url)
body=wstr
0
投稿猜你喜欢
- 一、逻辑数据库和表的设计数据库的逻辑设计、包括表与表之间的关系是优化关系型数据库性能的核心。一个好的逻辑数据库设计可以为优化数据库和应用程序
- 熟悉css的开发者一定知道图像替换技术，也深知它的意义，Dave Shea 曾在他的一篇文章对此做了详细的总结，参看 Dave Shea’s
PS笔刷，样式，形状、渐变、滤镜载入方式及使用：１、笔刷载入方式： 打开PS，编辑-->预设管理器-->载入-->然后点你- ASP结合ADO对数据库方便快捷的访问、结合XML、COM/ActiveX等其它技术 实现服务器多层结构的功能使它在今天还有着顽强的生命力。
- 框架特色：一、统一命名空间 默认命名空间为F，当然你也可以改成自己喜欢的名字,整个框架
- 一个很普通的网页中显示LOGO图像，按照以往的页面制作经验，基本是在页面中插入图像即可（<img src="logo.gif
- 当数据库服务器变得十分繁忙导致性能下降时，你会怎么办?购买更多的硬件升级你的服务器，还是重新考虑数据库服务器设计使得数据库平台具备良好的可升
- 随着ajax再网站建设中的的大范围流行，XmlHttp也自然被人们所熟悉。本文介绍了asp任何检测服务器端是否支持xmlhttp组件的方法，
- MySQL数据库由于它本身的小巧和操作的高效, 在数据库应用中越来越多的被采用.本文中列举了一个P2P应用开发实例，实例中使用了MySQL来
- 在这里给出是的WindowsXP操作系统下的安装过程一、下载安装文件到MySQL官方网站找到ZIP文件提示:有些是安装文件，安装时会有提示，
- 下面是一些有助于更有效地使用 SQL 事件探查器的提示和技巧。运行的跟踪过多如果 Microsoft? SQL Server? 实例运行得过
- 文字链接可以说是网页中最常见的页面元素了，默认的文字链接样式都是带下划线的效果，这种一陈不变的外观可能使很多朋友都想改变它，以使之符合页面的
- 本文介绍的圆角方法很特别，有创意。昨天群里大家讨论到一个豆瓣上的按钮，下面这个。在这里用到了不同宽度的按钮，但是只是用到了一个图片。&nbs
- 我一直不很明白在中国国内流行的设计风格，象在国外的很多地方都有鲜明的设计大方向，比如韩国站点设计一般比较花哨，所以动画很多，我们常常看到韩国
- 上文： 《IE7的web标准之道——1：前言（兼目录）》IE历来被web标准的拥护者所诟病，而当FireFox横空出世以后，更多的网页制作者
- 我插入Mysql5的中文一直是乱码。但是直接使用mysqlAdmin,EMS等工具插入DB就不是乱码。而且我还可以使用程序正常地读出来。原因
- abs(number) 返回绝对值。 array(arglist) 创建一个数组。 asc(string) 返回字符串第一个字符的ansi码
- 今天看了微软JScript官方blog上去年的两篇文章： http://blogs.msdn.com/jscript/archive/200
- 从毕业实习算起，从事可用性方面的工作到现在已经5年了。在此记录笔者的一些所见所想，和大家讨论分享一下。用户研究在“以用户为中心”的界面设计方
- 图片按钮是我们经常应用的网页元素，按钮的生成有两种方法，一个是用链接<a>来模拟按钮，一个是用现成的表单按钮。<input
