我想将"韩"字先转化为二进制数据,再转化为字符,怎么办呢?
我是这样写的:
Function BinaryToString(str)
strto = ""
for i=1 to lenb(str)
if AscB(MidB(str, i, 1)) > 127 then
strto = strto & chr(Ascb(MidB(str, i, 1))*256+Ascb(MidB(str, i+1, 1)))
i = i + 1
else
strto = strto & Chr(AscB(MidB(str, i, 1)))
end if
next
BinaryToString=strto
End Function
response.write BinarytoString(chrb(AscB(midB("韩",1,1)))
& chrb(AscB(midB("韩",2,1))))
结果是个"闂"字.
其实如果将"韩"改为"abcd",以上代码是没有问题的.
请指教!
注:各位若要调试,请勿直接粘贴代码,会出错的.