ASP “小偷”程序（抓取程序）

作者：vkvi 来源：ITPOW（原创）日期：2008-5-9

ASP “小偷”程序（抓取程序）
ASP 抓取远程图片，自动保存图片

'把二进制字符串转换成普通字符串函数
private function BinToStr(BinStr)
    If IsNull(BinStr) Then
        BinToStr=""
        exit function
    end if
    
    Dim curPos,clow,NewStr,ChnFlag
    ChnFlag=true
    NewStr = ""
    For curPos=1 To LenB(BinStr)
        If ChnFlag Then
            clow = MidB(BinStr,curPos,1)
            If AscB(clow) > 127 Then
                'AscW会把二进制的中文双字节字符高位和低位反转，所以要先把中文的高低位反转
                NewStr =NewStr&Chr(AscW(MidB(BinStr,curPos+1,1)&clow))
                ChnFlag=false
            Else
                NewStr=NewStr&Chr(AscB(clow))
            End If
        Else
            ChnFlag=true
        End If
    Next
    BinToStr=NewStr
End Function
 
 
dim objHTTP, rcvdData
set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.open "GET", "http://www.itpow.com/", false
objHTTP.send
if objHTTP.status = 200 then
    response.Write "成功！状态值：" & objHTTP.status
    rcvdData = BinToStr(objHTTP.responseBody)
else
    response.Write "失败！状态值：" & objHTTP.status
end if
Set objHTTP = Nothing