Überprüfen Sie das IP -Format <%
'*********************************
'Funktion: checkip (par_strip)
'Argumente: Zeichenfolge, die von STR erkannt werden soll
'Autor: Alixi
'Datum: 2007/7/13
'Beschreibung: Überprüfen Sie das IP -Format, return 1, ansonsten zurück 0
'Beispiel: <%= checkip ("219,45,23.11")%>
'*********************************
FunctionCheckip (par_strip)
Checkip = 0
DimtmPloop, Tmpstr
tmpstr = par_strip
Iftmpstr = "" orisnull (tmpstr) thenexitfunction
tmpstr = split (tmpstr, ".").
IfnotisArray (TMPSTR) Thenexitfunction
FOstmPloop = 0Toubund (tmpstr)
IFTMPSTR (TMPLOOP) = "" orisnull (TMPSTR (TMPLOOP)) Thenexitfunction
Ifnotisnumeric (TMPSTR (TMPLOOP)) Thenexitfunction
Ifcint (TMPSTR (TMPLOOP)> 255ORCINT (TMPSTR (TMPLOOP)) <1Thenexitfunction
Nächste
Checkip = 1
Endfunktion
%>