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
投稿猜你喜欢
可能是我“火星”了，不过在 空虚 的 Blog 中学到的一招。这个技巧的原理是利用 iframe 载入本机各盘符的根目录，然后判断 ifra- 网页采用了 UTF-8 编码格式，这本来没有问题，问题是外部 CSS 文件默认是 ANSI
- javascript代码编写在页面中实现页内搜索功能，类似Word等文本编辑软件里的搜索功能，只要是页面中的字符（别管是显在的还是隐蔽在文本
- 话说网站首页是用.NET语言写的，而二级栏目页却是用ASP写的，然后再配上众多全手工的静态专题页，整个网站形成了一个大杂烩。想要在这大杂烩中
- 在更改列顺序之前，你需要考虑是否的确需要更改表中的列顺序。SQL的核心要点是从数据存储格式获取应用。总应指定检索数据的顺序。在下面的第1条语
- 1005：创建表失败1006：创建数据库失败1007：数据库已存在，创建数据库失败1008：数据库不存在，删除数据库失败1009：不能删除数
- 今天在看罗素的《西方哲学史》时，忽然想到了这个想法，我认为可以从另外一个角度来看“用户体验“的影响因素。上面这个图是我今天思考的一部分，这是
- 在一个页面制作过程，突然被设计稿上的一个问题难住了，思路一时没打开，后来在费人的提醒下，用定位控制，顺利完成。这个是我做的大概的
- 上次在“给网页添加打印按钮”一文中，有一段代码是“复制本文链接到剪贴板”js脚本，很可惜只能在IE中使用。这次在“淘宝网在线充值中心 - 荆
- 很多人都有研究闭合浮动元素的问题，但是解决方法却不一样，也并不是每一种方法都尽善尽美。闭合浮动元素（或者叫清除浮动）是web标准设计中经常会
- 老外真是聪明，这个方法也想得到，有兴趣的不妨试试，但是如果对方的服务器安全搞的很好的话，这个代码也许就不能用了，但不管怎么样，学习一下也是好
- 我们通常会通过单击按钮的操作，将定义好的内容直接复制到剪贴板对于用户来说点了按钮直接【Ctrl】+【V】就可以了。其实该功能的核心原理就是用
- ASP编写完整的一个IP所在地搜索类的修正文稿修正了查询方法，查询的方法和追捕的一致；只是追捕会自动更正IP。还有个函数的书写错误，也已经修
- 锁是指在某组资源中，两个或两个以上的线程在执行过程中，在争夺某一资源时而造成互相等待的现象，若无外力的作用下,它们都将无法推进下去，死时就可
- 格式为： SCRENC [/s] [/f] [/xl] [/l defLanguage ] [/e de
- 朋友去面试。对方问他：说说你之前做的那个站，有什么地方好的？朋友就说：用户体验比别的站好。对方又问：你怎么知道用户体验比别的好？朋友于是又磕
- 一个正则表达式就是由普通字符（例如字符 a 到 z）以及特殊字符（称为元字符）组成的文字模式。该模式描述在查找文字主体时待匹配的一个或多个字
- 什么是Css Hack?由于不同的浏览器，比如Internet Explorer 6,Internet Explorer 7,Mozilla
- 给静态网页加密的方法有很多，有的简单有的复杂。前两天看见有人问静态网页加密问题，就写了这个代码思路：加密时：先把用户的密钥A用md5加密为B
- 怎么增大MySQL数据库连接数，MYSQL数据库安装完成后，默认连接数是100，流量稍微大一点的论坛或网站这个连接数是不够哟用
