小偷程序原理和简单示例 小偷, 示例, 原理, 程序

allen

作者：allen  
个人主页：http://www.cnmaya.org


        现在网上流行的小偷程序比较多，有新闻类小偷，音乐小偷，下载小偷，那么它们是如何做的呢，下面我来做个简单介绍，希望对各位站长有所帮助。
（一）原理
小偷程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻小偷程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用小偷程序的优点有：无须维护网站，因为小偷程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般小偷程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么小偷程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。
（二）事例

下面就XMLHTTP在ASP中的应用做个简单说明

<%
'常用函数

'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTPPage(url)
    dim Http
    set Http=server.createobject("MSXML2.XMLHTTP")
    Http.open "GET",url,false
    Http.send()
    if Http.readystate<>4 then
        exit function
    end if
    getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
    set http=nothing
    if err.number<>0 then err.Clear
end function

'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
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




'下面试着调用http://www.3doing.com/earticle/的html内容
Dim Url,Html
Url="http://www.3doing.com/earticle/"
Html = getHTTPPage(Url)
Response.write Html
%>

独孤飞逸

XML不太懂

allen

Originally posted by 独孤飞逸 at 2004-1-22 10:51 PM:
XML不太懂

XML懂不懂没多大关系，你把我下面代码保存为asp网页，在IIS下运行就可以看见效果了

weyes

不错,TT

快乐小天使

收藏了。

慢慢看。

楼主新年好。

allen

Originally posted by 快乐小天使 at 2004-1-22 10:53 PM:
收藏了。

慢慢看。

楼主新年好。

新年好。



TO 大家：我很久没写东西了，今天主要写点我的心得体会，欢迎高手指正

niba

http://www.sron.net/art/sort.php?sortid=14&pagenum=1

allen

xmlHTTP技术:
----------------------------------------------------------
一、数据库远程管理技术

基于互联网的广域网现代应用中的一个重要环节是数据库远程监控。首先简单回顾一下互联网上的数据库远程管理技术的发展过程和方式：

早期通过编写CGI-BIN程序模块进行数据库远程管理。但CGI-BIN的运行速度慢，维护很不方便，现在已经基本被弃用。

这几年使用组件对象模型(Component Object Model, COM)的应用非常多，效果也很好。但如果使用的是第三方服务器(笔者的网站就是建立在第三方的虚拟主机上)，服务器方往往因为保密或其它商业原因不允许用户注册自己的组件。

近年来由微软公司推出的.NET平台和SUN公司的J2EE平台都是非常高档的数据库远程管理与服务平台。都能提供优质的多层(n-Tier)应用服务。
其中，.NET的简单对象访问协议(Simple Object Access Protocol, SOAP)使用超文本传输协议(Hypertext Transfer Protocol, HTTP)和扩展标记语言(Extensible Markup Language, XML)技术实现跨系统(例如Windows - Linux)的通讯服务方式已经广为开发商接受和使用。许多大型应用，例如企业资源计划(Enterprise resource planning, ERP)等都建立在这样的大型平台之上。
但对于中小型应用，比如一个网站的建设和维护，这种大型应用平台就显得有些尾大不掉，开销也过于庞大。

曾经在互联网技术和Java技术方面一度落后的微软公司在XML应用开发则走在了前头。她的XML解析器(MSXML)中的XMLHTTP协议是一个非常方便实用的客户/服务通讯管道。综合运用XMLHTTP以及ActiveX数据对象(ActiveX Data Objects, ADO/ADOX)可以简单方便地实现数据库远程管理。

本文介绍如何综合运用XMLHTTP和ADO/ADOX进行远程数据库管理。

二、数据库远程管理体系

数据库远程管理的任务流程是：
1、客户端向服务端发出数据库结构和数据的查询或修改指令。
2、服务端接受并执行有关指令并向客户端返回结果。
3、客户端接受并显示服务端返回的指令执行结果。

实现数据库远程管理的二个主要关键环节是：
1、客户端与服务端之间的指令上传和结果下传的数据通道，由XMLHTTP协议实现。
2、服务端前沿与数据库之间的指令传送和结果返回，由起着中间层作用的ADO/ADOX接口完成。
三、XMLHTTP的使用

顾名思义，XMLHTTP是个传送XML格式数据的超文本传输协议。

实际上，XMLHTTP的数据传输过程更为灵活一些：
它上传的指令可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。还可以是URL的参数。
它下达的结果可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。
详情可参阅文末链接。

客户端调用XMLHTTP的过程很简单，只有5个步骤：
1、创建XMLHTTP对象
2、打开与服务端的连接，同时定义指令发送方式，服务网页(URL)和请求权限等。
    客户端通过Open命令打开与服务端的服务网页的连接。与普通HTTP指令传送一样，可以用"GET"方法或"POST"方法指向服务端的服务网页。
3、发送指令。
4、等待并接收服务端返回的处理结果。
5、释放XMLHTTP对象

XMLHTTP方法：
Open bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword
    bstrMethod：数据传送方式，即GET或POST。
    bstrUrl：服务网页的URL。
    varAsync：是否同步执行。缺省为True，即同步执行，但只能在DOM中实施同步执行。
     应用中一般将其置为False，即异步执行。
    bstrUser：用户名，可省略。
    bstrPassword：用户口令，可省略。

Send varBody
    varBody：指令集。可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。也可以省略，让指令通过Open方法的URL参数代入。
     
setRequestHeader bstrHeader, bstrValue
    bstrHeader：HTTP 头(header)
    bstrValue：HTTP 头(header)的值
    如果Open方法定义为POST，可以定义表单方式上传：
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
     
XMLHTTP属性：
onreadystatechange：在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。
responseBody：结果返回为无符号整数数组。
responseStream：结果返回为IStream流。
responseText ：结果返回为字符串。
responseXML：结果返回为XML格式数据。
     

下面是本文附件源程序中的一个应用示例：
Function GetResult(urlStr)
    Dim xmlHttp
    Dim retStr
     
    Set xmlHttp = CreateObject("Msxml2.XMLHTTP")    '创建对象
    On Error Resume Next                    '出错处理
    xmlHttp.Open "POST", urlStr, False        '用POST方式打开连接，异步执行。
    xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '上传表单
    xmlHttp.Send                            '发送指令

    If Err.Number = 0 Then                    '如果连接正确
        retStr = xmlHttp.responseText        '等待并获得服务端返回的结果字符串
    Else
        retStr = "Url not found"                '否则返回出错信息
    End If
    Set xmlHttp = nothing                    '释放对象
    GetResult = retStr                        '返回结果
End Function

GetResult()函数带入一个服务网页的URL参数，把上传的指令安放在URL后面的参数上，如：
    urlStr = "server.asp?cmd=" & cmd & "&db=" & db & "table=" & table
    cmd：执行方式，例如查询，修改，删除等等。
    db：服务端数据库名
    table：服务端表名
     
然后提交指令，等待并接收返回的处理结果。结果以字符串方式返回。

最后由函数调用者处理并显示结果。

林

写的好象太简单了点

元神

看得一頭霧水~~