出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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文を使うということに
なると思います。

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

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

がんばってみてください。
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]

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