asp正则表达式匹配数字$数字$数字$

    复制代码代码如下:
Dim strOk,strNo
    strOk = "12312321$12312312312$12312321$"
    strNo = "12312321$12312312312$12312321$sdfsd"

    Function RegExpTest（patrn, strng）
        Dim regEx, match, matches   " 建立变量。
        Set regEx = New RegExp   " 建立规范表达式。
        regEx.Pattern = patrn   " 设置模式。
        regEx.IgnoreCase = True   " 设置是否区分字母的大小写。
        regEx.Global = false   " 设置全程性质。
        set matches= regEx.Execute（strng）   " 执行搜索。
        for each match in matches      " 重复匹配集合
            RetStr=RetStr &"Match found at position "
            RetStr=RetStr&Match.FirstIndex&".Match Value is ""
            RetStr=RetStr&Match.Value&""."&vbCRLF
        Next
        IF Not IsEmpty（matches） And matches（0）.Value = strng Then
            RegExpTest = true
        Else
            RegExpTest = false
        End IF
    End Function
    MsgBox（RegExpTest（"[d+$]+", strOk））