ホームページ >バックエンド開発 >XML/RSS チュートリアル >XMLHTTPはWebアクセスヘッダ情報とWebページのサンプルコード解析を取得します

XMLHTTPはWebアクセスヘッダ情報とWebページのサンプルコード解析を取得します

黄舟
黄舟オリジナル
2017-03-27 16:45:031623ブラウズ

XMLHTTPを使用してWebアクセスヘッダー情報と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アクセスヘッダ情報とWebページのサンプルコード解析を取得しますの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。

声明:
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。