[asp]中的正则表达式运用代码

今天在改一套b2b的电子商务系统时，发现ASP正则，虽然用ASP很久了，但从来没用过正则表达式，这套系统中有个正则的函数很不错，自己看吧。

<%   
Function RegExpTest(patrn, strng)  
    Dim regEx, Match, Matches   ' 建立变量。  
    Set regEx = New RegExp   ' 建立正则表达式。  
     regEx.Pattern = patrn   ' 设置模式。  
    regEx.IgnoreCase = False   ' 设置是否区分字符大小写。  
    regEx.Global = True   ' 设置全局可用性。  
    Set Matches = regEx.Execute(strng)   ' 执行搜索。  
    For Each Match In Matches   ' 遍历匹配集合。  
    On Error Resume Next  
    RetStr = RetStr & Match.Value&"|"  
    Next  
    RegExpTest = RetStr  
End Function  

 str = "我来自#5565#哈哈"  
 strInfo = RegExpTest("#w+(((b[,0-9]+b)?))?#", str)  
 Response.Write(strInfo)  
%> 

再看一例：

Function noHtml(str)  
     Dim re  
     Set re=New RegExp  
     re.IgnoreCase =True  
     re.Global=True  
     re.Pattern="(<.*?>)"  
     str=re.Replace(str,"")  
     re.Pattern="(</.*?>)"  
     str=re.Replace(str,"")  
     noHtml=str  
End Function

asp 正则表达式检测http开头的函数
'####################################'函数：ishttp[str]'参数：str，待处理的字符串'作者：木木'日期：2007/7/12'描述：检测HTTP连接地址或地址栏是否以HTTP开头'示例

javascript下正则匹配百分比的代码
scriptlanguage="javascript"varre=/^-?d+%$/;alert(re.test('50%'));alert(re.test('-25%'));alert(re.test('3a5%'));/script

javascript下一个还原html代码的正则
今天看到蓝色有人问这个问题，偶就试着写了一个，感觉正则的replace+function方式挺方便简洁，代码如下:[Ctrl+A全选注:如需引入外部Js需刷新才能执行]