小弟是ASP菜鸟，有个问题向大家请教!

Public Function GetNumber(str)
Dim sl,ResultStr
For sl = 1 To Len(str)
If Asc(Mid(str,sl,1)) >=48 And Asc(Mid(str,sl,1)) <=57 Then
ResultStr = ResultStr&Mid(str,sl,1)
End If
Next
GetNumber = ResultStr
End Function

不懂加QQ 165368576

你的数字字符是连续的，可以从数字处截取，到字符结束
instr函数

表达式:
InStr([start, ]string1, string2[, compare])

描述:
start
可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1
必要参数。接受搜索的字符串表达式。
string2
必要参数。被搜索的字符串表达式。
Compare
可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。

compare 参数设置为：
常数
值
描述
vbUseCompareOption
-1
使用Option Compare 语句设置执行一个比较。
vbBinaryCompare
0
执行一个二进制比较。
vbTextCompare
1
执行一个按照原文的比较。
vbDatabaseCompare
2
仅适用于Mic