ASP.NETでIPアドレスログイン管理を教えてください

2007/09/24 02:10

このQ&Aのポイント

現在、クライアントのIPアドレスを取得してSQLServerテーブルでログイン管理をするWebを作成したい
ASP.NET自体あまり理解できておらず、困っている
VBコードでIPアドレスを取得し、SQL Serverに接続後にエラーメッセージとメインページ表示を分岐したいが、分からない

ASP.NETでIPアドレスログイン管理を教えてください

こんばんわ。現在、クライアントのIPアドレスを取得してSQLServerテーブルでログイン管理をするWebを作成したいと思っております。ずっと調べていたのですが分からず、実はまだASP.NET自体あまり理解できておりません。書籍などで勉強してから投稿しろ！と思われるかもしれませんが時間がなく困っています。どうかご教示を宜しくお願い致します。わかる範囲で.vbにコードを書いてみましたがIPアドレスを取得してSQL　Serverに接続後にIF文でエラーメッセージとメインページ表示を分岐したいのですが分らないのです。。。 Partial Class INDEX Inherits System.Web.UI.Page Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load 'ページを初期化するユーザーコードをここに挿入します。 If Not IsPostBack Then '---------IPアドレス取得--------------- Dim strHost As String Dim ip As System.Net.IPHostEntry Dim ipAddr As System.Net.IPAddress 'ホスト名を取得 strHost = System.Net.Dns.GetHostName() 'IPリストを取得 ip = System.Net.Dns.GetHostByName(strHost) 'IPリストの最初を取得 ipAddr = ip.AddressList(0) '---------SQL接続--------------- Dim cn As SqlConnection = New SqlConnection("Server=servername;database=data;UID=id;PWD=pass") Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM IPAdd WHERE IP='" & ipAddr & "' AND Authority1='True'") cn.Open() Dim reader As SqlDataReader = cmd.ExecuteReader() DemoGrid.DataSource = reader DataBind() reader.Close() cn.Close() End If End Sub End Class

earlgyreprince
お礼率47% (147/310)

Microsoft ASP
回答数4
ありがとう数4

みんなの回答 （4）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

redfox63
ベストアンサー率71% (1325/1856)

2007/09/28 09:52 回答No.4

ASPと違ってvbファイル内にHTMLコードを直書きしてもページには反映されません # やってやれないことは無いのですが ... 適切なページへ遷移する方法を考えたほうが良いように思いますもしテスト的にやりたいのであれば Loadイベントで判断だけしてフラグをセットします LoadComplateイベントでフラグを判断材料にしてResponse.Writeを使ってHTMLを吐き出すとかログインのコントロールならツールボックスの中の『ログイン』グループにあるコントロールを使うことをお勧めします Framsetは ASP.NETと相性がよくありませんパネルコントロールなどを使ってフレーム分けしたほうが良いように思います .NET Framework SDKの『QuickStartチュートリアル』をインストールして基本的な使い方を学習しましょう

質問者

お礼 2007/09/29 14:35

>Framsetは ASP.NETと相性がよくありませんそうなんですか？パネルコントロールが分からないのですが調べてみます！ >.NET Framework SDKの『QuickStartチュートリアル』をインストール>>して基本的な使い方を学習しましょうもう１度勉強し直します。ご教示いただきましてありがとうございました☆

その他の回答 (3)

redfox63
ベストアンサー率71% (1325/1856)

2007/09/26 17:07 回答No.3

回避出来ると思いますよちょっと間違ってましたけど … 正解は Imports System.Data.SqlClient でした DataとSqlClientの間に『.』が必要でしたエラー等はまず自分で調べるといった姿勢が必要ですよ MicrosoftのMSDNライブラリーーなどで …

参考URL：: http://msdn2.microsoft.com/ja-jp/library/default.aspx

質問者

補足 2007/09/27 14:41

ありがとうございます！ >エラー等はまず自分で調べるといった姿勢が必要ですよおっしゃる通りです。すみません。今回、ご教示頂いたアドバイスを元に自分なりに投稿通りのコードを作ってみましたので見て頂けますでしょうか？ HTML部分の表示はvb内では使えないのでしょうか？また、おかしいとお気づきの部分がありましたらご指導願います。本当に何度も申し訳ございませんが何卒、宜しくお願い致します。 -------------------ソース--------------------- Imports System Imports System.Data Imports System.Data.SqlClient Imports Microsoft.VisualBasic Imports System.Text Partial Class INDEX Inherits System.Web.UI.Page Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Run() End Sub Public Sub Run() '------------- IPアドレス取得 -------------- Dim ipAddr As String ipAddr = Request.UserHostAddress '------------- SQL Server Connection -------------- Dim myDataReader As SqlDataReader Dim mySqlConnection As SqlConnection Dim mySqlCommand As SqlCommand mySqlConnection = New SqlConnection("Server=SQL;database=Web;UID=id;PWD=pass") mySqlCommand = New SqlCommand("SELECT * FROM IPAdd WHERE IPAddress='" & ipAddr & "' AND Authority1='True'") mySqlConnection.Open() myDataReader = mySqlCommand.ExecuteReader(CommandBehavior.CloseConnection) Do While (myDataReader.Read()) Loop If Not (myDataReader Is Nothing) Then <CENTER> <h2>この端末からは閲覧できません。</h2> Else <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <META http-equiv="Content-Style-Type" content="text/css"> <TITLE>メイン</TITLE> </HEAD> <FRAMESET rows="97,*" border="0" frameborder="0"> <FRAME src="Title.html" name="ue" scrolling="no" /> <FRAMESET cols="50%,*" border="0" frameborder="0"> <FRAME src="Left.html" name="hidari" /> <FRAME src="Right.html" name="migi" /> </frameset> </body> </html> End If myDataReader.Close() mySqlConnection.Close() End Sub End Class

redfox63
ベストアンサー率71% (1325/1856)

2007/09/24 16:52 回答No.2

波線が表示されているのであれば参照設定を確認してみましょう Systemからの完全修飾名で記述してOKなら Importsステートメントを追加することで回避が可能です SQL関連なら Imports System.DataSqlClient をVBファイルの先頭付近に記述してみましょう IDEの表示 > エラー一覧などでエラーになっている箇所の詳細を確認できると思いますよ EEは使ってないのでこの機能が無いかもしれませんが …

質問者

補足 2007/09/25 14:06

ありがとうございます。波線のアプリケーションを実行するとコンパイルエラーができました。 '/webap' アプリケーションでサーバーエラーが発生しました。 -------------------------------------------------------------------------------- コンパイルエラー説明: この要求を送信するために必要なリソースをコンパイル中に、エラーが発生しました。以下のエラーの詳細を確認して、ソースコードを修正してください。コンパイルエラーメッセージ: BC30002: 型 'SqlConnection' が定義されていません。ソースエラー: 行 14: 'sqlConnectionオブジェクトを作成します。行 15: '使用環境に応じて接続文字列を変更します。行 16: Dim cn As SqlConnection = New SqlConnection("Server=servername;database=data;UID=id;PWD=pass") 行 17: Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM IPAdd WHERE IP='" & ipAddr & "' AND Authority1='True'") 行 18: ソースファイル: \\server\web\test\web\webap\INDEX.aspx.vb 行: 16 -------------------------------------------------------------------------------- バージョン情報: Microsoft .NET Framework バージョン:2.0.50727.42; ASP.NET バージョン:2.0.50727.210 です。 Imports System.DataSqlClient をVBファイルの先頭付近に記述すれば回避できるのでしょうか？ご教示宜しくお願い致します。

redfox63
ベストアンサー率71% (1325/1856)

2007/09/24 10:11 回答No.1

クライアントのIPアドレスの取得には HttpRequestのUserHostAddressを使ったほうが良いと思いますよ Dns.GetHostNameではWebサーバーのIPが取得されるだけだと思います dim ipAddr as String ipAddr = Request.UserHostAddress といった具合です

質問者

補足 2007/09/24 13:52

redfox63さんありがとうございます！変更してみます☆ SQL Serverの接続コードは正しいのでしょうか？ WebDeveloperでは Dim cn As SqlConnection = New SqlConnection・・・ Dim cmd As SqlCommand = New SqlCommand・・・２個所に波線が表示されるので気になりました。よろしくお願い致します。

ASP.NETでIPアドレスログイン管理を教えてください

ASP.NETでIPアドレスログイン管理を教えてください