检测函数 asp class

<%
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]+$"