وظيفة الحد من الدالة لـ IP في ASP
<٪
احصل على عنوان الزائر
IP = request.ServerVariables ("REMOTE_ADDR")
مقاطع عنوان IP المسموح بها هي 10.0.0.0 ~ 10.68.63.255
leftip1 = "10.0.0.0"
leftip2 = "10.68.10.71"
استجابة. WriteCheckip (IP ، lelhip1 ، letaiP2)
functionCheckip (IP ، lelhip1 ، letaiP2)
Dimcheck (4)
cadcip = خطأ
IPSTR = split (IP ، ".")
left1 = split (letaiP1 ، ".")
السماح 2 = انقسام (lelhip2 ، ".")
IFCINT (ALWER1 (0))> CINT (ALWER2 (0)) ثم
فقط حدد ما إذا كان قطاع عناوين IP قانونيًا
استجابة. الكتابة "هناك خطأ في قطاع عنوان IP!"
exitfunction
Endif
fori = 0toubund (IPSTR)
IFCINT (left1 (i)) <cint (left2 (i)) ثم
IFCINT (awret1 (i)) = cint (ipstr (i)) ثم
تحقق (i) = صحيح
cadcip = صحيح
الخروج
elseifcint (IPSTR (i)) <cint (left2 (i)) ثم
تحقق (i) = صحيح
cadcip = صحيح
الخروج
elseifcint (IPSTR (i))> cint (left2 (i)) ثم
تحقق (i) = خطأ
cadcip = خطأ
الخروج
آخر
تحقق (i) = صحيح
cadcip = صحيح
Endif
Endif
Endif
elseifcint (left1 (i))> cint (ipstr (i)) orcint (left1 (i)) <cint (ipstr (i)) ثم
تحقق (i) = خطأ
cadcip = خطأ
ifi <> ubund (IPSTR) ثم
الخروج
Endif
آخر
تحقق (i) = صحيح
Endif
Endif
التالي
if (check (0) = trueandcheck (1) = trueandcheck (2) = trueandcheck (3) = false) و (cint (left2 (2))> cint (ipstr (2))) ثم
cadcip = صحيح
Endif
الوظيفية
٪>
<٪
"تعويض جميع القيم المقدمة باستخدام نموذج HTML
foreachiteminrequest.form
استجابة. writerequest.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
ديماسو
privatesubclass_initialize
setaso = createObject ("adodb.stream")
aso.mode = 3
aso.type = 1
ASO.Open
ينتهي
privatesubclass_terminate
err.clear
setaso = لا شيء
ينتهي
PrivateFunctionBin2str (BIN)
ديمي ، شارع