<% Dim Cmd Set Cmd = New Cls_Command Class Cls_Command Private Re
Public Function IsPositiveInteger(value) Set Re = New RegExp Re.Pattern = "^[1-9][/d]*$" Re.IgnoreCase = True Re.Global = True IsPositiveInteger = Re.Test(value) Set Re = Nothing End Function
Public Function IsDigit(vString) If vString = "" Then IsDigit = False : Exit Function Set Re = New RegExp Re.Pattern = "^[a-z]+$" Re.Global = True Re.IgnoreCase = True Re.MultiLine = True IsDigit = Re.Test(vString) Set Re = Nothing End Function
Public Function IsAlpha(vString) If vString = "" Then IsAlpha = False : Exit Function Set Re = New RegExp Re.Pattern = "^[/d]+$" Re.Global = True Re.IgnoreCase = True Re.MultiLine = True IsAlpha = Re.Test(vString) Set Re = Nothing End Function
Public Function IsAlphaDigit(vString) If vString = "" Then IsAlphaDigit = False : Exit Function Set Re = New RegExp Re.Pattern = "^[a-zA-Z/d]+$" Re.Global = True Re.IgnoreCase = True Re.MultiLine = True IsAlphaDigit = Re.Test(vString) Set Re = Nothing End Function
