<％
'*******************************
'機能：getUsertrueip（）
'パラメーター：なし
著者：アリクシ
'日付：2007/7/13
'説明：ユーザーの実際のIPを取得しますが、プロキシアドレスに対しても有効です。返品値：テキストタイプIPアドレス
'例：<％= getUserTrueIp（）％>
'*******************************
functiongetusertrueip（）
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
getusertrueip =トリム（mid（stripaddr、1,30））
エンド機能
％>