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
Fonction atoC (A as devise) comme chaîne`` 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.
2 pages de la page suivante de la page suivante précédente