<％
'*********************************************************************************
'IPアドレスを取得します
'*********************************************************************************
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アドレスを変換します
'*********************************************************************************
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）
エンド機能
'*********************************************************************************
'ダイアログボックスがポップアップします
'*********************************************************************************
サブアラート（メッセージ）
メッセージ=交換（メッセージ、 "'"、 "/'"）
respons.write（ "<script> alert（ '"＆message＆ "'）</script>"）
Endingub
'*********************************************************************************
'前のページに戻ります。通常、情報が完全に送信されるかどうかを判断した後に使用されます
'*********************************************************************************
subgoback（）
respons.write（ "<script> history.go（-1）</script>"）
Endingub
'*********************************************************************************
'別の接続をリダイレクトします
'*********************************************************************************
subgo（url）