代码驿站移动版

当前位置：主页 > 软件编程 > ASP代码 >

asp实现二进制字符串转换为Unicode字符串

时间：2021-02-23 15:14:51 | 栏目：ASP代码 | 点击：次

若需要utf-8格式，请自行将下面的GB2312改成utf-8。

' 二进制转字符串，否则会出现乱码的！ 
Function sTb(vin)
        Const adTypeText = 2
        Dim BytesStream,StringReturn
        Set BytesStream = Server.CreateObject("ADODB.Stream")
 With BytesStream
       .Type = adTypeText
       .Open
       .WriteText vin
       .Position = 0
       .Charset = "GB2312"
       .Position = 2
        StringReturn = .ReadText
       .Close
   End With
Set BytesStream = Nothing
sTb = StringReturn
End Function 

您可能感兴趣的文章:

相关文章