XMLHTTP获取web造访头信息和网页代码
来源：asp之家 时间：2010-04-01 14:37:00
<％
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>
0
投稿猜你喜欢
asp日期转换成汉字格式程序
ASP 操作cookies的方法
常用的数据库备份类型有哪些？
根据表中数据生成insert语句的存储过程
jsSmarty Project
交互设计规范原则
ASP利用 xmlhttp 分块上传文件
setInterval 和 setTimeout 会产生内存溢出
用ASP实现IE地址栏参数的判断
《色彩解答》系列之三 色彩对比
asp加载access数据库并生成XML文件范例
淘宝CSS框架研究（1）：Reset CSS（八卦篇）
保护你的ASP页面的两种办法
前端优化，让你的网页显示的更快更流畅
注册表单之死
sqlserver 临时表 Vs 表变量 详细介绍
利用Google Ajax Library API加速常用js类库的载入
js 返回 utf-8 字符编码是多少个字节, 函数 fUtf8BoundCheck
asp正则表达式详细说明
未知高度的图片垂直居中
