UC知道请大家帮我一下忙这个过程是什么意思呀？ 讲详细一点行吗？
来源：百度知道 编辑：UC知道 时间：2024/09/22 11:30:14
Public Function GetPageContent(Url)
Dim HTTPObj
On Error Resume Next
Set HTTPObj = Server.CreateObject("Microsoft.XMLHTTP")
With HTTPObj
.Open "Get", Url, False, "", ""
.Send
End With
if HTTPObj.Readystate <> 4 then
Set HTTPObj = Nothing
GetPageContent = False
Exit Function
end if
GetPageContent = ResponseStrToStr(HTTPObj.ResponseBody)
Set HTTPObj = Nothing
End Function
Dim HTTPObj
On Error Resume Next
Set HTTPObj = Server.CreateObject("Microsoft.XMLHTTP")
With HTTPObj
.Open "Get", Url, False, "", ""
.Send
End With
if HTTPObj.Readystate <> 4 then
Set HTTPObj = Nothing
GetPageContent = False
Exit Function
end if
GetPageContent = ResponseStrToStr(HTTPObj.ResponseBody)
Set HTTPObj = Nothing
End Function
这是一个用XMLHTTPRequest对象获取网页内容的VB函数
Public Function GetPageContent(Url)
Dim HTTPObj
On Error Resume Next
Set HTTPObj = Server.CreateObject("Microsoft.XMLHTTP") '创建Microsoft.XMLHTTP对象
With HTTPObj
.Open "Get", Url, False, "", "" '设置Request参数
.Send '发出Request请求
End With
if HTTPObj.Readystate <> 4 then '不成功就释放资源退出
Set HTTPObj = Nothing
GetPageContent = False
Exit Function
end if
GetPageContent = ResponseStrToStr(HTTPObj.ResponseBody) '成功就返回网页内容ResponseBody，这个ResponseStrToStr应该是个自定义的转换Html字符的
Set HTTPObj = Nothing
End Function