<%
Function TrimCH(key)  
   Dim objRegExp, Match, Matches
   Set objRegExp = New Regexp
   objRegExp.IgnoreCase = True
   objRegExp.Global = True
   objRegExp.Pattern = "[^.0-9]"
   TrimCH =objRegExp.Replace(key,"")
   Set objRegExp = Nothing
End Function

key="12帝国内3.45汉字567"
key=TrimCH(key)
response.write key
%>