ASP数字大小写转换的一种方法

<script>  
  function   regInput(reg)  
  {  
  var   srcElem =   event.srcElement  
  var   oSel =   document.selection.createRange()  
  oSel   =   oSel.duplicate()  
  oSel.text   =   ""  
  var   srcRange =   srcElem.createTextRange()  
  oSel.setEndPoint("StartToStart",   srcRange)  
  var   num   =   oSel.text   +   String.fromCharCode(event.keyCode)   +   srcRange.text.substr(oSel.text.length)  
  event.returnValue   =   reg.test(num)  
  }  
   
  function   chineseNumber(num)  
  {  
  if   (isNaN(num)   ||   num   >   Math.pow(10,   12))   return   ""  
  var   cn   =   "零壹贰叁肆伍陆柒捌玖"  
  var   unit   =   new   Array("拾佰仟",   "分角")  
  var   unit1=   new   Array("万亿",   "")  
  var   numArray   =   num.toString().split(".")  
  var   start   =   new   Array(numArray[0].length-1,   2)  
   
  function   toChinese(num,   index)  
  {  
  var   num   =   num.replace(//d/g,   function   ($1)  
  {  
  return   cn.charAt($1)+unit[index].charAt(start--%4   ?   start%4   :   -1)  
  })  
  return   num  
  }  
   
  for   (var   i=0;   i<numArray.length;   i++)  
  {  
  var   tmp   =   ""  
  for   (var   j=0;   j*4<numArray[i].length;   j++)  
  {  
  var   strIndex   =   numArray[i].length-(j+1)*4  
  var   str   =   numArray[i].substring(strIndex,   strIndex+4)  
  var   start   =   i   ?   2   :   str.length-1  
  var   tmp1   =   toChinese(str,   i)  
  tmp1   =   tmp1.replace(/(零.)+/g,   "零").replace(/零+$/,   "")  
  tmp1   =   tmp1.replace(/^壹拾/,   "拾")  
  tmp   =   (tmp1+unit1[i].charAt(j-1))   +   tmp  
  }  
  numArray[i]   =   tmp  
  }  
   
  numArray[1]   =   numArray[1]   ?   numArray[1]   :   ""  
  numArray[0]   =   numArray[0]   ?   numArray[0]+"圆"   :   numArray[0],   numArray[1]   =   numArray[1].replace(/^零+/,   "")  
  numArray[1]   =   numArray[1].match(/分/)   ?   numArray[1]   :   numArray[1]+"整"  
  return   numArray[0]+numArray[1]  
  }  
   
  function   aNumber(num)  
  {  
  var   numArray   =   new   Array()  
  var   unit   =   "亿万圆$"  
   
   
   
  for   (var   i=0;   i<unit.length;   i++)  
  {  
  var   re   =   eval("/"+   (numArray[i-1]   ?   unit.charAt(i-1)   :   "")   +"(.*)"+unit.charAt(i)+"/")  
  if   (num.match(re))  
  {  
  numArray[i]   =   num.match(re)[1].replace(/^拾/,   "壹拾")  
  numArray[i]   =   numArray[i].replace(/[零壹贰叁肆伍陆柒捌玖]/g,   function   ($1)  
  {  
  return   "零壹贰叁肆伍陆柒捌玖".indexOf($1)  
  })  
  numArray[i]   =   numArray[i].replace(/[分角拾佰仟]/g,   function   ($1)  
  {  
  return   "*"+Math.pow(10,   "分角   拾佰仟   ".indexOf($1)-2)+"+"  
  }).replace(/^/*|/+$/g,   "").replace(/整/,   "0")  
  numArray[i]   =   "("   +   numArray[i]   +   ")*"+Math.ceil(Math.pow(10,   (2-i)*4))  
  }  
  else numArray[i]   =   0  
  }  
  return   eval(numArray.join("+"))  
  }  
  </script> 

                 <td width="46%"><input   id=lw   size=42   value="打印前请按大小写转换" name="T24"></td>
                <td width="35%">  <input   id=up   size=17   οnkeypress="regInput(/^/d{0,12}(/./d{0,2})?$/)" name="st" value="<%select case trim(request("tax_f"))%>
                <%case "城市维护建设税"%>
                <%=int((rs("lq_je")/1.06*0.06*0.05)*100)/100%>
                <%case "教育费附加"%>
                <%=int((rs("lq_je")/1.06*0.06*0.03)*100)/100%>
                <%case "地方教育费附加"%>
                <%=int((rs("lq_je")/1.06*0.06*0.01)*100)/100%>
                <%case "个人所得税"%>
                <%=int((rs("lq_je")/1.06*0.02)*100)/100%>
                <%end select%>
"><button   οnclick="lw.value   =   chineseNumber(up.value)">转为大写</button><br>