<!--#include file=common.asp-->
<%
тусклый временной интервал
'Сумма в нижнем регистре, переданная с первой страницы
tmpnum = запрос («номер страницы1»)
'Вызов и отображение суммы в верхнем регистре
response.write rmb(cdbl(tmpnum))
ответ.конец
%>
common.asp
<%
Функция rmb(num)
num = FormatNumber(num, 2)
Димнумлист
Тусклый список ПКМ
ДимнумЛен
Тусклый номерChar
Тусклый номер
Тусклый н
Размер n1, n2
wxya
numList = "Ноль, один, два, три, четыре, пять, шесть, восемь, девять"
rmbList = "центы центов сто миллионов сто миллионов сто миллионов"
If num > 9999999999999,99 Тогда
rmb = "Значение юаня вне диапазона"
Выход из функции
Конец, если
numstr = CStr(num * 100)
numLen = Len(numstr)
п=1
Делать Пока n <= numLen
numChar = CInt(Mid(numstr, n, 1))
n1 = Mid(numList, numChar + 1, 1)
n2 = Mid(rmbList, numLen - n + 1, 1)
Если Не n1 = «ноль» Тогда
hz = hz + CStr(n1) + CStr(n2)
Еще
Если n2 = «100 миллионов» Или n2 = «10 000» Или n2 = «Юани» Или n1 = «0» Тогда
Делай пока правильно(hz, 1) = "ноль"
hz = Влево(hz, Len(hz) - 1)
Петля
Конец, если
Если (n2 = «100 миллионов» Или (n2 = «10 000» И Right(hz, 1) <> «100 миллионов») Или n2 = «100 миллионов») Тогда
Гц = Гц + CStr(n2)
Еще
Если Left(Right(hz, 2), 1) = "ноль" Или Right(hz, 1) <> "100 миллионов" Тогда
гц = гц + n1
Конец, если
Конец, если
Конец, если
п = п + 1
Петля
Делай пока правильно(hz, 1) = "ноль"
hz = Влево(hz, Len(hz) - 1)
Петля
Если Right(hz, 1) = "元" Тогда
гц = гц + "целый"
Конец, если
ПКМ = Гц
Конечная функция
%>
В этой версии решена проблема отсутствия десятичных знаков, а метод обработки соответствует методам учета!