Fungsi Batas Penyaringan untuk IP di ASP
<%
'Dapatkan alamat pengunjung
ip = request.serverVariable ("remote_addr")
'Segmen alamat IP yang diizinkan adalah 10.0.0.0 ~ 10.68.63.255
allowip1 = "10.0.0.0"
allowip2 = "10.68.10.71"
response.writecheckip (IP, izin, izin)
FunctionCheckip (IP, Allowip1, Allowip2)
DiMCheck (4)
checkip = false
ipstr = split (ip, ".")
Idlow1 = split (allowip1, ".")
Izin2 = split (ijinkan2, ".")
ifcint (izin1 (0))> cint (izin2 (0)) lalu
'Cukup tentukan apakah segmen alamat IP legal
response.write "Ada kesalahan dalam segmen alamat IP!"
fungsi keluar
endif
fori = 0toubund (ipstr)
ifcint (izin1 (i)) <cint (izin2 (i)) lalu
ifcint (izin1 (i)) = cint (ipstr (i)) lalu
periksa (i) = true
checkip = true
keluar
elseifcint (ipstr (i)) <cint (izin2 (i)) lalu
periksa (i) = true
checkip = true
keluar
elseifcint (ipstr (i))> cint (izin2 (i)) lalu
periksa (i) = false
checkip = false
keluar
kalau tidak
periksa (i) = true
checkip = true
endif
endif
endif
elseifcint (izin1 (i))> cint (ipstr (i)) orcint (izin1 (i)) <cint (ipstr (i)) lalu
periksa (i) = false
checkip = false
ifi <> ubund (ipstr) lalu
keluar
endif
kalau tidak
periksa (i) = true
endif
endif
Berikutnya
if (check (0) = trueandcheck (1) = trueandcheck (2) = trueandcheck (3) = false) dan (cint (izin2 (2))> cint (ipstr (2))) kemudian
checkip = true
endif
fungsi endfungsi
%>
<%
'Enum semua nilai yang dikirimkan menggunakan formulir html
ForeachiteminRequest.form
Response.writerquest.form (item)
Berikutnya
%>
Sebutkan semua nilai yang dikirimkan menggunakan formulir HTML
Gunakan ASP untuk mendapatkan ukuran gambar
<%
imgpath = "default_22.gif"
setpp = newImginfo
w = pp.imgw (server.mappath (imgpath))
h = pp.imgh (server.mappath (imgpath)))
setpp = tidak ada
response.write "<imgsrc = '" & imgpath & "' border = 0> <br> lebar:" & w & "; tinggi:" & h
Classimginfo
Dimaso
Privatesubclass_initialize
setaso = createObject ("adodb.stream")
aso.mode = 3
aso.type = 1
aso.open
Endsub
Privatesubclass_terminate
err.clear
setaso = tidak ada
Endsub
PrivateFunctionBin2str (Bin)
Dimi, str