ASP -Währungskapitalisierungsumwandlungsfunktion

Empfohlen: So begrenzen Sie die Methode, die nur in Chinesisch eingegeben werden kann.
Funktion Ischarsinbag (s, Bag) {var i, c; für (i = 0; i s.Length; i ++) {c = S. charat (i); // Das Zeichen in der Zeichenfolge s if (bag.indexof (c) -1) return c; } zurückkehren ; } Überprüfen Sie die Funktion: Funktion ischinesisch (s) {var errorchar; var badchar = abcdefghijklmnopqrst

HINWEIS: Diese Funktion ist für Währungskonvertierungen unter den Billionen Dollar geeignet, sodass der Wert von A höchstens zwei Dezimalstellen sein kann

'Definieren Sie zwei Saiten, in denen chinesische Zeichen und Zahlen als eins berechnet werden

Dim String1 als String 'wie unten definiert

Dim String2 as String 'wie unten definiert

Dim String3 AS String 'Wert, der aus dem ursprünglichen Wert genommen wurde

Dim i als Ganzzahl 'Schleifevariablen

Dim J als Integer 'A -Wert multipliziert mit der Stringlänge von 100 multipliziert

Dim CH1 als String 'Chinesisches Lesen von Zahlen

Dim CH2 als String 'chinesische Zeichenaussprache von numerischen Bits

Dim NZero als Ganzzahl 'Wie viele aufeinanderfolgende Null-Zahlen werden zur Berechnung verwendet

String1 = 0123444444444444444444444444444444444444444444444444444 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

'Msgbox cstr (a * 100)

Wenn Instrument (1, cstr (a * 100),.) <> 0 dann dann

Err.Raise 5000, diese Funktion (ATOC ()) kann nur Zahlen innerhalb von zwei Ziffern nach dem Dezimalpunkt konvertieren!

Ende wenn

J = len (cstr (a * 100))

String2 = recht

Für i = 1 bis j

String3 = Mid (a * 100, i, 1) 'Nehmen Sie den Wert eines bestimmten zu konvertierenden Bits heraus

Wenn String3 <> 0 dann

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

CH2 = Mid (String2, I, 1)

nZero = nZero + 1 'bedeutet, dass die Basis nicht Null ist

Anders

Anteil: 15 Sehr nützliche Beispiele in der ASP -Programmierung (ii)
8. Dialogfeld für Kraftkennworteingangs -Eingangszahlen, um diesen Satz auf den Beginn der Seite % % Antwort zu setzen.Status = 401 Nicht autorisierte Antwort