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