数字转换为大写的中文字

ASP　2008/8/19 20:56:02　　点击：不统计

数字转换为大写的中文字

<%

'**************************************

'文件名: asc.asp

'描述: 将数字转换为大写的中文字

'**************************************

dim str(9)

str(0)="零"

str(1)="壹"

str(2)="贰"

str(3)="叁"

str(4)="肆"

str(5)="伍"

str(6)="陆"

str(7)="柒"

str(8)="捌"

str(9)="玖"

aa=Request.form("source")

hh=formatnumber(aa,2,-1)

aa=replace(hh,".","")

aa=replace(aa,",","")

for i=1 to len(aa)

s=mid(aa,i,1)

mynum=str(s)

select case(len(aa)+1-i)

case 1: k= mynum&"分"

case 2: k= mynum&"角"

case 3: k= mynum&"元"

case 4: k= mynum&"拾"

case 5: k= mynum&"佰"

case 6: k= mynum&"仟"

case 7: k= mynum&"万"

case 8: k= mynum&"拾"

case 9: k= mynum&"佰"

case 10: k= mynum&"仟"

end select

m=m&k

next

%>

<html>

<head>

<title>数字转换为大写的中文字</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</head>

<body bgcolor="#FFFFFF">

<form method="post" name="forma">

<input type="text" name="source" value="<%=hh%>">

=

<input type="text" name="result" value="<%=m%>" size="40">

<input type="submit" name="Submit" value="开始转换" >

</form>

</body>

</html>

·上一篇：怎么强制要求显式声明变量 >> 　　　·下一篇：生成一个随机数 >>