StripNonNumeric函数源程序

2016-01-29 17:22 0 1 收藏

StripNonNumeric函数源程序,StripNonNumeric函数源程序

【 tulaoshi.com - ASP 】

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

来源:https://www.tulaoshi.com/n/20160129/1501116.html

上一篇： CDONTS发电子邮件例子
下一篇：手工备份Windows XP的注册表

看过《StripNonNumeric函数源程序》的人还看了以下文章更多>>

有关站内模糊查询的源程序!

标签： ASP

if bh="" then sql="select * from sl where bh like '%"&ss&"%'" else bh=clng(bh) sql="select * from sl where bh=" & bh & " " end if if nam<"" then sql=sql&" and nam like '...

LINE 的计数器源程序（附源代码）

标签： ASP

<% bUseImages = CBool(Request.QueryString("images")) strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".dat") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the file as a text stream (1 = ForReading, True = Create) S...

一个记事本的源程序

标签：编程语言网络编程

/****************************************************************/ /* @(#)busyworkBook.java 1.0.0 2004-06-04 */ /* */ /* Email: pqdb123@yahoo.com.cn */ /* */ /* Copyright (c) 2004-2006 by ZhangYunFeng All Rights Reserved. */ /****************************************************************/ //导入awt包，event包 import...

一个简单的PHP入门源程序

标签： PHP

引用“星空浪子”php中文文档的例子：聊天室，是 Web 站上打发无聊人士的秘密武器。同时，站长或其它人员也可以在这儿杀时间。甚至发生一段轰轰烈烈的网路恋情呢，就算没有，起码可以增加打字的速度。聊天室，其实就是多人共同使用的 CGI 程式。程式将每个人输入的字串，依系统接收完成的时间整理过后，再送给各个使用者。而 Web ...

从源程序看原理:突破防火墙入侵内网

标签：编程语言网络编程

现在很多企业或者公司基本上网方式基本上都是申请一条连接到Internet的线路，宽带、DDN、ADSL、ISDN等等，然后用一台服务器做网关，服务器两块网卡，一块是连接到Internet，另一块是连接到内网的HUB或者交换机,然后内网的其他机器就可以通过网关连接到Internet。也许有些人会这样想，我在内网之中，我们之间没有直接的连接，你没有办法攻击我。...

查看更多精彩>>