ASP實例：檢測整數和長整數的函數

檢測整數和長整數的ASP函數

<%
'檢測字符串是否是整數
Function Is_Int(a_str)
    If not isnumeric(a_str) or len(a_str) > 5 Then
        Is_Int = false 
        Exit Function 
    Elseif len(a_str) < 5 then
        Is_Int = true 
        Exit Function 
    End if 
    If cint(left(a_str , 4)) > 3276 Then
        Is_Int = false
        Exit Function
    Elseif cint(left(a_str , 4)) = 3276 And cint(right(a_str , 1)) > 7 Then
        Is_Int = false
        Exit Function
    Else
        Is_Int = true
        Exit Function
    End if 
End Function

'檢測是否是長整數
Function Is_Lng(a_str)
    If not isnumeric(a_str) or len(a_str) > 10 Then
        Is_Lng = false
        Exit Function 
    Elseif len(a_str) < 10 Then
        Is_Lng = true 
        Exit Function 
    End If 
    If clng(left(a_str , 9)) > 214748367 Then
        Is_Lng = false
        Exit Function
    Elseif clng(left(a_str , 9)) = 214748367 And clng(right(a_str , 1)) > 7 Then
        Is_Lng = false
        Exit Function
    Else
        Is_Lng = true
        Exit Function
    End If 
End Function
%>