获取远程网页代码内容GetRemoteData

获取远程网页代码内容getremotedata
<%
'================================================
'函数名：getremotedata
'作 用：获取远程网页代码内容,获取http页
'参 数：url ----远程url
'语 言：vbscript (asp)
'返回值：远程html代码
'================================================
public function getremotedata(byval url)
cset = gb2312 '设置远程网页的编码体例
dim strheader
dim l
on error resume next
dim retrieval
dim objstream
set objstream = createobject(adodb.stream)
objstream.type = 1
objstream.mode = 3
objstream.open
set retrieval = createobject(msxml2.xmlhttp)
with retrieval
.open get, url, false
.setrequestheader referer, url
.send
if .readystate <> 4 then exit function
if .status > 300 then exit function
'--获取远程目标网页文件头
strheader = .getresponseheader(content-type)
strheader = ucase(strheader)
objstream.write (.responsebody)
end with
set retrieval = nothing
if len(strheader) > 0 then
'--获取目标网页文件编码
l = instrrev(strheader, charset=, -1, 1)
if l > 0 then
cset = right(strheader, len(strheader) - l - 7)
else
cset = cset
end if
end if
objstream.position = 0
objstream.type = 2
objstream.charset = trim(cset)
getremotedata = objstream.readtext
objstream.close
set objstream = nothing
exit function
end function
%>


南京到龙口物流专线
大连到阳春物流专线
微博营销的前景——沉沦还是超越?
洛阳到那曲物流专线
企业建站服务都包括哪些项目？
泉州到溧阳物流专线
苏州到白银物流专线
高权重网站所具备哪些条件?