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