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

%>

当前文章：获取远程网页代码内容GetRemoteData
URL分享：/news20/281570.html

成都网站建设公司_创新互联，为您提供网页设计公司、网站导航、全网营销推广、定制网站、品牌网站设计、手机网站建设

广告

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