[ASP代码]
Response.Write(CBMoney(12345.67))
function CBMoney(num)
if inStr(num,".")>0 then
arrNum=split(num,".")
zNum=arrNum(0)
xNum=arrNum(1)
hasDot=true
else
zNum=num
end ifss
BMoney="零,壹,贰,叁,肆,伍,陆,柒,捌,玖,拾"
arrBMoney=split(BMoney,",")
zMUnit="万,千,百,十,元"
zlenNum=len(znum)
zMUnit=right(Replace(zMUnit,",",""),zlenNum)
dim newZUnit
for i=1 to len(zMUnit)
newZUnit=newZUnit&mid(zMUnit,i,1)&","
next
zMUnit=left(newZUnit,len(newZUnit)-1)
arrZMUnit=split(zMUnit,",")
xMUnit="角,分"
arrXMUnit=split(xMUnit,",")
dim strBMoney
for i=1 to zlenNum
nChar=CInt(mid(znum,i,1))
strBMoney=strBMoney&arrBMoney(nChar)&"<b>"&arrZMUnit(i-1)&"</b>"
next
if hasDot then
xlenNum=len(xnum)
for i=1 to xlenNum
nChar=CInt(mid(xnum,i,1))
strBMoney=strBMoney&arrBMoney(nChar)&"<b>"&arrXMUnit(i-1)&"</b>"
next
end if
CBMoney=strBMoney
end function
[ASP.NET(C#)]
说明:CMoney.aspx页面省略,该页面有主要有三个Web Control控件,TextBoxt (id=txtNum),Button,Label(id=lblRet)
文件名:CMoney.aspx.cs(CBMoney为主要函数)