【ASP】Byte数组转换为字符串(兼容中英文)

  • A+
所属分类:lcx

Byte数组转换为字符串(兼容中英文):

Dim B,One,Tmp1,Tmp2

For each one in B '枚举整个数组赋值给One
    If One > 127 Then '如果为汉字编码.(大于127为汉字,占两个字节)
        IF Tmp2  "" Then '如果临时变量不为空(为空为第一字节)
            Tmp1 = Tmp1 & Chr(T * 256 + One) '合并两个字节,转换为汉字.累加数据
            Tmp2 = "" '清空临时变量
        Else
            Tmp2 = One '储存临时变量
        End IF
    Else
        Tmp1 = Tmp1 & Chr(One)  '转换为汉字,累加数据
    End If
next 

Response.Write Tmp1

文章来源于lcx.cc:【ASP】Byte数组转换为字符串(兼容中英文)

相关推荐: NSA如何侵入Google和雅虎的私有数据网络?

斯诺登事件令世界一片哗然,人们都在为美国庞大的信息监控收集网络而感到担忧。 《华盛顿邮报》网站近日刊出了一篇文章,描述了NSA(美国国家安全局)和GCHQ(政府通讯总部)如何侵入Google和雅虎的内部网络——通过拦截了这两个公司在全世界范围内维护的巨大的数据…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: