二进制转换为十进制
ASP 2008/2/14 8:04:49 点击:不统计
function c2to10(x)
c2to10=0
if x="0" then exit function
i=0
for i= 0 to len(x) -1
if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)
next
end function
·上一篇:将UTF8编码文字转换为GB编码文字 >> ·下一篇:asp常用函数 >>