十进制、二进制转换和奇偶数判断函数

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

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 mi(n)
'求幂，计算2的n次方
dim b4,b5
b4=1
b5=1
for b5=1 to n
b4=b4*2
next
mi=b4
end function

判断一个数是奇数还是偶数

function Is_odd(num) as boolean
n=num mod 2
if n=1 then
Is_odd=true
else
Is_odd=false
end if
end function
是奇数返回真，是偶数返回假。