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

内容简介：这是一篇关于十进制转十六进制,十進制轉十六進制,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