asp验证Ip格式的函数

asp验证验证Ip格式的函数格式的函数

asp验证Ip格式的函数

验证Ip格式<%

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

'函数：CheckIp(paR_strIp)

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

'作者：阿里西西

'日期：2007/7/13

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