登陆 免费注册 提交网站
站长资讯 >> 站长学院 >> 网络编程
 2007-10-30 21:04浏览: 3055 次

asp验证Ip格式的函数

验证Ip格式<%

'******************************

'函数:CheckIp(paR_strIp)

'参数:str 要检测的字符串

'作者:阿里西西

'日期:2007/7/13

'描述:验证Ip格式,是返回1,否则返回0

'示例:<%=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

%>

该文章转载自脚本之家:

网站首页 - 关于我们 - 联系我们 - 友情链接 - 帮助中心
Copyright ©2007-2020 www.Aisila.com All Rights Reserved
豫ICP备17005272号

豫公网安备 41022202000021号