出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
IPアドレス。。 　 葵さん [2001/10/12 4:10:18] [710]
　 Re:IPアドレス。。 　 Tomitomiさん [2001/10/12 13:29:32] [712]
　 　 Re:IPアドレス。。 　 葵さん [2001/10/13 1:04:41] [721]
　 　 　 Re:IPアドレス。。 　 Tomitomiさん [2001/10/15 11:41:02] [732]
[710] IPアドレス。。
投稿者：葵さん 2001/10/12 4:10:18
ASPでIPアドレスを取得し、特定のIPアドレスの人しかブラウザを見れないようにすることが可能らしいのですが・・いまいちそのプログラムが書けません。参考になる意見だったりアドバイスだったり・・誰かわかる方いらっしゃいませんか？
[712] Re:IPアドレス。。
投稿者：Tomitomiさん 2001/10/12 13:29:32
Tomitomiです。
以下のような感じですかな？
動作テストしてないのでエラーになるかも。

> ASPでIPアドレスを取得し、特定のIPアドレスの人しかブラウザを見れないようにすることが可能らしいのですが・・いまいちそのプログラムが書けません。参考になる意見だったりアドバイスだったり・・誰かわかる方いらっしゃいませんか？

<%
'======================================================================
DIM IP
'IPアドレスを取得
IP = Request.ServerVariables("REMOTE_ADDR")

'IPアドレスのチェック＊192.168.111.1以外ならYahoo!!へ移動
IF IP <> "192.168.111.1" THEN
'該当アドレス以外の場合の処理
Response.Redirect "http://www.yahoo.co.jp/"
END IF
'=========================================================================
%>
<html><head>
[721] Re:IPアドレス。。
投稿者：葵さん 2001/10/13 1:04:41
そうなんですまだASP学び初めて日が浅いのであんまりむずかしいこと言えないんですけど・・IF文使ってって言うのは私も思いついてやってみたのですが・・。何時から何時の間はこのIPの人しか見れないっていうようなものを書きたいのですが・・。IF文以外って思いつかないのですが・・あるんでしょうか？Tomitomiさんの書いたプログラムすごく参考になります。私の何か少しうまく動作しなかったので(汗)ありがとうございます。
[732] Re:IPアドレス。。
投稿者：Tomitomiさん 2001/10/15 11:41:02
おはようございます。
Tomitomiです。

> 何時から何時の間はこのIPの人しか見れないっていうようなものを書きたいのですが・・。IF文以外って思いつかないのですが・・あるんでしょうか？

時間もあるのですね。
時間も判定するとすると、SELECT CASE文もからませたほうがいいかも？

'================================================================
DIM IP
'IPアドレスを取得
IP = Request.ServerVariables("REMOTE_ADDR")

Dim sTime
'現在時刻を24時間形式で取得
sTime = FormatDateTime(Now(),4)

SELECT CASE true
　　'9時から12時までの処理
　　CASE "09:00" < sTime and "12:00" > sTime

　　　'IPアドレスの範囲が、192.168.111.*　の場合
　　　　IF left(IP,12) <> "192.168.111." THEN
　　　　　'該当アドレス以外の場合の処理
　　　　　Response.Redirect "http://www.yahoo.co.jp/"
　　　　End IF

　　'12時から14時までの処理
　　CASE "12:00" < sTime and "14:00" > sTime

　　　　上記と同等のIF文など

　　'14時から16時までの処理
　　CASE "14:00" < sTime and "16:00" > sTime

　　　　上記と同等のIF文など
　
　　'16時から20時までの処理
　　CASE "16:00" < sTime and "20:00" > sTime

　　　　上記と同等のIF文など

　　'20時から23時までの処理
　　CASE "20:00" < sTime and "23:00" > sTime

　　　　上記と同等のIF文など

　　'上記以外の場合
　　CASE ELSE

　　　　上記と同等のIF文など

End SELECT
'=================================================================

てなかんじになると思いますが、IPの範囲などは、うまくIF文を使うということに
なると思います。

他に方法あるかもしれませんが、僕がやるならこういう感じになります。

あと、このスクリプトを複数ページに含める場合は、インクルードファイルにして、
読み込ませるほうが、楽で美しいと思います。

がんばってみてください。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ