如何从一个字符串中提取数字部分

<%
function getNum(str) 
 dim re 
 set re=new RegExp 
 re.pattern="\D" 
 re.global=true 
 getNum = re.replace(str, "") 
 end function 
%>
<%=getNum("快递20元/单")%>