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

复制代码 代码如下:

<%

FunctionRegExpTest(patrn,strng)

DimregEx,Match,Matches'建立变量。

SetregEx=NewRegExp'建立正则表达式。

regEx.Pattern=patrn'设置模式。

regEx.IgnoreCase=False'设置是否区分字符大小写。

regEx.Global=True'设置全局可用性。

SetMatches=regEx.Execute(strng)'执行搜索。

ForEachMatchInMatches'遍历匹配集合。

OnErrorResumeNext

RetStr=RetStr&Match.Value&"|"

Next

RegExpTest=RetStr

EndFunction

str="我来自#5565#哈哈"

strInfo=RegExpTest("#w+(((b[,0-9]+b)?))?#",str)

Response.Write(strInfo)

%>

再看一例：

复制代码 代码如下:

FunctionnoHtml(str)

Dimre

Setre=NewRegExp

re.IgnoreCase=True

re.Global=True

re.Pattern="(<.*?>)"

str=re.Replace(str,"")

re.Pattern="(</.*?>)"

str=re.Replace(str,"")

noHtml=str

EndFunction