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

互联网 17-3-27

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访问头信息和网页的示例代码分析的详细内容，更多内容请关注技术你好其它相关文章！

来源链接：

免责声明：
1.资讯内容不构成投资建议，投资者应独立决策并自行承担风险
2.本文版权归属原作所有，仅代表作者本人观点，不代表本站的观点或立场

标签： XMLHTTP，web，网页