偷也是门技术——浅谈XMLHTTP应用：新闻小偷

来源：百度文库编辑：神马文学网时间：2024/04/29 10:07:21

偷，即无劳而获。在网络上，诸如某大型权威站点发布了新闻，而自己的小小站点也想与时俱进，和人家一样同步更新，多N啊。于是，偷就是最好的办法了。偷是不道德的，不鼓励偷，但又不提倡不偷，都是技术惹的祸，扯远了~！
小偷程序是什么？
其实是通过XML中的XMLHTTP对象调用其它网站上的网页，甚至可以将接受的HTML代码进行过滤以获得需要内容（比如提取某某气象站，不可能是将整站提取显示，而只是需要显示天气的那部分）。
其实就是一个寄生虫嘛，适合该网站的小偷程序已经唯一确定了，则只要该站点不改版替换相关主要内容，则永远偷下去。否则，就需要相应的修改小偷程序了。btw，在小胖的PUBCMS中已定义为爬虫，我想意思也差不多了。
那么如何偷呢？看过XMLHTTP介绍的应该了解些。
先定义了一个函数，解释在函数中：
<%
Function getHTTPPage(url)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")‘定义
objXML.open "GET",url,false‘打开
objXML.send()‘发送
If objXML.readystate<>4 then ‘判断文档是否已经解析完，以做客户端接受返回消息
exit function
End If
getHTTPPage=BytesToBstr(objXML.responseBody)‘返回信息，同时用函数定义编码
‘getHTTPPage=bytes2BSTR(objXML.responseBody)‘或者返回信息时用函数转换汉字
set objXML=nothing‘关闭
if err.number<>0 then err.Clear
End Function
%>
接着就来看看定义编码函数BytesToBstr()的主要内容
<%
Function BytesToBstr(body)
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 = "GB2312"
‘转换原来默认的UTF-8编码转换成GB2312编码，否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
当然，还可以使用专门的函数来处理汉字：
Function bytes2BSTR(vIn)
strReturn = ""
For j = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,j,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,j+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
j = j + 1
End If
Next
bytes2BSTR = strReturn
End Function
lenB返回字节数而不是字符数，同理ascB返回每个字节的ascii码，大于80h，也就是128的ascii是汉字——半个汉字，把半个半个的汉字ascii码拼合再用chr函数返回字符就可以了。
应用则如下：
<%
Dim Url,Html
Url = "http://www.cnbruce.com/blog"
Html = getHTTPPage(Url)
response.write(Html)
%>
即表示对 http://www.cnbruce.com/blog 的内容进行“偷”行为，返回了相关该站的内容。
这样一个页就被“偷”下来了。同时，注意到返回的信息中，有的图片不能显示，样式也不能连接，如要正常，则需要将返回的信息做过滤和调整。

偷也是门技术——浅谈XMLHTTP应用：新闻小偷 XMLHTTP小偷程序原理-及一天气预报小偷程序浅谈HOOK技术在VC编程中的应用—编程爱好者网站 programfan.com [一种声音]给小偷一个不偷你的理由——警察王大伟给您支招铂程斋--给小偷一个不偷你的理由——警察王大伟给您支招给小偷一个不偷你的理由——警察王大伟给您支招给小偷一个不偷你的理由——警察王大伟给您支招给小偷一个不偷你的理由 ——警察王大伟给您支招给小偷一个不偷你的理由——警察王大伟给您支招z 给小偷一个不偷你的理由——警察王大伟给您支招2 给小偷一个不偷你的理由——警察王大伟给您支招1 给小偷一个不偷你的理由——警察王大伟给您支招0 [给小偷一个不偷你的理由——警察王大伟给您支招给小偷一个不偷你的理由——警... [一种声音]给小偷一个不偷你的理由——警察王大伟给您支招四喊三不喊;给小偷一个不偷你的理由——王大伟教授给您支招 -给小偷一个不偷你的理由——警察王大伟给您支招给小偷一个不偷你的理由——警察王大伟给您支招！女士驾车安全守则——给小偷一个不偷你的理由 - SOHU社区给小偷一个不偷你的理由——警察给您支招浅谈爆破技术在工程中的应用女孩车上发现被偷大叫小偷怒扇其耳光招摇下车-搜狐新闻给小偷一个不偷你的理由——（给老婆孩子留着）^_^ 给小偷一个不偷你的理由——王大伟教授给您支招(女生一定要看...