检测函数 asp class

2024-05-04 11:02:47

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:
<%
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

上一篇：登陆asp class

下一篇：统计有多少行JS代码和ASP代码