<%
'****人民币大小写转换格式****
dimstr(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,',','')
fori=1tolen(aa)
s=mid(aa,i,1)
mynum=str(s)
selectcase(len(aa)+1-i)
case1:k=mynum&'分'
case2:k=mynum&'角'
case3:k=mynum&'元'
case4:k=mynum&'拾'
case5:k=mynum&'佰'
case6:k=mynum&'仟'
case7:k=mynum&'万'
case8:k=mynum&'拾'
case9:k=mynum&'佰'
case10:k=mynum&'仟'
endselect
m=m&k
next
%>
<html>
<head>
<title>数字转换</title>
<metahttp-equiv='Content-Type'content='text/html;charset=gb2312'>
</head>
<!--
Elseif(s='.')then
n=m
i=i+2
forj=itolen(aa)
s=mid(aa,i,1)
mynum=str(s)
selectcase(len(aa)+1-i)
case1:p=mynum&'分'
case2:p=mynum&'角'
endselect
m=m&p
next
-->
<bodybgcolor='#FFFFFF'>
<formmethod='post'name='forma'>
<inputtype='text'name='source'value='<%=hh%>'>
=
<inputtype='text'name='result'value='<%=m%>'size='40'> <inputtype='submit'name='Submit'value='提交'>
</form>
</body>
</html>
|