'函数名：JCID

'作 用：检测ID是否为数字类型

'参 数：ParaValue ---- 被检测的ID值

'返回值：返回ID值，如果不为数字类型返回0

'**************************************************

Public Function JCID(ByVal ParaValue)

If ((Not isNumeric(ParaValue)) OR (Trim(ParaValue)="")) Then

JCID=0

Else

JCID=ParaValue

End If

End function