ฟังก์ชั่นขีด จำกัด การกรองสำหรับ IP ใน ASP
-
'รับที่อยู่ของผู้เข้าชม
ip = request.serverVariables ("remote_addr")
'ส่วนที่อยู่ IP ที่อนุญาตคือ 10.0.0.0 ~ 10.68.63.255
lewelip1 = "10.0.0.0"
อนุญาตให้ ALLEWIP2 = "10.68.10.71"
Response.writeCheckip (IP, NowlIP1, อนุญาต 2)
functionCheckip (IP, อนุญาตให้อนุญาตให้อนุญาต 2)
Dimcheck (4)
CETURCIP = FALSE
iPSTR = split (ip, ".")
อนุญาต 1 = แยก (อนุญาตให้ใช้ ",". ")
allow2 = split (leweip2, ".")
IFCINT (อนุญาต 1 (0))> CINT (อนุญาต 2 (0)) จากนั้น
'เพียงตรวจสอบว่าส่วนที่อยู่ IP นั้นถูกกฎหมายหรือไม่
Response.write "มีข้อผิดพลาดในเซ็กเมนต์ที่อยู่ IP!"
exitfunction
endif
fori = 0toubund (ipstr)
IFCINT (อนุญาต 1 (i)) <CINT (อนุญาต 2 (i)) แล้ว
IFCINT (อนุญาต 1 (i)) = CINT (iPSTR (i)) แล้ว
ตรวจสอบ (i) = จริง
CHECT = TRUE
ออกจาก
elseifcint (ipstr (i)) <cint (lewale2 (i)) จากนั้น
ตรวจสอบ (i) = จริง
CHECT = TRUE
ออกจาก
elseifcint (ipstr (i))> cint (lewale2 (i)) จากนั้น
ตรวจสอบ (i) = เท็จ
CETURCIP = FALSE
ออกจาก
อื่น
ตรวจสอบ (i) = จริง
CHECT = TRUE
endif
endif
endif
elseifcint (อนุญาต 1 (i))> cint (ipstr (i)) orcint (allow1 (i)) <cint (ipstr (i)) จากนั้น
ตรวจสอบ (i) = เท็จ
CETURCIP = FALSE
ifi <> ubund (iPSTR) แล้ว
ออกจาก
endif
อื่น
ตรวจสอบ (i) = จริง
endif
endif
ต่อไป
if (ตรวจสอบ (0) = TrueAndCheck (1) = TrueAndCheck (2) = TrueAndCheck (3) = FALSE) และ (CINT (อนุญาต 2 (2))> CINT (IPSTR (2)))
CHECT = TRUE
endif
endfunction
-
-
'enum ค่าทั้งหมดที่ส่งโดยใช้แบบฟอร์ม HTML
foreachiteminrequest.form
Response.writequest.form (รายการ)
ต่อไป
-
แสดงรายการค่าทั้งหมดที่ส่งโดยใช้แบบฟอร์ม HTML
ใช้ ASP เพื่อรับขนาดภาพ
-
imgPath = "default_22.gif"
setpp = newimginfo
w = pp.imgw (Server.Mappath (IMGPath)))
h = pp.imgh (server.mappath (imgpath))
setpp = ไม่มีอะไร
Response.write "<imgsrc = '" & imgpath & "' border = 0> <br> ความกว้าง:" & w & "; สูง:" & h
classimginfo
dimaso
Privatesubclass_initialize
setaso = createObject ("adodb.stream")
aso.mode = 3
aso.type = 1
aso.open
enddub
privateSubclass_terminate
err.lear
setaso = ไม่มีอะไร
enddub
PrivateFunctionBin2str (bin)
Dimi, Str