XMLHTTP obtains web access header information and sample code analysis of web pages-XML/RSS Tutorial-php.cn

XMLHTTP obtains web access header information and sample code analysis of web pages

黄舟

Release： 2017-03-27 16:45:03

Original

1637 people have browsed it

XMLHTTP obtains web access header information and sample code analysis of web pages

<%
　　 
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>

Copy after login

The above is the detailed content of XMLHTTP obtains web access header information and sample code analysis of web pages. For more information, please follow other related articles on the PHP Chinese website!