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

asp去除html标记与空格的正则
functionnohtml(str)dimreSetre=newRegExpre.IgnoreCase=truere.Global=Truere.Pattern="(.[^]*)"str=re.replace(str,"")re.Pattern="(\/[^]*)"str=re.replace(str,"")str=replace(str,"","")str=replace(str,

JScript 8.0 正则表达式语法
正则表达式示例表达式匹配/^s*$/匹配空行。/d{2}-d{5}/验证由两位数字、一个连字符再加5位数字组成的ID号。/s*(S+)(s[^]*)?[sS]*s*/1s*/匹配HTML标记。

PHP 正则 email语句详解
?phpif(eregi("^[_.0-9a-z-]+@([0-9a-z][0-9a-z-]+.)+[a-z]{2,3}$",$email)){echo"您的E-Mail通过初步检查";}?在这句话里，首先是应用了一个eregi函数，这个函数还算好理解。随