asp用cDec将二进制转十进制然后再用cBit将十进制转二进制
- 当前标签
- 进制,进制转
<%
'asp将二进制转十进制,使用方法: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将二进制转十进制,使用方法: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将十进制转二进制,使用方法:cBit(26)
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
'asp将十六进制转二进制,使用方法:HcB(26)
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
'十进制转十六进制 Hex(num)
function HcO(num)'十六进制转八进制
HcO=Oct(HcD(num))
end function
'十进制转八进制 Oct(num)
function HcD(num)'十六进制转十进制
HcD=cDec(HcB(num))
end function
%>
'asp将二进制转十进制,使用方法: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将二进制转十进制,使用方法: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将十进制转二进制,使用方法:cBit(26)
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
'asp将十六进制转二进制,使用方法:HcB(26)
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
'十进制转十六进制 Hex(num)
function HcO(num)'十六进制转八进制
HcO=Oct(HcD(num))
end function
'十进制转八进制 Oct(num)
function HcD(num)'十六进制转十进制
HcD=cDec(HcB(num))
end function
%>
- 相关阅读
- 没有相关的信息加入
- 共有0条关于《asp用cDec将二进制转十进制然后再用cBit将十进制转二进制》的评论
- 发表评论
正在加载评论……
返回顶部发表评论
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。
- 更多>>同类信息
- asp利用hasOwnProperty验证某个json中的某个标签是否存在
- asp用BcO将二进制转八进制然后再OcB将八进制转二进制
- asp用BcH将二进制转十六进制然后再HcB将十六进制转二进制
- 纯asp根据当前日期计算出相应的星座
- asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法
- asp利用dateadd获得上个月、本月、下个月的第一天和最后一天
- asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)
- 更多>>最新添加文章
- 一次自动化批量处理服务器上几万张图片
- uni-app三目运算class和style
- uni-app跨端开发微信小程序时页面栈超过10层时小程序像卡死一样假性不能点击无法跳转的解决方案
- 微信小程序开发中链接navigateTo与redirectTo的对比说明
- 使用uni-app开始小程序使用腾讯视频插件vid播放视频
- 微信小程序-接入广告
- uni-app微信小程序获得用户头像与名称
- 微信公众号生成带参数的二维码asp源码下载
- 更多>>随机抽取信息
- asp利用dateadd获得上个月、本月、下个月的第一天和最后一天
- 一个运行HTML文件的代码
- 在图片未知尺寸情况下,利用CSS把图片垂直居中于div中心
- 关于SQL2008 “不允许保存更改。您所做的更改要求删除并重新创建以下表。您对无法重新创建的标进行了更改或者启用了‘阻止保存要求重新创建表的更改’” 解决方案
- CSS中的单位一览 包括宽度尺寸单位 颜色单位 角度单位
- 表格增加
- 深山留言板 v7.0.1 bulid2014.11.15更新
- 根据页面模板动态生成html页面
更多标签热门标签