获取远程网页代码内容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
%>


seo优化人员如何让第二页的关键词提升到第一页？
网络营销推广工作怎么做更有效?
网站优化搜索引擎如何判断seo作弊的？
网站建设中注意这几个地方可以提升网站打开速度
如何写软文推广网站赚流量
网站制作需要准备那些资料
已经收录的网页能不能修改？
如何快速解决“网站打不开”？