<%
'*********************************************************************************
'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)