function replacestr(str)
dim re
set re=new regexp
re.ignorecase=true
re.global=true
re.pattern="D"
str=re.replace(str,"")
replacestr=str
set re=nothing
end function

常用正则表达式及评注-学习正则必备
匹配中文字符的正则表达式：[u4e00-u9fa5]评注：匹配中文还真是个头疼的事，有了这个表达式就好办了匹配双字节字符(包括汉字在内)：[^x00-xff]评注

asp常用的正则表达式实现字符串的替换
去除html标签正则/*[^]*FunctionLoseHtml(ContentStr)DimClsTempLoseStr,RegExClsTempLoseStr=Cstr(ContentStr)SetRegEx=NewRegExpRegEx.Pattern="/*[^]*"RegEx.IgnoreCase=TrueRegEx.Global=TrueClsTempLos

计算一个字符串在另一字符串中出现的次数函数
Functionstrnum(patrn,strng)DimregEx,Match,Matches,xxxx=0SetregEx=NewRegExpregEx.Pattern=patrnregEx.IgnoreCase=True'设置是否区分大小写。regEx.Global=TrueSetMatches=regEx.Execute(strng)ForEach