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