获取远程网页内容实例代码

Function getHTTPPage(url) 'Asp 获取远程网页内容实例代码
dim http
set http=Server.createobject("Microsoft.XMLHTTP")'建立XMLHTTP对象
Http.open "GET",url,false '设置http对象打开体例 GET体例，URL[连接页面地址]，同步处理
Http.send() '发送请求
if Http.readystate<>4 then'对象处理状况为 非结束
exit function '退出函数
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")'BytesToBstr获取的源码转换为中文的代码
set http=nothing '消灭对象
if err.number<>0 then err.Clear  '消灭错误
End function

'==================================================
'函数名：BytesToBstr
'作 用：将获取的源码转换为中文
'参 数：Body ------要转换的变量
'参 数：Cset ------要转换的类型
'==================================================
Function BytesToBstr(body,Cset)'BytesToBstr获取的源码转换为响应的代码
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

标题名称：获取远程网页内容实例代码
文章链接：/news44/284644.html

成都网站建设公司_创新互联，为您提供网站维护、品牌网站设计、网页设计公司、Google、电子商务、品牌网站建设

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联