人民币大小写转换格式

在http://blog.csdn.net/hanghwp上面看到的，与大家分享一下。

 

<%
0[
rWAgy\0'****人民币大小写转换格式****
zP1r'D#| B-w0dim str(9)
tp4PJ4z"aiG
P0str(0)="零"
+L J,[(XI9f0str(1)="壹"爱好者博墅U;\A/y!mn
str(2)="贰"爱好者博墅 k1P!P[efC
str(3)="叁"
OmW7U,zFvv{0str(4)="肆"爱好者博墅J Px Y,^g4b[{PS `&|
str(5)="伍"爱好者博墅:jI2\0}'c]'?q
str(6)="陆"
V/~9`c8y0\F0str(7)="柒"爱好者博墅`'lO*~.B?3` z
~^
str(8)="捌"
gW~'S8x0str(9)="玖"
,NTT4Gw-s1sKE0O0aa="123.5"爱好者博墅;Av G4c|Y nbf F
hh=formatnumber(aa,2,-1)
2HI]r.Po0aa=replace(hh,".","")
$tk A\9{u0aa=replace(aa,",","")爱好者博墅 Z]\6U6j)@
for i=1 to len(aa)
*s,L9F:v\T0s=mid(aa,i,1)
y6[a$f)A;sOfG!\0mynum=str(s)
Y\w.i"TZFh1fh0select case(len(aa)+1-i)爱好者博墅8C@1y-hW6noDI
case 1: k= mynum&"分"爱好者博墅8L&~J{8^ Nj|
case 2: k= mynum&"角"
'E a4Lv`:hr]0case 3: k= mynum&"元"爱好者博墅8?'a sc:A
case 4: k= mynum&"拾"
A'L?3H;XT4eq0case 5: k= mynum&"佰"
#{-B1{'d8V0case 6: k= mynum&"仟"
7f3Xo
zLw)X0case 7: k= mynum&"万"
#]8eR S?k#i0case 8: k= mynum&"拾"爱好者博墅*P5yw5zix
case 9: k= mynum&"佰"
*^
h4y|e'wd I$S0case 10: k= mynum&"仟"
8c!d0|9b7w_#y0end select
U E8|{Q-M
B!d0m=m&k爱好者博墅"@vJVM6j+\n
next爱好者博墅9Y,hp"}C"U:}
response.Write m爱好者博墅$cWo0LJW3V
%>