Set regEx = New RegExp

建立对象

你只需要提取出来就行了啊,给你写了一个演示

Dim Matche,Matches
Set regEx = New RegExp
    regEx.Pattern = "\d+"
    regEx.Global = True
    regEx.IgnoreCase = True
Set Matches = regEx.Execute("fdsaf1321fdsa654ds641fdsa")

Dim strNewString
For Each Matche In Matches
    strNewString = strNewString & Matche.Value
Next

Call Response.Write("提取所有数字:" & strNewString)

谢谢你..我明白了~[em4]