ASP函数验证带小数点数字格式

数字范围：922337203685477~-922337203685477

函数代码如下：

<％
Public Function CheckNumeric(ByVal CHECK_ID)
  If CHECK_ID <> "" And IsNumeric(CHECK_ID) Then
    If CHECK_ID > 922337203685477 Then CHECK_ID = 0
    If CHECK_ID < -922337203685477 Then CHECK_ID = 0
    CHECK_ID = CCur(CHECK_ID)
  Else
    CHECK_ID = 0
  End If
  CheckNumeric = CHECK_ID
End Function
％>