asp支持二进制转字符穿吗??下面有问题吗???
function GetFileName(binStr)
if IsNull(binStr) then
BinToStr = ""
exit function
end if
dim newStr, chnFlag
dim i, c
newStr = ""
chnFlag = true
for i=1 To LenB(binStr)
if chnFlag then
c = MidB(BinStr, i, 1)
if AscB(c) > 127 then
'AscW 会把二进制的中文双字节字符高位和低位反转
'所以 MidB(binStr,i+1,1)&c 表达式中,c 在后面
newStr = newStr & Chr(AscW(MidB(binStr,i+1,1)&c))
chnFlag = false
else
newStr = newStr & Chr(AscB(c)) '这里用的是 ASCB 不是 ASCW
end If
else
chnFlag = true
end If
next
BinToStr = newStr
end function