byzkxp2/15/2006http：//zkxp.cnblogs.com
'ブロックされたIPアドレス（セグメント）コレクション、アスタリスクはワイルドカードであり、通常、構成ファイルに保存されます。
<％
constbadipgroup = "220.200.59.136 | 220.205.168.141"
ifisforbidip（badipgroup）= truethen
Response.Write（getUserip＆ "IPアドレスがアクセスを禁止する"））
Response.End（）
endif
'****************************************************************
'パラメーターVBADIP：ブロックされるIPセグメント、IPアドレス収集、複数のIPアドレス（セグメント）を分離します|シンボル
「ブールに戻る：真のユーザーIPはブロックされた範囲です、偽は反対です
'****************************************************************
functionisforbidip（vbadip）
Dimcounter、Arrippart、Arrbadip、Arbadippart、i、j
arrbadip = split（vbadip、 "|"）
arrippart = split（getuserip（）、 "。"）
fori = 0toubound（arrbadip）
カウンター= 0
arrbadippart = split（arrbadip（i）、 "。"）
forj = 0toubound（arrippart）
if（arrbadippart（j））= "*" orcstr（arrippart（j））= cstr（arrbadippart（j））then
カウンター=カウンター+1
endif
次
ifcounter = 4then
isforbidip = true
exitFunction
endif
次
isforbidip = false
エンド機能
'***************
'クライアントIPアドレスに戻ります
'***************
functiongetuserip（）
ディミップ
ip = request.servervariables（ "http_x_forwarded_for"）
ifip = "" thenip = request.servervariables（ "remote_addr"）
getUserip = IP
エンド機能
％>