<%
'*******************************
'Fonction: IsvalidUsername (byValusername)
'Paramètre: nom d'utilisateur, nom d'utilisateur
'Auteur: Alixi
'Date: 2007/7/15
'Description: Vérifiez si le nom d'utilisateur contient des caractères illégaux, sans retour des caractères illégaux: Vrai
'Exemple: IsvalidUsername (byValusername)
'*******************************
FonctionisvalidUsername (byValusername)
Dimi, C
IsvalidUsername = true
Fori = 1Tolen (nom d'utilisateur)
c = lCase (mid (nom d'utilisateur, i, 1))
IFinstr ("$! <>? # ^% @ ~` & * () ;: + = '"" ", c)> 0THEN
IsvalidUsername = false
Sortie
Endire
Suivant
Finition de fin
%>