Capital | rmb | lowercase | source code | CONVERT <%
' * * * * RMB Case Conversion Format * * *
Dim str (9)
STR (0) = "0"
STR (1) = "One"
STR (2) = "II"
STR (3) = "three"
STR (4) = "Restaurant"
STR (5) = "WU"
STR (6) = "Land"
STR (7) = "Qi"
STR (8) = "ba"
STR (9) = "Nine"
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& "min"
Case 2:k= mynum& "angle"
Case 3:k= mynum& "Yuan"
Case 4:k= mynum& "Pick Up"
Case 5:k= mynum& "Bai"
Case 6:k= mynum& "Qian"
Case 7:k= mynum& "million"
Case 8:k= mynum& "Pick Up"
Case 9:k= mynum& "Bai"
Case 10:k= mynum& "Qian"
End Select
M=m&k
Next
%>
<title> Digital Conversion </title>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<!--
Elseif (s= ".") Then
N=m
I=i+2
For J=i to Len (AA)
S=mid (aa,i,1)
MYNUM=STR (s)
Select Case (len (AA) +1-i)
Case 1:p= mynum& "min"
Case 2:p= mynum& "angle"
End Select
M=m&p
Next
-->
<body bgcolor= "#FFFFFF" >
<form method= "POST" name= "forma" >
<input type= "text" name= "source" value= "<%=hh%>" >
=
<input type= "text" name= "result" value= "<%=m%>" size= ">"
<input type= "Submit" name= "Submission" value= "submitted" >
</form>
</body>
