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