ASP 字符转换成二进制的函数是什么呀？ 怎么使用？

来源：百度知道 编辑：UC知道 时间：2024/04/27 14:34:53
请问 如果我有数据库
字段 A B C 都是字符形式的
内容10011 00111
想把 A、B字段的当成2进制 进行与计算 结果写进C字段里
我用 Chrb(asc(a))) And Chrb(asc(b)) 这样可以吗？

谢谢！

该方法支持中文转换
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

function to10(num)
''二进制转十进制
dim b1,b2,b3
b1=len(num)
b2=1
b3=0
for b2=1 to b1
b3=int(cint(mid(num,b2,1)))*mi(b1-b2)+b3
next
To10=b3
end function

function tento2(num)
''十进制转二进制
dim num1
dim num2(100000)
dim i,j
i=1
num1="1"
do while num>1
if num mod