·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 抓取网页萃取网页内容的代码

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

类别: ASP教程  评论数:0 总得分:0
dim sUrl
   sUrl="http://localhost/index.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)
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1