<%
'asp將二進(jìn)制轉(zhuǎn)十進(jìn)制，使用方法：cDec(11010)
function cDec(num)
cDecstr=0
if len(num)>0 and isnumeric(num) then
for inum=0 to len(num)-1
cDecstr=cDecstr+2^inum*cint(mid(num,len(num)-inum,1))
next
end if
cDec=cDecstr
end function
'asp將二進(jìn)制轉(zhuǎn)八進(jìn)制，使用方法：BcO(010110)
function BcO(num)
BcO=Oct(cDec(num))
end function
'asp將八進(jìn)制轉(zhuǎn)二進(jìn)制，使用方法：OcB(26)
function OcB(num)
OcBstr=""
if len(num)>0 and isnumeric(num) then
for i=1 to len(num)
select case (mid(num,i,1))
case "0" OcBstr=OcBstr&"000"
case "1" OcBstr=OcBstr&"001"
case "2" OcBstr=OcBstr&"010"
case "3" OcBstr=OcBstr&"011"
case "4" OcBstr=OcBstr&"100"
case "5" OcBstr=OcBstr&"101"
case "6" OcBstr=OcBstr&"110"
case "7" OcBstr=OcBstr&"111"
end select
next
end if
OcB=OcBstr
end function
'八進(jìn)制轉(zhuǎn)十進(jìn)制
function OcD(num)
OcD=cDec(OcB(num))
end function
'八進(jìn)制轉(zhuǎn)十六進(jìn)制
function OcH(num)
OcH=Hex(OcD(num))
end function
%>
您發(fā)布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權(quán)益;
二、不得發(fā)布國家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對自己在本站的言論和行為負(fù)責(zé);
三、本站對您所發(fā)布內(nèi)容擁有處置權(quán)。
蘇公網(wǎng)安備 32070502010230號