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
投稿猜你喜欢
Python移动测试开发subprocess模块项目实战
Python的Django框架中TEMPLATES项的设置教程
布同 Python中文问题解决方法（总结了多位前人经验，初学者必看）
Centos 6.5下安装MySQL 5.6教程
手把手教你将Flask应用封装成Docker服务的实现
Golang 错误捕获Panic与Recover的使用
编写安全的SQL Server扩展存储过程
Python turtle库绘制菱形的3种方式小结
SQLServer 2008助你轻松编写T-SQL存储过程
sql模式设置引起的问题解决办法
Python使用sort和class实现的多级排序功能示例
Python中如何给字典设置默认值
web项目中golang性能监控解析
js中的内部属性与delete操作符介绍
pyinstaller打包后,配置文件无法正常读取的解决
JavaScript 禁止用户保存图片的实现代码
AI经典书单 人工智能入门该读哪些书?
GoFrame框架gcache的缓存控制淘汰策略实践示例
Python深度学习pytorch神经网络图像卷积运算详解
