<%
'*******************************
'Fonction: contrôle de contrôle (Strng)
'Paramètre: Strng, chaîne à vérifier
'Auteur: Alixi
'Date: 2007/7/13
'Description: détecter si une chaîne est une combinaison de lettres et de chiffres purs
'Exemple: <% = contrôle de contrôle (strNg)%>
'*******************************
FonctionCheckstring (Strng)
CheckString = True
Dimregex, match
SetRegex = newRegexp
regex.pattern = "^ [a-za-z0-9] + $"
regex.ignorecase = true
Setmatch = regex.execute (strng)
ifMatch.CountThencheckString = false
Finition de fin
%>
Détecter s'il s'agit d'un caractère chinois
<%
'*******************************
'Fonction: CheckChinese (Strng)
'Paramètre: Strng, caractère à vérifier
'Auteur: Alixi
'Date: 2007/7/13
'Description: détecter s'il s'agit d'un caractère chinois, valeur de retour: vrai en chinois, sinon faux
'Exemple: <% = checkChinese (strNg)%>
'*******************************
FonctionCheckChinese (Strng)
CheckChinese = True
Dimregex, match
SetRegex = newRegexp
regex.pattern = "/ || / # | / & |? | / @ | /% | / * | // | /. | /, | /; | / '| /: | / - | / _ | / + | / ^ | /" "| / = | / <| /////" "
regex.ignorecase = true
Setmatch = regex.execute (strng)
ifmatch.CountThencheckChinese = false
Finition de fin
%>