支持中文的把普通字符串转成二进制字符串的函数

上次的函数有误，这次的才正确支持中文。

'把普通字符串转成二进制字符串
Function str2bin(varstr)
   str2bin=""
   For i=1 To Len(varstr)
       varchar=mid(varstr,i,1)
       varasc = Asc(varchar)
       If varasc<0 Then
          varasc = varasc + 65535
       End If
       If varasc>255 Then
          varlow = Left(Hex(Asc(varchar)),2)
          varhigh = right(Hex(Asc(varchar)),2)
          str2bin = str2bin & chrB("&H" & varlow) & chrB("&H" & varhigh)
       Else
          str2bin = str2bin & chrB(Asc(varchar))
       End If
Next
End Function
 
http://www.itcnw.com/

• 打印文档
• 推荐好友
• 
• 返回顶部
• 增大字体
• 减少字体

• 上一篇文章：把普通字符串转换成二进制字符串的函数写出来了，和大家分享一下。
• 下一篇文章：ASP之在服务器端创建快捷方式例子之微软例子改造版。