asp検出デジタルタイプ関数

'**************************************************
'  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