asp 各种进制转换函数
时间:2008-06-24 12:35:00
asp十进制转二进制;二进制转十进制;二进制转十六进制;十六进制转二进制;八进制转二进制'二进制转八进制;八进制转十进制;十六进制转十进制等等...
<%
a=26
b=11010
c=26
d=00100110
e=26
f=010110
g=26
h="1A"
j=26
k=32
l=26
m=46
response.Write(cBit(a))
response.Write("<br>")
response.Write(cDec(b))
response.Write("<br>")
response.Write(HcB(c))
response.Write("<br>")
response.Write(BcH(d))
response.Write("<br>")
response.Write(OcB(e))
response.Write("<br>")
response.Write(BcO(f))
response.Write("<br>")
response.Write(Hex(g))
response.Write("<br>")
response.Write(HcD(h))
response.Write("<br>")
response.Write(Oct(j))
response.Write("<br>")
response.Write(OcD(k))
response.Write("<br>")
response.Write(HcO(l))
response.Write("<br>")
response.Write(OcH(m))
'///////////////////////////////////////
function cBit(num)'十进制转二进制
cBitstr=""
if len(num)>0 and isnumeric(num) then
do while not num \ 2 < 1
cBitstr=(num mod 2) &cBitstr
num=num \ 2
loop
end if
cbit=num&cBitstr
end function
'/////////////////////////////////////
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
'/////////////////////////////////
function BcH(num)'二进制转十六进制
BcH=Hex(cDec(num))
end function
'//////////////////////////////////////
function HcB(num)'十六进制转二进制
if len(num)>0 then
HcBstr=""
for i=1 to len(num)
select case (mid(num,i,1))
case "0" HcBstr=HcBstr&"0000"
case "1" HcBstr=HcBstr&"0001"
case "2" HcBstr=HcBstr&"0010"
case "3" HcBstr=HcBstr&"0011"
case "4" HcBstr=HcBstr&"0100"
case "5" HcBstr=HcBstr&"0101"
case "6" HcBstr=HcBstr&"0110"
case "7" HcBstr=HcBstr&"0111"
case "8" HcBstr=HcBstr&"1000"
case "9" HcBstr=HcBstr&"1001"
case "A" HcBstr=HcBstr&"1010"
case "B" HcBstr=HcBstr&"1011"
case "C" HcBstr=HcBstr&"1100"
case "D" HcBstr=HcBstr&"1101"
case "E" HcBstr=HcBstr&"1110"
case "F" HcBstr=HcBstr&"1111"
end select
next
end if
HcB=HcBstr
end function
'//////////////////////////
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
'////////////////////////////
function BcO(num)'二进制转八进制
BcO=Oct(cDec(num))
end function
'///////////////////////////
function OcD(num)'八进制转十进制
OcD=cDec(OcB(num))
end function
'十进制转八进制 Oct(num)
'///////////////////
function HcD(num)'十六进制转十进制
HcD=cDec(HcB(num))
end function
'十进制转十六进制 Hex(num)
'////////////////////
function HcO(num)'十六进制转八进制
HcO=Oct(HcD(num))
end function
'///////////////////
function OcH(num)'八进制转十六进制
OcH=Hex(OcD(num))
end function
%>
标签:转换,函数,asp
0
投稿
猜你喜欢
SHA256算法 asp源码
2009-08-28 13:01:00
SQL 统计一个数据库中所有表记录的数量
2012-01-29 18:21:36
让ASP组件来保护你的网站,自定义加密方法的使用
2009-11-07 19:27:00
[翻译]标记语言和样式手册 Chapter 9 精简标签
2008-02-01 09:55:00
用XMlhttp生成html页面
2007-08-29 19:49:00
SQL Server小知识:Processor Affinity
2008-11-24 20:50:00
用ASP创建多栏选项列表SELECT
2007-10-08 13:18:00
一个功能更强大的字符串格式化函数
2008-04-30 17:44:00
SQL Servr 2008空间数据应用系列四:基础空间对象与函数应用
2011-02-23 15:01:00
PL/SQL 日期时间类型函数及运算
2009-02-26 10:45:00
高效率的GetRows()的使用方法
2008-09-23 18:29:00
Mysql Innodb 引擎优化
2010-10-25 20:01:00
推荐给大家看的设计书
2009-02-23 12:17:00
SQL Server如何实现快速删除重复记录?
2011-05-03 11:18:00
浅析设计与内容呈现的关系
2009-08-06 18:12:00
不得不看的JS基础知识(事件触发篇)
2008-12-04 16:38:00
2003年至今网页尺寸增长3倍
2008-04-29 19:27:00
跨浏览器的CSS固定定位{position:fixed}
2007-05-11 16:50:00
空行不空格式排版组织原理
2010-05-03 14:46:00
定义列表 dt dl
2008-08-03 17:14:00