复制代码代码如下:
<%
DIMCMD
SetCmd = newcls_command
Classcls_command
Privatore
PublicFunctionSpositiveInteger (nilai)
Setre = newregexp
Re.pattern = "^[1-9] [/d]*$"
Re.ignorecase = true
Re.global = true
IsPositiveInteger = re.test (nilai)
Setre = tidak ada
Fungsi endfungsi
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 = tidak ada
Fungsi endfungsi
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 = tidak ada
Fungsi endfungsi
PublicFunctionisalPhadigit (VString)
IfvString = "" thenisalphadigit = false: ExitFunction
Setre = newregexp
Re.pattern = "^[a-za-z/d]+$"
Re.global = true