ASPのコードを作成しましたが、環境テストのエージェント、ファーストレベルまたはマルチレベルエージェントはありません
function checkip（checkstring） '定期的に使用して、IPが合法かどうかを判断する
dim re1
re1 = new regexpを設定します
re1.pattern =^[0-9] {0-9] {0-9}
re1.global = false
re1.ignorecase = false
checkip = re1.test（checkstring）
re1 =何も設定しません
エンド関数
関数get_cli_ip（） '実際のIP関数を取得するには、最初のhttp_client_ip、次にhttp_x_forwardeded_for、そしてremote_addr
dim 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 = trim（myarray（0））
checkip（client_ip）= trueの場合
get_cli_ip = client_ip
出口機能
ifを終了します
ifを終了します
get_cli_ip = request.servervariables（remote_addr）
ifを終了します
エンド関数