皮皮网

1.如何实现asp 小偷程序？？？
2.ASP小偷程序 XML读取UTF-8 乱码求解
3.ASP小偷程序的编写

如何实现asp 小偷程序？？？

       ä½ è¦çš„是相当于网络蜘蛛这样的功能。这样的东西用asp并不好做，因为asp是被动执行的。不能像真正的spider程序那样主动地不断采集别的网站。如果要实现手动采集，比如你指定某一网页之后就把该页采集下来。这同样要用到下面所说的小偷程序原理。先用xml/",偷源在线培训系统 源码 "utf-8")

       Function xmlHttp(sUrl, sCharSet)

        On Error Resume Next

        Dim xml: set xml = Server.CreateObject("Microsoft.XMLHTTP")

        xml.Open "GET", sUrl, False

        xml.setRequestHeader "Content-Type", "text/html;charset=" & sCharSet

        xml.Send()

        If Err.Number <> 0 Then

        xmlHttp = ""

        Exit Function

        End If

        If xml.readyState = 4 Then

        xmlHttp = BytesToBstr(xml.responseBody, sCharSet)

        End If

       End Function

       Function BytesToBstr(cnvUni, sCharSet)

        On Error Resume Next

        Dim objStream: set objStream = Server.CreateObject("adodb.stream")

        With objStream

        .Type = 1

        .Mode = 3

        .Open

        .Write cnvUni

        .Position = 0

        .Type = 2

        .Charset = sCharSet

        BytesToBstr = .ReadText

        .Close

        End With

       End Function

ASP小偷程序的编写

       æˆ‘最近也正在研究这个东西，楼主看看这段程序，我用这段程序成功获取了不少网站的信息。具体到不同的网站可能会有一些小的修改，我们可以一起讨论。

       <%

       Dim Url,Content,awbno

       Url = "网址"

       awbno = Request.Form("awbno")

       If awbno="" Or IsNull(awbno) Then

        Content = GetData(Url,1)

       Else

        Content = PostData(Url&"return.asp","awbno=" & awbno,1)

       End If

       Content = Replace(Content,"images/",Url & "images/")

       Content = Replace(Content,"return.asp","")

       Response.Write Content

       Function GetData(GetUrl,GetMode)

        Dim Http

        Set Http = Server.CreateObject("msxml2.XMLHTTP")

        With Http

        .Open "GET",GetUrl,False

        .SetRequestHeader "Referer",GetUrl

        .Send

        If GetMode = 0 Then

        GetData = .ResponseBody

        Else

        GetData = BytesToBstr(.ResponseBody,"GB")

        End If

        End With

        Set Http = Nothing

       End Function

       Function PostData(PostUrl,PostStr,PostMode)

        Dim Http

        Set Http = Server.CreateObject("msxml2.XMLHTTP")

        With Http

        .Open "POST",PostUrl,False

        .SetRequestHeader "Content-Length",Len(PostStr)

        .SetRequestHeader "Content-Type","application/x-www-form-urlencoded"

        .SetRequestHeader "Referer",PostUrl

        .Send PostStr

        If PostMode=0 Then

        PostData = .ResponseBody

        Else

        PostData = BytesToBstr(.ResponseBody,"GB")

        End If

        End With

        Set Http = Nothing

       End Function

       Function BytesToBstr(Body,Cset)

        Dim ADOS

        Set ADOS = Server.CreateObject("Adodb.Stream")

        With ADOS

        .Type = 1

        .Mode =3

        .Open

        .Write Body

        .Position = 0

        .Type = 2

        .Charset = Cset

        BytesToBstr = .ReadText

        .Close

        End With

        Set ADOS = Nothing

       End Function

       %>