<％
'*******************************
'関数：userip（）
'パラメーター：なし
著者：アリクシ
'日付：2007/7/12
'説明：クライアントIPアドレスを取得します
'例：<％= userip（）％>
'*******************************
functionuserip（）
dimetclientip
'クライアントがプロキシサーバーを使用する場合、serverVariables（ "http_x_forwarded_for"）メソッドを使用する必要があります
getClientIP = request.servervariables（ "http_x_forwarded_for"）
ifgetClientIp = "" orisnull（getClientIP）orisempty（getClientIP）then
'クライアントがプロキシを使用しない場合、request.servervariables（ "remote_addr"）メソッドを使用する必要があります
getClientIP = request.servervariables（ "remote_addr"）
endif
userip = getClientIP
エンド機能
％>
IPアドレス機能を変換します
コードコピーは次のとおりです。
<％
'*******************************
'機能：CIP（SIP）
'パラメーター：SIP、IPアドレス
著者：アリクシ
'日付：2007/7/12
'説明：IPアドレス機能を変換します
'例：<％= cip（ "219.16.73.120"）％>
'*******************************
functioncip（sip）
TIP = CSTR（SIP）
sip1 = left（tip、cint（stip、 "。"）-1））
tip = mid（tip、cint（stip、 "。"）+1））
sip2 = left（tip、cint（stip、 "。"）-1））
tip = mid（tip、cint（stip、 "。"）+1））
sip3 = left（tip、cint（stip、 "。"）-1））
sip4 = mid（tip、cint（stip、 "。"）+1））
cip = cint（sip1）*256*256*256+cint（sip2）*256+cint（sip3）*256+cint（sip4）
エンド機能
％>