（原创）一个判断字符串的数值类型

支持判断返回任何数值型的类型数据：

Function GetNumType(sVal)

Dim sType

If Not IsNumeric(sVal) Then

GetNumType="Unknow"

Exit Function

End If

Execute "sType=TypeName("&sVal&")"

GetNumType=sType

End Function

测试：

Response.Write GetNumType("9999") '返回：Integer

Response.Write GetNumType("999999999") '返回：Long

Response.Write GetNumType("99999999999999") '返回：Double

Response.Write GetNumType("asdfasd") '返回：Unknow