繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP实例：检测整数和长整数的函数
- ASP
- ASP系列讲座（十）ASP 内建对象
- ASP系列讲座（十一）ActiveX 组件
- ASP系列讲座（十二）向浏览器发送内容
- ASP系列讲座（十三）向浏览器传送脚本
- ASP系列讲座（十四）包含文件
- ASP系列讲座（十五）使用 HTML 表格
- ASP系列讲座（十六）访问数据库
- ASP系列讲座（十七）调试 ASP 脚本
- ASP系列讲座（十八）管理应用程序
- ASP系列讲座（十九）管理会话
- ASP系列讲座（二十）维护 ASP 应用程序的安全
- ASP系列讲座（二十一）创建事务性脚本
- ASP系列讲座（二十二）使用国际站点
- ASP系列讲座（二十三）编写跨平台应用程序
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （一）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （二）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （三）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （四）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （五）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （六）
ASP实例：检测整数和长整数的函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-28 浏览: 206 ::
收藏到网摘: 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
%>
评论 (0) All
