月光软件站 - 编程文档 - ASP - 抓取网页萃取网页内容的代码

ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格：冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

抓取网页萃取网页内容的代码

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

dim sUrl
　　 sUrl="http://travel.state.gov/visa/frvi_bulletincurrent.html"
　　 Function streamtochar(StrStream)
　　 set stream=CreateObject("ADODB.Stream")
　　 stream.type=1
　　 stream.Mode=3
　　 stream.Open
　　 stream.Write Strstream
　　 stream.Position= 0
　　 stream.Type= 2
　　 stream.Charset="gb2312"
　　 streamtochar= stream.ReadText
　　 stream.Close
　　 set stream=nothing
　　 End Function
　　 i = i + 1
　　 function getContentByUrl(url)
　　 set XmlHttp = CreateObject("MSXML2.XMLHTTP")
　　 XmlHttp.open "GET",url,false
　　 XmlHttp.send
　　 getContentByUrl = streamtochar(oXmlHttp.responseBody)
　　 set XmlHttp=nothing
　　 end function
　　
　　 function getRealContent(url)
　　 sContent = getContentByUrl(url)
　　 getRealContent=sContent
　　 end function
　　
　　html= getContentByUrl(surl)
　　 url_start=inStr(html," " ) 　　 url_end=inStr(html," ")
　　 url=Mid(html,url_start,url_end-url_start)
　　 url=replace(url,"“)　　
　　 Date_start=inStr(html,"Washington, D.C. ")+57
　　 Date_end=inStr(html," A. STATUTORY")-14
　　 Date_T=Mid(html,Date_start,Date_end-Date_start)

相关文章：

相关软件：