函数|中文字符
<%
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
%>
