Verifikasi format IP <%
'***********************************
'Fungsi: checkip (par_strip)
'Argumen: String yang akan dideteksi oleh STR
'Penulis: Alixi
'Tanggal: 2007/7/13
'Deskripsi: Verifikasi format IP, kembalikan 1, jika tidak kembalikan 0
'Contoh: <%= checkip ("219.45.23.11")%>
'***********************************
FunctionCheckip (par_strip)
Checkip = 0
DIMTMPLOOP, TMPSTR
TMPSTR = par_strip
IFTMPSTR = "" orisnull (tmpstr) lalu extunction
tmpstr = split (tmpstr, ".")
IFNOTISArray (TMPSTR) lalu ExcitFunction
FortMploop = 0toubound (tmpstr)
IFTMPSTR (tmploop) = "" orisnull (tmpstr (tmploop)) kemudian mencurahkan fungsi
Ifnotisnumeric (tmpstr (tmploop)) lalu exitfunction
Ifcint (tmpRSTR (tmploop))> 255orcint (tmpstr (tmploop)) <1thenexitfunction
Berikutnya
Checkip = 1
Fungsi endfungsi
%>