最も単純な文は、次を使用することです。
ip = request.servervariables（ "remote_addr"）
Response.Write（IP）
ただし、この方法はプロキシサーバーがインターネットにアクセスするための正確ではないため、より包括的な方法は次の方法を使用することです。
コードコピーは次のとおりです。
<％privatefunctiongetip（）
dimstripaddr
ifrequest.servervariables（ "http_x_forwarded_for"）= "" orinst（request.servervariables（ "http_x_forwarded_for"）、 "nown"）> 0 -then
StripAddr = request.servervariables（ "remote_addr"）
elseifinstr（request.servervariables（ "http_x_forwarded_for"）、 "、"）> 0then
Stripaddr = Mid（request.servervariables（ "http_x_forwarded_for"）、1、strument（request.servervariables（ "http_x_forwarded_for"）、 "、"） - 1）
elseifinstr（request.servervariables（ "http_x_forwarded_for"）、 ";"）> 0then
Stripaddr = Mid（request.servervariables（ "http_x_forwarded_for"）、1、strument（request.servervariables（ "http_x_forwarded_for"）、 ";"） - 1）
それ以外
StripAddr = request.Servervariables（ "http_x_forwarded_for"）
endif
getIP =トリム（MID（StripAddr、1,30））
エンド機能
ip = getIp（）
Response.Write（IP）
％>