WEB开发网资讯源码教程软件素材CMS中心工具社区
开发学院WEB开发ASP XMLHTTP获取web访问头信息和网页代码 阅读

XMLHTTP获取web访问头信息和网页代码

　2006-03-21 10:34:52　来源：WEB开发网　　　
核心提示：<%Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objst

<%

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>

Tags：XMLHTTP 获取 web

编辑录入：爽爽　[复制链接] [打 印]
[]
  • 好
  • 好的评价　如果觉得好，就请您
      0%(0)
  • 差
  • 差的评价　如果觉得差，就请您
      0%(0)
更多精彩
赞助商链接

热点阅读
焦点图片
最新推荐
精彩阅读