当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP实例:检测整数和长整数的函数

ASP
用ASP实现对Web搜索引擎Index Server的访问
ASP.NET数据库应用指南
利用ASP存取各种常用类型数据库(1)
利用ASP存取各种常用类型数据库(2)
利用ASP存取各种常用类型数据库(3)
利用ASP存取各种常用类型数据库(4)
利用ASP存取各种常用类型数据库(5)
利用ASP存取各种常用类型数据库(6)
一个简单的网上书城的例子(一)
一个简单的网上书城的例子(二)
一个简单的网上书城的例子(三)
一个简单的网上书城的例子(四)
一个简单的网上书城的例子(五)
一个简单的网上书城的例子(六)
一个简单的网上书城的例子(七)
一个简单的网上书城的例子(八)
用asp怎样编写文档搜索页面(1)
用asp怎样编写文档搜索页面(2)
用asp怎样编写文档搜索页面(3)
用asp怎样编写文档搜索页面(4)

ASP实例:检测整数和长整数的函数


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-28   浏览: 187 ::
收藏到网摘: n/a

检测整数和长整数的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
%>