简单的数字转换大写（货币）

<%
dim m
m=25698932.2
response.write cstr(m)&"<br>"
response.write m2h(m)

Function m2h(money) 
dim str,lstr,rstr,dwstr,dxstr,astr,i,n
dim dw_l,dw_r,dx_a,dw,dx,l_len,r_len
dw_l=split("圆|拾|佰|仟|万|拾万|佰万|仟万|亿|拾亿|佰亿|仟亿|万亿","|")
dw_r=split("角|分","|")
dx_a=split("零|壹|贰|叁|肆|伍|陆|柒|捌|玖","|")
str=cstr(money)
if instr(str,".")>0 then
   lstr=split(str,".")(0)
   rstr=split(str,".")(1)
    if len(rstr)=1 then rstr=rstr&"0"
else
   lstr=str
   rstr="00"
end if
l_len=len(lstr)
r_len=len(rstr)
for i=0 to l_len-1
  n=cint(mid(lstr,i+1,1))
  dx=dx_a(n)
  dxstr=dxstr&dx&" "
  dw=dw_l(l_len-i-1)
  dwstr=dwstr&dw&" "
  astr=astr&dx&dw
next

for i=0 to r_len-1
  n=cint(mid(rstr,i+1,1))
  dx=dx_a(n)
  dxstr=dxstr&dx&" "
  dw=dw_r(i)
  dwstr=dwstr&dw&" "
  astr=astr&dx&dw
next

m2h=dwstr&"<br>"&dxstr&"<br>"&astr
end function
%>