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

var alimama_pid="mm_10474132_546401_835202";
var alimama_titlecolor="0000FF";
var alimama_descolor ="000000";
var alimama_bgcolor="FFFFFF";
var alimama_bordercolor="E6E6E6";
var alimama_linkcolor="008000";
var alimama_bottomcolor="FFFFFF";
var alimama_anglesize="0";
var alimama_bgpic="0";
var alimama_icon="0";
var alimama_sizecode="12";
var alimama_width=468;
var alimama_height=60;
var alimama_type=2;

<%

function getNum(str)

dim re

set re=new RegExp

re.pattern="\D"

re.global=true

getNum = re.replace(str, "")

end function

%>

<%=getNum("快递20元/单")%>