asp验证Ip格式的函数

验证Ip格式<%
'******************************
'函数：CheckIp(paR_strIp)
'参数：str 要检测的字符串
'作者：阿里西西
'日期：2007/7/13
'描述：验证Ip格式，是返回１，否则返回０
'示例：<%=CheckIp("219.45.23.11")%>
'******************************
Function CheckIp(paR_strIp)
   CheckIp =0
   Dim tmpLoop, tmpStr
   tmpStr =paR_strIp
   If tmpStr ="" Or IsNull(tmpStr) Then Exit Function
   tmpStr =Split(tmpStr, ".")
   If Not isArray(tmpStr) Then Exit Function

For tmpLoop =0 To ubound(tmpStr)
      If tmpStr(tmpLoop) ="" Or IsNull(tmpStr(tmpLoop)) Then Exit Function
      If Not isNumeric(tmpStr(tmpLoop)) Then Exit Function
      If Cint(tmpStr(tmpLoop)) >255 Or Cint(tmpStr(tmpLoop)) <1 Then Exit Function
   Next
   CheckIp =1
End Function
%>

赞 (0)

相关推荐

  • asp验证Ip格式的函数

    验证Ip格式<% '****************************** '函数:CheckIp(paR_strIp) '参数:str 要检测的字符串 '作者:阿里西西 '日期:2007/7/13 '描述:验证Ip格式,是返回1,否则返回0 '示例:<%=CheckIp("219.45.23.11")%> '****************************** Function CheckIp(paR_strIp)    CheckIp =0    D

  • php使用filter_var函数判断邮箱，url,ip格式示例

    本文实例讲述了php使用filter_var函数判断邮箱,url,ip格式.分享给大家供大家参考,具体如下: 以前使用php的时候还不知道有过滤器filter这玩意,那时候判断邮箱.url和ip地址格式是否符合都是用正则表达式.后来随着使用的逐渐深入,才知道在php中也可以使用内置的函数库过滤器filter来完成这些功能. 对于filter_var这个函数,如果验证通过则会返回验证对象,否则返回false. 语法 filter_var(variable, filter, options) 参数

  • PHP自带方法验证邮箱、URL、IP是否合法的函数

    以前用PHP验证邮箱.URL.IP是否合法都是通过自己写正则来实现,但是有时候脑子发昏,可能会写出一个不是完全正确的正则,导致验证出错,今天发现原来PHP本身自带了验证邮箱.URL.IP是否合法的函数. 主要使用的是filter_var函数. 语法 filter_var(variable, filter, options) 参数 描述 variable 必需.规定要过滤的变量. filter 可选.规定要使用的过滤器的 ID. options 规定包含标志/选项的数组.检查每个过滤器可能的标志和

  • php使用preg_match()函数验证ip地址的方法

    本文实例讲述了php使用preg_match()函数验证ip地址的方法.分享给大家供大家参考,具体如下: <?php /* *@return Boolen *@param String $ip 要匹配的ip地址 *@param String $pat 匹配的正则规则 *@param Boolen 匹配成功后返回的布尔值 *preg_match() *0为不成功,1为成功 */ function fun($ip){ //0.0.0.0--- 255.255.255.255 $pat = "/

  • 通过正则表达式验证IP和端口格式的正确性

    通过正则表达式验证IP和端口格式的正确性

    在网页开发中可能会遇到需要对在页面输入的ip和端口进行正确性验证,那么正则表达式就是最有力的工具: 1:ip的正则表达式: 格式是由"."分割的四部分,每部分的范围是0-255: 每段的正则可以分几部分来写:200-255:100-199:10-99:0-9: 每一部分对应的正则表达式:   2[0-4]\d|25[0-5];   1\d{2};      [1-9]\d;  \d 所以连起来就是\d|[1-9]\d|1\d{2}|2[0-4]\d|25[0-5] 那么IP的正则就是(

  • asp之日期和时间函数示例

    asp之日期和时间函数示例 可以使用日期和时间函数来得到各种格式的日期和时间 函数语法说明示例NowNow()取得系统当前的日期和时间Dim MyVar MyVar = Now' MyVar 包含当前的日期和时间.DateDate()取得系统当前的日期Dim MyDate MyDate = Date' MyDate 包含当前系统日期.TimeTime()取得系统当前的时间Dim MyTime MyTime = Time ' 返回当前系统时间.YearYear(Date)取得给定日期的年份Dim

  • php实现验证邮箱格式的代码实例

    验证邮箱格式是否正确可以通过filter_var函数来实现. 函数介绍: filter_var() 函数通过指定的过滤器过滤一个变量. 语法: filter_var(variable, filter, options) 参数介绍: variable,(必需)规定要过滤的变量. filter,(可选)规定要使用的过滤器的 ID.默认是 FILTER_SANITIZE_STRING. options,(可选)规定一个包含标志/选项的关联数组或者一个单一的标志/选项.检查每个过滤器可能的标志和选项.

  • SQL Server格式转换函数Cast、Convert介绍

    SQL Server格式转换函数Cast、Convert介绍

    CAST.CONVERT都可以执行数据类型转换.在大部分情况下,两者执行同样的功能,不同的是CONVERT还提供一些特别的日期格式转换,而CAST没有这个功能. CAST是ANSI兼容的,推荐使用CONVERT. 一.语法 CONVERT (data_type [ ( length ) ] , expression [ , style ]) CAST (expression AS data_type [ (length ) ]) data_type:目标系统所提供的数据类型,包括 bigint

  • ASP超级链接和HTML函数正则表达式 修正版

    过滤超级链接 复制代码 代码如下: Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "<A[^>]+>(.+?)<\/A>" RegRemoveHref = ra.replace(HTMLstr,"$1") END Function 过滤所有HTML代码 复制代码 代码如下: Fu

  • 如何用ASP发送html格式的邮件？

    如何用ASP发送html格式的邮件?<% Dim objMail Set objMail = CreateObject("CDONTS.Newmail") objMail.TO = "sunchunliang@263.net" objMail.From =shenzhaoyang@intels.net objmail.Subject = "闪亮日子之html撼雪喷云" objMail.MailFormat = cdoMailFormatMi

随机推荐