asp版十进制转成十六进制函数

2013 年 10 月 29 日4530

asp版十进制转成十六进制函数

飞翔的猪圈 → 程序优化

2009-12-05 18:32:44

内容简介：这是一篇关于十进制转十六进制,十進制轉十六進制,asp鍗佽繘鍒惰浆鍗佸叚杩涘埗的文章。由于需要监测传入的参数是utf8编码还是gb2312编码，需要用到十进制转十六进制的函数，而vb居然没有内置。。百度了下vb十进制转十六进制,十进制转成十六进制，都没有比较好

由于需要监测传入的参数是utf8编码还是gb2312编码，需要用到十进制转十六进制的函数，而vb居然没有内置。。百度了下vb十进制转十六进制,十进制转成十六进制，都没有比较好的解决办法，无奈只能自己写一个，代码如下

response.write hex2ten("e9f")&"<br>"

function hex2ten(h)

dim i,all

all=0

for i=1 to len(h)

select case lcase(mid(h,i,1))

case "0","1","2","3","4","5","6","7","8","9"

all=all+cint(mid(h,i,1))*16^(len(h)-i)

case "a"

all=all+10*16^(len(h)-i)

case "b"

all=all+11*16^(len(h)-i)

case "c"

all=all+12*16^(len(h)-i)

case "d"

all=all+13*16^(len(h)-i)

case "e"

all=all+14*16^(len(h)-i)

case "f"

all=all+15*16^(len(h)-i)

end select

next

hex2ten=all

end function