<%
'*******************************************************************************************
'把任何一个进制(不大于72)转换为另外一个不大于72的进制,字符由0123ABCXYZ[\]^_`abcdxyz{|}~组成。
'调用 T=DecTranTo(TranToDec(数,源进制),目标进制)
'举例:
' response.write DecTranTo(TranToDec("2147459999","10"),"36") & "(结果是 ZIJIQN )<br>"
' response.write DecTranTo(TranToDec("2147483647","10"),"72") & "(结果是 17x[Hn )<br>"
' response.write DecTranTo(TranToDec("000000X5Zm", 72 ), 10 ) & "(结果是 12345678 )<br>"
'---------------------------------------------
Public Function DecTranTo(ByVal M, ByVal r1) '十进制转为r1进制
Dim StrDtoR
Dim mr
StrDtoR = ""
Do While M <> 0
mr = M - Int(M / r1) * r1
M = Int(M / r1)
If mr >= 10 Then
StrDtoR = Chr(mr - 10 + 65) & StrDtoR
Else
StrDtoR = mr & StrDtoR
End If
Loop
DecTranTo = StrDtoR
End Function
'---------------------------------------------
Public Function TranToDec(ByVal M, ByVal r2) 'r2进制转为十进制
Dim StrRtoD, mr, i
StrRtoD = 0
For i = 1 To Len(M)
mr = Mid(M, i, 1)
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载