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
%>