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

num2(i)=\"1\"
end
i=i+1
num=(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)
\' 2进制转十进制
dim b1,b2,b3
b1=len(num)
b2=1
b3=0
for b2=1 to b1
b3=(c(mid(num,b2,1)))*mi(b1-b2)+b3
next
To10=b3
end function

---

function mi(n)
\'求幂计算2n次方
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
n=1 then
Is_odd=true

Is_odd=false
end
end function
是奇数返回真是偶数返回假