近来在做一个外贸网站，要求将货币格式，小写的数字自动转化成大写的英文。在网上找了几天，找到个sql版的，本机调试通过，可传到网上不支持。现在求助，不知道谁有正确的，asp版的此函数。呵呵，先谢了！！
例：
123.45 ＝＝＝》 one hundred and twenty-three point four five

[[it] 本帖最后由 yunya 于 2008-6-20 20:10 编辑 [/it]]

sql版的……是sql内建函数还是转换算法？按照转换算法改个语言就是了

我好象找到过,你搜一下就有了

<%
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
%>