复制代码代码如下:
<%
Dimcmd
SetCmd = newcls_command
ClassCLS_COMMAND
Privatera
PublicFunctionSpositiveInteger (valor)
Setre = newregexp
Re.pattern = "^[1-9] [/d]*$"
Re.ignorecase = True
Re.global = verdadero
Ispositivointeger = re.test (valor)
Setre = nada
Función final
PublicFunctionIsdigit (VString)
Ifvstring = "" entoncesisDigit = false: ExitFunction
Setre = newregexp
Re.pattern = "^[az]+$"
Re.global = verdadero
Re.ignorecase = True
Re.multiline = verdadero
Isdigit = re.test (vstring)
Setre = nada
Función final
PublicFunctionisalpha (Vstring)
Ifvstring = "" entoncesisalpha = false: ExitFunction
Setre = newregexp
Re.pattern = "^[/d]+$"
Re.global = verdadero
Re.ignorecase = True
Re.multiline = verdadero
Isalpha = re.test (vstring)
Setre = nada
Función final
PublicFunctionSalPhadigit (VString)
Ifvstring = "" entoncesisalphadigit = false: ExitFunction
Setre = newregexp
Re.pattern = "^[A-Za-Z/D]+$"
Re.global = verdadero