复制代码代码如下::
<%
Dimcmd
Setcmd = newcls_command
Classcls_command
Private
PublicFunctionispositiveInteger (Wert)
Setre = newRegexp
Re.Pattern = "^[1-9] [/d]*$"
Re.Innorecase = true
Re.global = true
Ispositivinterger = re.Test (Wert)
Setre = nichts
Endfunktion
PublicFunctionisDigit (Vstring)
Ifvstring = "" thenisDigit = false: exitFunction
Setre = newRegexp
Re.Pattern = "^[az]+$"
Re.global = true
Re.Innorecase = true
Re.multiline = true
IsDigit = re.test (vstring)
Setre = nichts
Endfunktion
PublicFunctionisalpha (Vstring)
Ifvstring = "" thenisalpha = false: exitFunction
Setre = newRegexp
Re.Pattern = "^[/d]+$"
Re.global = true
Re.Innorecase = true
Re.multiline = true
ISalpha = re.test (vstring)
Setre = nichts
Endfunktion
PublicFunctionisalphadigit (Vstring)
Ifvstring = "" thenisalphadigit = false: exitFunction
Setre = newRegexp
Re.Pattern = "^[a-za-z/d]+$"
Re.global = true