Question

求ASP十进制转换二进制函数

在ASP里我需要把34359738367这个数值转换成二进制的，在网上找了一些函数使用后提示溢出，求高手帮我写一个能用的！多谢

Answer 1

'功能：十进制转换成二进制
'参数：iNum 待转换的十进制数
'返回：转换后的二进制数
'例子：TenAndTwo(22)
Function TenAndTwo(iNum)
Dim iResult,iBound
Dim varry(),varry1()
if Isnumeric(iNum)=false then Response.End()
iBound = 1
ii = split(CDbl(CDbl(iNum) / 2),".")(0)

do while(ii>1)
iBound = iBound+1
if iBound=1 then
ii = split(CDbl(CDbl(iNum) / 2),".")(0)
else
ii = split(CDbl(CDbl(ii) / 2),".")(0)
end if
loop

redim varry(iBound),varry1(iBound)
for i = 0 to iBound
if i=0 then
if split(formatnumber(CDbl(CDbl(iNum) / 2),1),".")(1) > 0 then
varry(i) = 1
else
varry(i) = 0
end if
varry1(i) = split(CDbl(CDbl(iNum) / 2),".")(0)
else
if split(formatnumber(CDbl(CDbl(varry1(i-1)) / 2),1),".")(1) > 0 then
varry(i) = 1
else
varry(i) = 0
end if
varry1(i) = split(CDbl(CDbl(varry1(i-1)) / 2),".")(0)
end if
next

For j=0 to iBound
k = iBound - j
iResult = iResult & varry(k)
Next

if left(iResult,1) = 0 then iResult=right(iResult,len(iResult)-1)
TenAndTwo = iResult
End Function

'调用函数
response.write TenAndTwo(34359738367)

Answer 2

算出来的是35个1