XMLHTTP如何获取web访问头信息和网页-创新互联

这篇文章主要介绍了XMLHTTP如何获取web访问头信息和网页，具有一定借鉴价值，需要的朋友可以参考下。希望大家阅读完这篇文章后大有收获。下面让小编带着大家一起了解一下。

XMLHTTP获取web访问头信息和网页的示例代码分析

<%
　　 
Function BytesToBstr(body,Cset)
　　 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
　　 
url=request.form("url")
if trim(url)<>"" then
　　 set xml = Server.CreateObject("MSXML2.XMLHTTP.5.0")
　　 xml.open "GET",url, False
　　 xml.send
　　 bo = BytesToBstr(xml.ResponseBody,"UTF-8")
　　 header = xml.GetAllResponseHeaders
　　 set xml = nothing
end if
　　 
%>

　　 




　　 

　　 

　　 
　　　　 
　　　　　　 
　　　　　　　　 
　　　　　　 
　　　　 
　　　　 
　　　　　　 
　　　　 
　　　　 
　　　　　　 
　　　　 
　　 

　　　　　　　　 
　　　　　　　　  

　　　　　　 <%=header%>

　　　　　　 <%=bo%>

　　 

　　 

感谢你能够认真阅读完这篇文章，希望小编分享XMLHTTP如何获取web访问头信息和网页内容对大家有帮助，同时也希望大家多多支持创新互联，关注创新互联行业资讯频道，遇到问题就找创新互联，详细的解决方法等着你来学习!