Fonction de conversion de capitalisation de la monnaie ASP

Recommandé: comment limiter la méthode qui ne peut être saisie qu'en chinois.
fonction ischarsinbag (s, sac) {var i, c; pour (i = 0; i s.length; i ++) {c = s.Carat (i); // le caractère dans la chaîne s if (sac.indexof (c) -1) return c; } retour ; } Vérifier la fonction: fonction ischinese (s) {var errorchar; var badchar = abcdefghijklmnopqrst

`` Remarque: cette fonction convient aux conversions de devises inférieures à des milliards de dollars, permettant à la valeur de A d'être au plus deux décimales

«Définissez deux chaînes, où les caractères et les nombres chinois sont calculés comme un

Dim String1 comme String 'comme défini ci-dessous

Dim String2 comme String 'comme défini ci-dessous

DIM String3 As String 'Valeur tirée de la valeur A originale

Dim I en tant que variables de boucle en entier

Dim J comme la valeur de entier 'A multiplié par la longueur des chaînes de 100

DIM CH1 As String 'Chinese Lire des nombres

Dim ch2 comme chaîne 'Prononciation de caractère chinois des bits numériques

Dim nzero as Integer 'combien de nombres non nuls consécutifs sont utilisés pour calculer

String1 = 01234444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444

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

'Msgbox CSTR (A * 100)

Si instr (1, cstr (a * 100),.) <> 0 alors

Err.Raise 5000, cette fonction (ATOC ()) ne peut convertir les nombres qu'à deux chiffres après le point décimal!

Terminer si

J = Len (CSTR (A * 100))

String2 = droite (String2, J) 'supprime la valeur de String2 du nombre de chiffres correspondant

Pour i = 1 à j

String3 = mid (a * 100, i, 1) 'retirer la valeur d'un certain bit à convertir

Si String3 <> 0 alors

Ch1 = mid (string1, val (string3) + 1, 1)

Ch2 = mid (String2, i, 1)

nzero = nzero + 1 'signifie que la base n'est pas nulle

Autre

Partager: 15 exemples très utiles dans la programmation ASP (II)
8. Force la boîte de dialogue d'entrée de mot de passe pour mettre cette phrase au début de la page% réponse.status = 401 non autorisée Response.end% 9 Comment passer la variable d'une page à une autre réponse Utiliser le type caché pour passer la variable% Form Méthode = Post Action = MyNextPage.asp% pour chaque élément dans la demande.