文档介绍：vbscript下将小写金额转成大写金额
  更新日期:2006-10-08 15:56  网页教学网
<%
'--------------------数字向汉字转换的函数集合  ------------------------
'作者:northsnow   
'日期:20061007
'调用方法:  a=convertNumToStr("")
'功能: 将这样的串  转换成壹仟贰佰叁拾肆元伍角陆分
''将一串数字转成对应的汉字
 Function convertNumToStr()function convertNumToStr(pNum)
    dim oNum,rValue
    oNum=pNum:rValue=""
   
    '如果给定的不是合理的数字,则返回空串
    const z_PatNum="^d+(.{1}d+)?$"
    set r=new regexp
    =z_PatNum
    =false
    =false
    if not (oNum) then
       ConvertNumToStr=rValue
       exit function
    end if  
   
    '将数字前面无用的0去掉
    set rLjc=new RegExp
    ="^0{2,}([^.])"
    oNum=(oNum,"$1")
    ="^0{2,}(.)"
    oNum=(oNum,"0$1")
   
    '将小数点前后部分分开
    arrNum=split(oNum,".")
    frontNum=arrNum(0)
    backNum=""
    if ubound(arrNum)>0 then backNum=arrNum(1)
   
    '----  转换小数点前面的数----
    oLen=len(frontNum)
  
    if oLen=1 then   '只有一位
       rValue=(frontNum)
    elseif oLen=2 then   '只有两位
       if(mid(frontNum,1,1))<>"1" then  rValue=(mid(frontNum,1,1))
       rValue=rValue & getDigit(2)
       if(mid(frontNum,2,1))<>"0" then rValue=rValue & (mid(frontNum,2,1))
    else   '大于两位的情况
       dim curPos,curNum,hasZero
       hasZero=false  '表明在此前有没有相连接的零
       for i=1 to oLen
          curPos=oLen-i + 1