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