复制代码代码如下:
<%
Dimcmd
Setcmd = newcls_command
ClassCls_Command
Privatere
PublicFunctionispositivoInteger (valor)
Setre = newRegexp
Re.pattern = "^[1-9] [/d]*$"
Re.IGNORECASE = true
Re.global = true
IspositivoInteger = re.test (valor)
Setre = nada
Função final
PublicFunctionIsDigit (VString)
Ifvstring = "" thenisdigit = false: exitfunction
Setre = newRegexp
Re.pattern = "^[az]+$"
Re.global = true
Re.IGNORECASE = true
Re.multiline = true
Isdigit = re.test (vString)
Setre = nada
Função final
PublicFunctionIsalpha (VString)
Ifvstring = "" thenisalpha = false: exitfunction
Setre = newRegexp
Re.pattern = "^[/d]+$"
Re.global = true
Re.IGNORECASE = true
Re.multiline = true
Isalpha = re.test (vString)
Setre = nada
Função final
PublicFunctionIsalphadigit (VString)
Ifvstring = "" thenisalphadigit = false: exitfunção
Setre = newRegexp
Re.pattern = "^[a-za-z/d]+$"
Re.global = true