asp小偷转html,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

相关阅读