首页 | 免费域名 | 个人服务器 | 一流信息监控拦截系统 | 虚拟主机知识库 | ASP 空间 | ASP技术大全 | 下载中心 | 客户服务中心
  7i24 > ASP技术大全 > 代码乐园 >
    7i24 .Com  
  支持中文的把普通字符串转成二进制字符串的函数

7i24.Com不停为您服务

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

'把普通字符串转成二进制字符串
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 


  2002年1月9日  阅读 817 次  发送此页给朋友  来源:    版权争议  删除

相关文章:   近期热点:

上一篇: 从当前时间来取得随机数
下一篇: 一个用于判断EMAIL格式是否有效的函数
返回上一层...
搜索:

(C)2004-2022 7i24.Com 保留所有权利