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

　　%>