ASP 통화 대문자 전환 기능

권장 : 중국어로만 입력 할 수있는 방법을 제한하는 방법.
기능 ISCHARSINBAG (S, Bag) {var I, C; for (i = 0; i s.length; i ++) {c = s.charat (i); // 문자열의 문자 if (bag.indexof (c) -1) return c; } 반품 ; } 함수 확인 : 함수 ischinese (s) {var errorchar; var badchar = abcdefghijklmnopqrst

'참고 :이 기능은 1 조만 달러 미만의 통화 전환에 적합하므로 A의 가치는 최대 두 십 자리에있을 수 있습니다.

'중국어와 숫자가 하나로 계산되는 두 줄을 정의합니다.

아래 정의 된대로 string '으로 dim string1

아래 정의 된대로 string '으로 dim string2

Dim String3은 원본 A 값에서 얻은 문자열 '값으로

Dim I는 정수 '루프 변수로 Dim입니다

Dim J Dim J는 정수 'A의 값으로 100의 문자열 길이를 곱한 값

Dim Ch1은 문자열 '숫자의 중국어 읽기

Dim CH2는 문자열 '중국어 비트의 중국어 발음

Dim Nzero는 정수로서 '0 연속 비 0이 아닌 숫자를 계산하는 데 사용되는지

String1 = 012344444444444444444444444444444444444444444444444444 444444444444444444444444444444444444444444444444444444

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,000,000,000,000,000,000,000,000

'msgbox cstr (a * 100)

악기 (1, cstr (a * 100),.) <> 0 인 경우

err.raise 5000,,이 함수 (atoc ())는 소수점 후 두 자리 내에서만 숫자를 변환 할 수 있습니다!

끝 If

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 '은베이스가 0이 아님을 의미합니다.

또 다른

공유 : ASP 프로그래밍에서 15 가지 매우 유용한 예제 (II)
8. 암호 입력 입력 대화 상자 페이지 시작 에이 문장을 넣을 수 있도록이 문장을 포함시키기위한 응답.