''二進制轉十進制
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 2=0 then
num2(i)="0"
else
num2(i)="1"
end if
i=i+1
num=int(num/2)
loop
''response.write i
for j=i to 1 Step -1
num1=num1&num2(j)
next
tento2=num1
end function