asp验证Ip格式的函数 |
|
本文标签：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 %> |
