Private Function BStr2UStr(BStr)'Byte string to Unicode string conversionDim lngLoop BStr2UStr = "" For lngLoop = 1 to LenB(BStr) BStr2UStr = BStr2UStr & Chr(AscB(MidB(BStr,lngLoop,1))) Next End Function 在ASP里面用Request.BinaryRead()取得上一个页面中Form的数据后,就 是用这个函数转换成UNICODE的,可转换后中文就没有了,请看看该如何改 谢谢!!!!
BStr2UStr = ""
For lngLoop = 1 to LenB(BStr)
BStr2UStr = BStr2UStr & Chr(AscB(MidB(BStr,lngLoop,1)))
Next
End Function
在ASP里面用Request.BinaryRead()取得上一个页面中Form的数据后,就
是用这个函数转换成UNICODE的,可转换后中文就没有了,请看看该如何改
谢谢!!!!