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

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