<!--#include file=common.asp-->
<%
dim tmpnum
'Der von der ersten Seite übergebene Kleinbuchstabenbetrag
tmpnum=request("page1num")
'Rufen Sie den Betrag an und zeigen Sie ihn in Großbuchstaben an
Response.write rmb(cdbl(tmpnum))
Antwort.Ende
%>
common.asp
<%
Funktion rmb(num)
num = FormatNumber(num, 2)
DimnumList
Dimmen Sie rmbList
DimnumLen
Dim numChar
Dimmnr
Dim n
Dimmen Sie n1, n2
wxya
numList = „Null, eins, zwei, drei, vier, fünf, sechs, acht, neun“
rmbList = "Cents of Cents einhundert Millionen einhundert Millionen einhundert Millionen"
Wenn num > 9999999999999,99, dann
rmb = „RMB-Wert außerhalb des Bereichs“
Exit-Funktion
Ende If
numstr = CStr(num * 100)
numLen = Len(numstr)
n=1
Machen Sie While n <= numLen
numChar = CInt(Mid(numstr, n, 1))
n1 = Mid(numList, numChar + 1, 1)
n2 = Mid(rmbList, numLen - n + 1, 1)
Wenn nicht n1 = „Null“, dann
hz = hz + CStr(n1) + CStr(n2)
Anders
Wenn n2 = „100 Millionen“ Oder n2 = „10.000“ Oder n2 = „Yuan“ Oder n1 = „0“ Dann
Do While Right(hz, 1) = „null“
hz = Left(hz, Len(hz) - 1)
Schleife
Ende wenn
Wenn (n2 = „100 Millionen“ Oder (n2 = „10.000“ Und Right(hz, 1) <> „100 Millionen“) Oder n2 = „100 Millionen“) Dann
hz = hz + CStr(n2)
Anders
Wenn Left(Right(hz, 2), 1) = „null“ oder Right(hz, 1) <> „100 Millionen“ dann
hz = hz + n1
Ende wenn
Ende wenn
Ende wenn
n = n + 1
Schleife
Do While Right(hz, 1) = „null“
hz = Left(hz, Len(hz) - 1)
Schleife
Wenn Right(hz, 1) = „元“ Dann
hz = hz + „ganz“
Ende wenn
rmb=hz
Endfunktion
%>
Diese Version löst das Problem fehlender Dezimalstellen und die Verarbeitungsmethode stimmt mit den Buchhaltungsmethoden überein!