'把二进制字符串转换成普通字符串函数
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.cftea.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
相关阅读
