asp下替换非数字为空的正则

答案：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

上一个：[js]一个只删除所有font标签的正则函数
下一个：[asp]匹配网址的正则