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

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

创新互联建站主营沙市网站建设的网络公司,主营网站建设方案,App定制开发,沙市h5小程序开发搭建,沙市网站营销推广欢迎沙市等地区企业咨询

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
　　 
%>
<html>
　　 
<head>
<title>XMLHTTP测试</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
</head>
　　 
<body bgcolor="#D4D0C8" topmargin="20" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
　　 
<div align="center">
　　 <table border="1" width="770px" cellspacing="0" cellpadding="0" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="356">
　　　　 <tr>
　　　　　　 <form method="post">
　　　　　　　　 <td align="center" height="50">
　　　　　　　　 <input type="text" name="url" style="width:700;height:20" value="<%=url%>">
　　　　　　　　 <input type="submit" value="查看"> </td>
　　　　　　 </form>
　　　　 </tr>
　　　　 <tr>
　　　　　　 <td align="center" height="124">
　　　　　　 <textarea id="Textarea2" name="Textarea2" rows="7" cols="105"><%=header%></textarea></td>
　　　　 </tr>
　　　　 <tr>
　　　　　　 <td height="230" align="center">
　　　　　　 <textarea id="Textarea1" name="Textarea1" rows="14" cols="105"><%=bo%></textarea></td>
　　　　 </tr>
　　 </table>
</div>
　　 
</body>
　　 
</html>

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

新闻名称：XMLHTTP如何获取web访问头信息和网页-创新互联
本文网址：https://www.cdcxhl.com/article14/phjde.html

成都网站建设公司_创新互联，为您提供动态网站、微信公众号、网站内链、网站导航、定制开发、移动网站建设

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

猜你还喜欢下面的内容