Функция преобразования капитализации валюты ASP

Рекомендуется: как ограничить метод, который можно ввести только на китайский.
функция ischarsinbag (s, bag) {var i, c; for (i = 0; i s.length; i ++) {c = s.charat (i); // символ в строке s if (bag.indexof (c) -1) return c; } возвращаться ; } Проверка функция: функция ишинеса (s) {var ramCrHar; var badchar = abcdefghijklmnopqrst

'Примечание: эта функция подходит для преобразования валют ниже триллионов долларов, что позволяет получить значение A не более двух десятичных знаков.

'Определите две строки, где китайские иероглифы и цифры рассчитываются как один

Dim String1 как строка ', как определено ниже

Dim String2 как строка ', как определено ниже

Dim String3 как значение String ', взятое из исходного значения A

Dim I как целочисленные переменные петли

Dim J как целое число 'a Значение, умноженное на длину строки 100

Dim CH1 как строка «китайское чтение чисел

Dim CH2 как строка «китайское произношение символов численных битов

Dim nzero как целое число «сколько последовательных ненулевых чисел используется для расчета

String1 = 0123444444444444444444444444444444444444444444444444444444 4444444444444444444444444444444444444444444444444444444444

String2 = 10 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000

'Msgbox cstr (a * 100)

Если instr (1, cstr (a * 100) ,.) <> 0 тогда

err.raise 5000, эта функция (atoc ()) может конвертировать числа только в двух цифрах после десятичной точки!

Конец, если

J = Len (CSTR (A * 100))

String2 = right (string2, j) 'выберите значение string2 соответствующего количества цифр

Для i = 1 до j

String3 = mid (a * 100, i, 1) 'выньте значение определенного бита, который будет преобразован

Если string3 <> 0, тогда

CH1 = Mid (String1, Val (String3) + 1, 1)

CH2 = Mid (String2, I, 1)

nzero = nzero + 1 'означает, что основание не равна нулю

Еще

Поделиться: 15 очень полезных примеров в программировании ASP (II)
8. Диалоговое окно «Ввод пароля», чтобы поместить это предложение в начале ответа Page %. Status = 401 Не авторизованный ответ