Asp使用XMLHTTP方式上实现数据抓取!
来源:互联网 发布:mac blu-ray player 编辑:程序博客网 时间:2024/06/06 13:05
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
'==========================
'过滤HTML代码
'==========================
function nohtml(str)
dim re
if str <> "" then
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(/<.[^/<]*/>)"
str=re.replace(str," ")
re.Pattern="(/<//[^/<]*/>)"
str=re.replace(str," ")
end if
nohtml=str
set re=nothing
end function
Html = Getbody("http://cgi.news.sina.com.cn/cgi-bin/figureWeather/search.cgi?city=重庆")
Html = Bytestobstr(Html,"Gb2312")
s0 = Instr(Html,"<!-- 城市天气 begin -->")
s1 = InstrRev(Html,"<!-- 城市天气 end -->")
Html = mid(Html,s0,s1-s0)
Html = replace(Html,"<!-- 城市天气 begin -->","")
Html = trim(replace(Html," ",""))
s0 = instr(Html,"重庆")
s1 = len(Html)-1
Html = mid(Html,s0,s1-s0)
Html = Trim(nohtml(Html))
Html = replace(Html,chr(10),"")
Html = replace(Html,chr(13),"")
Html = trim(Html)
response.write(html)
- Asp使用XMLHTTP方式上实现数据抓取!
- asp 利用 xmlhttp 抓取网页内容
- Asp利用xmlhttp组件抓取页面
- ASP利用XMLHTTP抓取网页内容
- 使用NodeJs,实现数据抓取
- Asp 使用 Microsoft.XMLHTTP 抓取网页内容无乱码处理,并过滤需要的内容
- ASP中使用XMLHTTP读取远程数据1
- ASP中使用XMLHTTP读取远程数据2
- ASP中使用XMLHTTP读取远程数据3
- ASP中使用XMLHTTP读取远程数据1
- ASP中使用XMLHTTP读取远程数据2
- ASP中使用XMLHTTP读取远程数据3
- ASP中使用XMLHTTP或ServerXMLHTTP读取远程数据
- XMLHTTP抓取数据时乱码问题解决
- XMLHTTP抓取数据时乱码问题解决
- XMLHTTP抓取远程数据的后期处理
- XMLHTTP抓取远程数据的后期处理
- XMLHTTP抓取数据时乱码问题解决
- Delphi 中TMsComm控件使用指南
- ATL问题集(精典整理1)
- Tools
- 为什么这个javascript没有用啊?
- ERP二次开发小结
- Asp使用XMLHTTP方式上实现数据抓取!
- 我伪装认真看完了TIJ
- ATL问题集(精典整理2)
- film
- 红旗4.1系统解决JAVA中文乱码问题
- 测试一个c风格字符串是否是回文字符串
- 关于update语句在不同数据库中的差别
- 多表关联的update语句
- 利用JAVA操作EXCEL文件(JAVA EXCEL API)