- 完整的站点访问统计系统（一：数据库篇）
- 关于页面缓存清除的方法小结
- 用QuickWAP组件结合ASP建设Wap站点
- 多个表单和多个图片一起上传完美解决方案
- Asp优化，asp缓存技术
- 必读.NET常见问题汇总
- asp处理xml数据的发送、接收类
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （四）
- HTTP方式上载文件的ASP程序实例
- 提高ASP页面的执行效率（中）
- .Net边学边讲（二）
- 全文本检索的应用(3)
- ASP 3.0高级编程（三十一）
- 用ASP学做一个在线调查
- 如何用ASP编写网站统计系统二
- SharePoint 2010中新增的GetItemByIdSelectedFields方法
- ASP 中 Split 函数的实例
- 用ASP开发一个在线考试程序（五）
- asp版域名查询的数据库接口
- 一个简单的网上书城的例子（五）
- ASP将两个数组合并为一个数组函数 array_merge()
- ASP.NET MVC分页、ASP.NET MVC Ajax分页组件1.0发布!
- [视频教程]Dreamweaver与ASP动态网页设计教程 - 第四章 数据库之6 Dreamweaver与数据库连接
- 用ASP实现对MP3曲目信息的操作
- 从VB 6.0到VB.NET的转换(5)
- ADO如何使用Update语法呢？（BIG5）
- ASP.Net调试之三板斧：第二招
- 经验总结：ASP与存储过程解析
- 在ASP中使用Oracle数据库技巧
- ASP数字、字母验证码（带随机杂点）
StripNonNumeric函数源程序
作者：佚名 ASP网站建设编辑：admin 更新时间：2022-07-23
<%
Function StripNonNumeric(strInput)
Dim iPos, sNew, iTemp
strInput = Trim(strInput)
If strInput <> "" Then
iPos = 1
iTemp = Len(strInput)
While iTemp >= iPos
If IsNumeric(Mid(strInput,iPos,1)) = True Then
sNew = sNew & Mid(strInput,iPos,1)
End If
iPos = iPos + 1
Wend
Else
sNew = ""
End If
StripNonNumeric = sNew
End Function
%>
Function StripNonNumeric(strInput)
Dim iPos, sNew, iTemp
strInput = Trim(strInput)
If strInput <> "" Then
iPos = 1
iTemp = Len(strInput)
While iTemp >= iPos
If IsNumeric(Mid(strInput,iPos,1)) = True Then
sNew = sNew & Mid(strInput,iPos,1)
End If
iPos = iPos + 1
Wend
Else
sNew = ""
End If
StripNonNumeric = sNew
End Function
%>
- 上一篇文章： 一个免费的简单聊天室源代码
- 下一篇文章： 通过事例学习.net的WebForms技术(三)