tengo esta funcion para validar la IP
pero me tirra error con la funcion val
Código PHP:
Function ValidarIP(IPaValidar)
'Función ValidarIP
'******************
'
'Comprueba una cadena y verifica si es o no un número IP.
'
'Uso: Boolean = ValidarIP(IPaValidar)
'Argumentos:
'IPaValidar: Cadena de caracteres (string) a evaluar como dirección IP
'Devuelve:
'Un valor del tipo Boolean:
'True cuando es una dirección IP,
'False cuando no lo es.
PosPunto1 = InStr(1, IPaValidar, ".")
PosPunto2 = InStr(PosPunto1 + 1, IPaValidar, ".")
PosPunto3 = InStr(PosPunto2 + 1, IPaValidar, ".")
PosPunto4 = InStr(PosPunto3 + 1, IPaValidar, ".")
If PosPunto4 <> 0 Then
ValidarIP = False
Exit Function
Else
If PosPunto1 <> 0 Then
If PosPunto2 <> 0 Then
If PosPunto3 <> 0 Then
IPseccion1 = Mid(IPaValidar, 1, PosPunto1 - 1)
IPseccion2 = Mid(IPaValidar, PosPunto1 + 1, (PosPunto2 - PosPunto1) - 1)
IPseccion3 = Mid(IPaValidar, PosPunto2 + 1, (PosPunto3 - PosPunto2) - 1)
IPseccion4 = Mid(IPaValidar, PosPunto3 + 1)
If IsNumeric(IPseccion1) Then
If Val(IPseccion1) < 256 Then
If Val(IPseccion1) >= 0 Then
If IsNumeric(IPseccion2) Then
If Val(IPseccion2) < 256 Then
If Val(IPseccion2) >= 0 Then
If IsNumeric(IPseccion3) Then
If Val(IPseccion3) < 256 Then
If Val(IPseccion3) >= 0 Then
If IsNumeric(IPseccion4) Then
If Val(IPseccion4) < 256 Then
If Val(IPseccion4) >= 0 Then
ValidarIP = True
Exit Function
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
Else
ValidarIP = False
Exit Function
End If
End If
End Function
perdon por deformar la tabla....