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

　　推荐阅读

　　asp 实现检测字符串是否为纯字母和数字组合的函数

<% '****************************** '函数：CheckString(strng) '参数：strng,待验证字符串 '作者：阿里西西 '日期：2007/7/13 '描述：检测字符串是否为纯字母和数字组合 '示例：<%=CheckString(strng)%> '******>>>详细阅读

本文标题：asp实现二进制字符串转换为Unicode字符串

地址：http://www.17bianji.com/kaifa2/ASP/32499.html

 1/2    1