<% '**** RMB case transformation format **** DIM STR (9) Str (0) = "zero" STR (1) = "" str (2) = "" str (3) = "" Str (4) = "" str (5) = "Wu" STR (6) = "Lu" 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 & "points" case 2: k = mynum "Corner" case 3: k = mynum & "yuan" case 4: k = mynum & "pick" case 5: k = mynum & "" case 6: k = mynum & "仟" Case 7: k = mynum & "10,000" case 8 : k = mynum & "Pick up" Case 9: K = MyNum & "" case 10: k = mynum & "仟" end select m = m & k next%>
Digital conversion title> head>