<%
'' Dapatkan alamat pengunjung
ip=Permintaan.Variabel Server(REMOTE_ADDR)
''Rentang alamat IP yang diperbolehkan adalah 10.0.0.0~10.68.63.255
izinkan1=10.0.0.0
izinkan2=10.68.10.71
respon.writecheckip(ip,allowip1,allowip2)
pemeriksaan fungsi(ip,allowip1,allowip2)
centang redup(4)
checkip=salah
ipstr=belah(ip,.)
izinkan1=pisah(izinkan1,.)
izinkan2=pisah(izinkan2,.)
ifcint(allow1(0))>cint(allow2(0))then'' menentukan apakah segmen alamat IP legal
akses respon.writeForbidden
fungsi keluar
endif
fori=0toubound(ipstr)
ifcint(izinkan1(i))<cint(izinkan2(i))maka
ifcint(allow1(i))=cint(ipstr(i))maka
centang(i)=benar
cekip=benar
keluar untuk
kalau tidak
ifcint(ipstr(i))<cint(allow2(i))lalu
centang(i)=benar
cekip=benar
keluar untuk
kalau tidak
ifcint(ipstr(i))>cint(allow2(i))lalu
centang(i)=salah
checkip=salah
keluar untuk
kalau tidak
centang(i)=benar
cekip=benar
endif
endif
endif
kalau tidak
ifcint(allow1(i))>cint(ipstr(i))orcint(allow1(i))<cint(ipstr(i))lalu
centang(i)=salah
checkip=salah
ifi<>ubound(ipstr)lalu
keluar untuk
endif
kalau tidak
centang(i)=benar
endif
endif
Berikutnya
if(periksa(0)=benardanperiksa(1)=benardanperiksa(2)=benardanperiksa(3)=salah)dan(cint(izinkan2(2))>cint(ipstr(2)))maka
cekip=benar
endif
fungsi akhir
%>
Dikutip dari Blog WebShell