実際の IP を取得するための ASP 用のコードを作成し、エージェントなし、1 レベルまたはマルチレベル エージェントの状況をテストする環境を使用しました。コピーされたコードは次のとおりです。
function checkip(checkstring)' 正規表現を使用して IP が正当かどうかを判断します
ディムレ1
set re1=新しい正規表現
re1.pattern=^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$
re1.global=false
re1.Ignorecase=false
checkip=re1.test(チェック文字列)
re1=何も設定しない
終了関数
次のようにコードをコピーします。
function get_cli_ip()'実際の IP 関数を取得します。最初に HTTP_CLIENT_IP、次に HTTP_X_FORWARDED_FOR、次に REMOTE_ADDR
薄暗い client_ip
checkip(Request.ServerVariables(HTTP_CLIENT_IP))=true の場合
get_cli_ip = checkip(Request.ServerVariables(HTTP_CLIENT_IP))
それ以外
MyArray = split(Request.ServerVariables(HTTP_X_FORWARDED_FOR),,)
ubound(MyArray)>=0 の場合、
client_ip = トリム(MyArray(0))
checkip(client_ip)=true の場合
get_cli_ip = クライアント_ip
終了関数
終了する場合
終了する場合
get_cli_ip = リクエスト.サーバー変数(REMOTE_ADDR)
終了する場合
終了関数