防犯や防災時に役立グッズが多数 「備えて安心グッズのお店」
お得なわけあり商品を多数取り揃え 「訳ありお得館」
厳選デジタルグッズのお店 「おもしろデジモノのデジモノ屋」
厳選食品お取り寄せのお店 「まんぷく屋」
美と健康を考えるお店 「La beaut」
ログイン処理 ― 2009年12月17日 12時24分29秒
準備が整ったので、ログイン処理を作っていきたいと思います。
SQLServerに管理者テーブルをつくり、チェックを行います。
まず、SQLのコーディングですが、
「管理者」テーブルから「user_id」と「pass」で存在チェックを行います。
***************************************************
Dim stSQL As String
stSQL = "SELECT * from 管理者 " & _
"WHERE user_id = '" & userid.Replace("'", "''") & _
"' AND pass = '" & password.Replace("'", "''") & "'"
***************************************************
SQLを実行させるためのプログラムが下記になります。
***************************************************
Dim cn As String = System.Configuration.ConfigurationManager.ConnectionStrings("db").ConnectionString
Using connection As New SqlConnection(cn)
Dim command As New SqlCommand(stSQL, connection)
connection.Open()
Try
Dim dr As SqlDataReader = command.ExecuteReader
If dr.Read Then
staffid = dr("user_id")
staffname = dr("name")
End If
Catch ex As Exception
End Try
connection.Close()
End Using
***************************************************
Web.configに登録したデータソース「db」を使って、データベースへの接続を行います。
コネクションをオープンして読み込みし、データがあれば、名前を保存しています。
このあと情報があれば、メニュー表示、なければログイン画面にエラーを表示しています。
情報がある場合にはセッションに名前を登録して、メニュー画面にリダイレクトします。
***************************************************
Session("StaffName") = staffname
Response.Redirect("menu.aspx")
***************************************************
これでログインができるようになりました。
SQLServerに管理者テーブルをつくり、チェックを行います。
まず、SQLのコーディングですが、
「管理者」テーブルから「user_id」と「pass」で存在チェックを行います。
***************************************************
Dim stSQL As String
stSQL = "SELECT * from 管理者 " & _
"WHERE user_id = '" & userid.Replace("'", "''") & _
"' AND pass = '" & password.Replace("'", "''") & "'"
***************************************************
SQLを実行させるためのプログラムが下記になります。
***************************************************
Dim cn As String = System.Configuration.ConfigurationManager.ConnectionStrings("db").ConnectionString
Using connection As New SqlConnection(cn)
Dim command As New SqlCommand(stSQL, connection)
connection.Open()
Try
Dim dr As SqlDataReader = command.ExecuteReader
If dr.Read Then
staffid = dr("user_id")
staffname = dr("name")
End If
Catch ex As Exception
End Try
connection.Close()
End Using
***************************************************
Web.configに登録したデータソース「db」を使って、データベースへの接続を行います。
コネクションをオープンして読み込みし、データがあれば、名前を保存しています。
このあと情報があれば、メニュー表示、なければログイン画面にエラーを表示しています。
情報がある場合にはセッションに名前を登録して、メニュー画面にリダイレクトします。
***************************************************
Session("StaffName") = staffname
Response.Redirect("menu.aspx")
***************************************************
これでログインができるようになりました。
コメント
トラックバック
このエントリのトラックバックURL: http://n-box.asablo.jp/blog/2009/12/17/4760802/tb
※なお、送られたトラックバックはブログの管理者が確認するまで公開されません。
コメントをどうぞ
※メールアドレスとURLの入力は必須ではありません。 入力されたメールアドレスは記事に反映されず、ブログの管理者のみが参照できます。
※なお、送られたコメントはブログの管理者が確認するまで公開されません。