一个Asp中将小写金额转换为大写的函数

 function returnGB(N)
  Dim Snz,A,B,C,WeiSz,JieG,i
  Snz=split(cstr(N),".")(0)'//整数部分转字串
  A=array( "零","壹","贰","叁","肆","伍","陆","柒","捌","玖")
  B=array("元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万")
  C=array("角","分","厘","毫")
  WeiSz=len(cstr(int(Snz)))'//整数位数
  for i=1 to WeiSz      
         JieG=JieG & A(cint(mid(Snz,i,1)))
            if cint(mid(Snz,i,1))<>0 or (WeiSz-i)=0 or (WeiSz-i)=4 or (WeiSz-i)=8 or (WeiSz-i)=12  then JieG=JieG & B(WeiSz-i)
   JieG=replace(JieG,"零零","")
  Next
  JieG=replace(JieG,"零","")
  if N<>int(N) then
         JieG=JieG & "零"
         Snx=split(cstr(N),".")(1)'//小数部分转字串
        WeiSx=len(cstr(int(Snx)))'//小数位数
         for i=1 to WeiSx      
             if cint(mid(Snx,i,1))=0 then i=i+1             
               JieG=JieG & A(cint(mid(Snx,i,1))) & C(i-1)
         next
  end if
  if N=0 Then
   returnGB="零元"
  else
   returnGB=JieG
  end if
 end function