当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp实现二进制字符串转换为Unicode字符串

ASP
ASP进阶之文章在线管理更新(3)
ASP进阶之文章在线管理更新(4)
ASP进阶之文章在线管理更新(5)
ASP进阶之文章在线管理更新(6)
ASP进阶之文章在线管理更新(7)
ASP进阶之文章在线管理更新(8)
ASP进阶之文章在线管理更新(9)
ASP进阶之文章在线管理更新(10)
ASP进阶之文章在线管理更新(11)
ASP进阶之文章在线管理更新(12)
ASP进阶之文章在线管理更新(13)
聊天室建设详解一
聊天室建设详解二
聊天室建设详解三
聊天室建设详解四
聊天室建设详解五
一个基于ASP的标题广告管理系统(一)
一个基于ASP的标题广告管理系统(二)
一个基于ASP的标题广告管理系统(三)
对数据库中的记录用上一条下一条显示(一)

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 248 ::
收藏到网摘: n/a

若需要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