<٪
''
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 地址段是否合法
استجابة. "禁止访问"
exitfunction
Endif
fori = 0toubound (IPSTR)
IFCINT (left1 (i)) <cint (left2 (i)) ثم
IFCINT (awret1 (i)) = cint (ipstr (i)) ثم
تحقق (i) = صحيح
cadcip = صحيح
الخروج
آخر
IFCINT (IPSTR (I)) <cint (left2 (i)) ثم
تحقق (i) = صحيح
cadcip = صحيح
الخروج
آخر
IFCINT (IPSTR (I))> cint (left2 (i)) ثم
تحقق (i) = خطأ
cadcip = خطأ
الخروج
آخر
تحقق (i) = صحيح
cadcip = صحيح
Endif
Endif
Endif
آخر
IFCINT (left1 (i))> cint (IPSTR (i)) orcint (left1 (i)) <cint (ipstr (i)) ثم
تحقق (i) = خطأ
cadcip = خطأ
ifi <> ubound (IPSTR) ثم
الخروج
Endif
آخر
تحقق (i) = صحيح
Endif
Endif
التالي
if (check (0) = trueandcheck (1) = trueandcheck (2) = trueandcheck (3) = false) و (cint (left2 (2))> cint (ipstr (2))) ثم
cadcip = صحيح
Endif
الوظيفية
٪>