'**************************************************
'函数ID：0014[检测ID是否为数字类型]
'函数名：JCID
'作 用：检测ID是否为数字类型
'参 数：ParaValue ---- 被检测的ID值
'返回值：返回ID值，如果不为数字类型返回0
'**************************************************
Function JCID(ByVal ParaValue)
    If ((Not isNumeric(ParaValue)) or (Trim(ParaValue)="")) Then
            JCID=0 
    Else 
           JCID=ParaValue
    End If
End function