^{<noscript id="qyzyo"></noscript>}

檢測函數 asp class

2024-05-04 10:59:07

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

<%
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

上一篇：值得收藏的一些HTML、JavaScript、ASP代碼

下一篇：多域名綁定到一個空間訪問不同首頁的技巧

發表評論

共有條評論