StripNonNumeric函数源程序 -友情网中网「Www.33EE.Com」

ASP其它

ASP教程
 ASP文摘
 ASP实例
 ASP FAQ
ASP安全
 ASP组件
 ASP其它

本类阅读TOP10

·限制只能中文输入的方法
·一种函数的计算方法并给出相应的曲线图片
·简单的检查输入email是否合法程序
·转换html代码子程序
·判断文章中文字符数量
·检查sql字符串中是否有单引号，有则进行转化
·动态输入框的三个函数
·检测表单输入EMAIL的合法性
·用vbscript判断email地址的合法性
·给你的FileSystemObject对象加把锁

→ 精品推荐

StripNonNumeric函数源程序

作者：未知来源：未知 加入时间：2004-12-1

<%
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
%>

（出处：不详）

相关文章：
相关软件：


\| 网络工具 \| 系统工具 \| 应用软件 \| 多媒体类 \| 联络聊天 \| 行业软件 \| 图形图像 \| 安全相关 \| 编程开发 \| 教育教学 \| 游戏娱乐 \| \| 程序源码 \| ASP 源码 \| CGI 源码 \| PHP 源码 \| 驱动下载 \| 字体下载 \| 素材下载 \| 桌面大全 \| 闪客天地 \| 外挂插件 \| 考题下载 \|


站内搜索：