复制代码代码如下:
<%
Dimcmd
Setcmd = newcls_command
Classcls_command
Privatere
PublicFonctionpositiveInteger (valeur)
SetRe = newRegexp
Re.Pattern = "^ [1-9] [/ d] * $"
Re.ignorecase = true
Re.global = true
ISPoSitiveInteger = re.Test (valeur)
Setdre = rien
Finition de fin
PublicFonctionIsDigit (VString)
IfvString = "" thesdigit = false: exitfunction
SetRe = newRegexp
Re.Pattern = "^ [az] + $"
Re.global = true
Re.ignorecase = true
Re.multiline = true
Isdigit = re.test (vstring)
Setdre = rien
Finition de fin
PublicFonctionIsalpha (Vstring)
IfvString = "" thesalpha = false: exitfunction
SetRe = newRegexp
Re.Pattern = "^ [/ d] + $"
Re.global = true
Re.ignorecase = true
Re.multiline = true
Isalpha = re.test (vstring)
Setdre = rien
Finition de fin
PublicFonctionIsalphadigit (Vstring)
IfvString = "" thesalphadigit = false: exitfunction
SetRe = newRegexp
Re.Pattern = "^ [a-za-z / d] + $"
Re.global = true