Maison > Article > développement back-end > XMLHTTP obtient des informations d'en-tête d'accès Web et un exemple d'analyse de code de pages Web
XMLHTTP pour obtenir des informations d'en-tête d'accès au Web et un exemple d'analyse de code des pages 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>
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!