XMLHTTP ruft Webzugriffs-Header-Informationen und Beispielcode-Analysen von Webseiten ab

黄舟
Freigeben: 2017-03-27 16:45:03
Original
1526 Leute haben es durchsucht

XMLHTTP zum Abrufen von Webzugriffs-Header-Informationen und Beispielcode-Analyse von Webseiten

<%
   
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>
Nach dem Login kopieren

Das obige ist der detaillierte Inhalt vonXMLHTTP ruft Webzugriffs-Header-Informationen und Beispielcode-Analysen von Webseiten ab. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!

Verwandte Etiketten:
Quelle:php.cn
Erklärung dieser Website
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn
Beliebte Tutorials
Mehr>
Neueste Downloads
Mehr>
Web-Effekte
Quellcode der Website
Website-Materialien
Frontend-Vorlage
Über uns Haftungsausschluss Sitemap
Chinesische PHP-Website:Online-PHP-Schulung für das Gemeinwohl,Helfen Sie PHP-Lernenden, sich schnell weiterzuentwickeln!