一个判断字符串的数值类型

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

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 

上一个：身份证号码验证函数
下一个：自动修改Cache中的数据