抓取网页萃取网页内容的代码 选择自 liujien 的 Blog
2006-05-15 21:46
393 查看
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," " ) |
相关文章推荐
- 抓取网页萃取网页内容的代码 选择自 liujien 的 Blog
- 通过java.net.URL类抓取某个网页的内容 选择自 cqq 的 Blog
- 网页特效|网页特效代码(JsHtml.cn)---左右选择添加删除内容菜单
- asp中利用xmlhttp抓取网页内容的代码
- php 实现信息采集(网页内容抓取)程序代码
- Python抓取网页内容应用代码分析
- php中抓取网页内容的代码
- 抓取网页内容的程序或代码(两层或更多,delphi)
- Python抓取网页内容应用代码分析
- 只允许选择网页内容,不允许复制网页内容的js代码
- java 抓取网页内容实现代码
- 网页嵌入媒体播放器代码 选择自 murky 的 Blog
- 使用PHP简单网页抓取和内容分析
- ASP.NET抓取其他网页代码
- 网页插入real播放器多文件可选择播放的代码 2006-6-9-1
- java网页抓取内容
- 抓取网页代码,Streambyte[]string转换
- 禁止拷贝网页内容 方法 代码
- xmlhttp 抓取网页内容2