0/5 (1 avis)
Snippet vu 12 308 fois - Téléchargée 39 fois
Response.write TestLetterOnly("ask,.,'#@ldas78") function TestLetterOnly(strRequestTest) strRequestTest = ucase(strRequestTest) if strRequestTest ="" then TestLetterOnly = "Empty" else strRequestLen = len(strRequestTest) for i = 0 to strRequestLen-1 strRequest = false strRequestletter = mid(strRequestTest,i+1,1) response.write strRequestletter FOR j=65 TO 90 if strRequestletter = chr(j) then strRequest = true end if next 'verification des exeption : . , ' et space SELECT case strRequestletter case " ",".","'"'ajouter ici les caractère accepter strRequest = true end select if not strRequest then TestLetterOnly="False" exit function end if next end if TestLetterOnly="True" end function
1 févr. 2002 à 22:52
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.