最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp xmlhttp 采集网页内容代码
时间：2022-07-02 23:02:39 编辑：袖梨 来源：一聚教程网
css教程" rel="stylesheet" type="text/css">
Function getHTTPPage(url)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
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
相关文章
- 英雄联盟手游婕拉玩法指南 07-02
- 知识：如何玩转Blum并获得Blum空投？赚取BLUM币新手指南 07-02
- LazPad：为启动而生，为玩法而建 07-02
- 逆水寒白发梅梢暮雪外观如何获取 07-02
- 死亡搁浅2NPC升星技巧分享 07-02
- 卡普空制作人亲自解释为什么里昂不是《生化危机9：安魂曲》主角！ 07-02