把普通字符串转换成二进制字符串的函数写出来了，和大家分享一下。

新客网 XKER.COM 2003-07-11 来源： 收藏本文

'普通字符串转换成二进制字符串函数
Function Str2Bin(String)
  Dim i, tmpbin
  For i=1 to strLength(String)
    tmpbin = tmpbin & ChrB(Asc(Mid(String,I,1)))
  Next
  Str2Bin = tmpbin
End Function

'以下函数来自ChinaASP，计算字符串的真正字节数(支持中文)
Function strLength(str)
   If (len("飞鸟")=2) then
      Dim l,t,c,i
      l=Len(str)
      t=l
      For i=1 To l
         c=asc(mid(str,i,1))
         If c<0 Then
            c=c+65536
         End If
         ' asc对中文字符求出来的值可能为负数，
         ' 加上65536就可求出它的无符号数值
         ' -1在机器内是用补码表示的0xffff,
         ' 其无符号值为65535,65535=-1+65536
         ' 其他负数依次类推。
         If c>255 Then
            t=t+1
         End If
      Next
      strLength=t
   Else
      strLength=len(str)
   End If
End Function

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件