Function getLastWord(str)
Set regEx = New RegExp
regEx.Pattern = "(.*)([a-zA-Z])[^a-zA-Z]*"
regEx.IgnoreCase = false
regEx.Global = True
str = regEx.Replace(str,"$2")
getLastWord = str
Set reg=nothing
End Function
str="1B2A3fdsafdsf32432432"
Response.Write(getLastWord(str)):Response.End()
asp+正则获得字符串中最后一个字母非字母不算
原文：http://www.jb51.net/article/14888.htm
