欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

asp實(shí)現(xiàn)二進(jìn)制字符串轉(zhuǎn)換為Unicode字符串

 更新時(shí)間:2007年08月01日 19:52:05   作者:  
若需要utf-8格式,請自行將下面的GB2312改成utf-8。

' 二進(jìn)制轉(zhuǎn)字符串,否則會(huì)出現(xiàn)亂碼的! 
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 

相關(guān)文章

最新評論