{"id":1990,"date":"2012-03-30T15:12:12","date_gmt":"2012-03-30T19:12:12","guid":{"rendered":"http:\/\/www.iowawebnet.com\/ein\/?p=1990"},"modified":"2012-04-02T14:23:12","modified_gmt":"2012-04-02T18:23:12","slug":"vb-net-login-form-create-user-session","status":"publish","type":"post","link":"https:\/\/www.iowawebnet.com\/ein\/2012\/03\/vb-net-login-form-create-user-session\/","title":{"rendered":"VB.NET – Login form – create user session"},"content":{"rendered":"

This post will guide you through designing the login form with SQL backend and creating a user session.
\n
\nLearn more about new promotions<\/a>!
\nlogin.aspx<\/strong><\/p>\n

\n
\r\nlogin.aspx (markup code)\r\n\r\n<%@ Page Title=\"\" Language=\"VB\" MasterPageFile=\"~\/Default.Master\" \r\nAutoEventWireup=\"false\" CodeFile=\"login.aspx.vb\" Inherits=\"_login\" %>\r\n<asp:Content ID=\"HeaderContent\" runat=\"server\" \r\nContentPlaceHolderID=\"HeadContent\">\r\n<\/asp:Content>\r\n<asp:Content ID=\"BodyContent\" runat=\"server\" \r\nContentPlaceHolderID=\"MainContent\" >\r\n\r\n<table border=\"0\" cellpadding=\"1\" cellspacing=\"0\">\r\n   <tr>\r\n      <td colspan=\"2\">Login:<\/td>\r\n   <\/tr>\r\n   <tr>\r\n      <td colspan=\"2>\r\n     <br \/>\r\n     <asp:label ID=\"ssError\" runat=\"server\"><\/asp:label><\/td>\r\n     <\/tr>\r\n     <tr>\r\n      <td align=\"right\">Username: <\/td>\r\n      <td>\r\n      <asp:textbox ID=\"usn\" runat=\"server\" ToolTip=\"username\" \r\n      CssClass=\"loginBox\" ><\/asp:textbox>\r\n      <asp:requiredfieldvalidator ID=\"RVusn\" runat=\"server\"\r\n      ErrorMessage=\"*\" ControlToValidate=\"usn\" >\r\n      <\/asp:requiredfieldvalidator><\/td>\r\n   <\/tr>\r\n   <tr>\r\n       <td align=\"right\">Password: \r\n       <td>\r\n       <asp:textbox ID=\"pwd\" runat=\"server\" TextMode=\"Password\" \r\n       ToolTip=\"password\" CssClass=\"loginBox\" ><\/asp:textbox>\r\n      <asp:requiredfieldvalidator ID=\"RVpwd\" runat=\"server\"\r\n      ErrorMessage=\"*\" ControlToValidate=\"pwd\">\r\n      <\/asp:requiredfieldvalidator><\/td>\r\n   <\/tr>\r\n   <tr>\r\n      <td colspan=\"2\"> <\/td>\r\n   <\/tr>\r\n   <tr>\r\n      <td colspan=\"2\" class=\"text\">\r\n      <asp:imagebutton ID=\"Login\" runat=\"server\" \r\n      ImageURL=\"\/images\/buttons\/btn_signin.gif\" \/>\r\n      <\/td>\r\n   <\/tr>\r\n <\/table>\r\n<\/div>\r\n<\/asp:Content>\r\n<\/code>\r\nlogin.aspx.vb (code behind)\r\n\r\nImports System.IO\r\nImports System.Data.OleDb\r\nImports System.Web.UI.WebControls.ImageButton\r\nImports System.Web.UI.WebControls.TextBox\r\nImports System.Web.SessionState\r\nImports System.Web.Security\r\nImports System.Web\r\nPartial Class _ss_login\r\n  Inherits System.Web.UI.Page\r\n   Protected Sub Login_Click(ByVal sender As Object, _\r\n     _ByVal e As System.Web.UI.ImageClickEventArgs)\r\n              Handles Login.Click\r\n     '\/ defining variables\/controls\r\n      Dim usn As TextBox\r\n      Dim pwd As TextBox\r\n\r\n      'binding controls\r\n       usn = Login.FindControl(\"usn\")\r\n       pwd = Login.FindControl(\"pwd\")\r\n\r\n       Dim user As String\r\n       Dim key As String\r\n       user = usn.Text.ToString()\r\n       key = pwd.Text.ToString()\r\n       \r\n   'encrypt password\r\n    Dim sha1Obj As _\r\n    New System.Security.Cryptography.SHA1CryptoServiceProvider\r\n     Dim bytesToHash() As _\r\n       _Byte = System.Text.Encoding.ASCII.GetBytes(key)\r\n    bytesToHash = sha1Obj.ComputeHash(bytesToHash)\r\n\r\n    Dim keyCode As String = \"\"\r\n    For Each b As Byte In bytesToHash\r\n        keyCode += b.ToString(\"x2\")\r\n     Next\r\n\r\n     '\/ sql oledb connection * you can define your own sql connection\r\n     Dim ConnDB As_\r\n       _New OleDbConnection(\"Provider=sqloledb;Data Source=mySqlServer;\r\n     Initial Catalog=mySqlDB;Persist Security Info=True;_\r\n       _User ID=myUsr;Password=myPwd\")\r\n     Dim cmd As New OleDbCommand(\"SELECT * FROM ss_users WHERE \r\n                                (u_user_name = '\" & usn.Text.ToString() & \"')\r\n                                AND\r\n                                (u_password = '\" & keyCode & \"');\", ConnDB)\r\n     Dim reader As OleDbDataReader\r\n\r\n     Try\r\n       '\/ open connection\r\n       cmd.Connection.Open()\r\n       reader = cmd.ExecuteReader()\r\n       If reader.Read() Then\r\n         'create sessions\r\n          Session(\"Name\") = reader(6).ToString()\r\n          Session(\"ID\") = reader(0).ToString()\r\n          Session(\"LastLogIn\") = reader(11).ToString()\r\n          Response.Redirect(\"default.aspx\")  'page of your choice\r\n       Else\r\n          ssError.Text = (\"Error - please try again.<\/font>\")\r\n       End If\r\n       cmd.Connection.Close()\r\n       Catch ex As Exception\r\n          ssError.Text = \"Error:<\/font> \" & ex.Message.ToString()\r\n       End Try\r\n    End Sub\r\nEnd Class\r\n<\/code>\r\n<\/pre>\n<\/blockquote>\n
Related posts:
\nEnd User Session<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
This post will guide you through designing the login form with SQL backend and creating a user session. Learn more about new promotions! login.aspx login.aspx (markup code) <%@ Page Title=”” Language=”VB” MasterPageFile=”~\/Default.Master” AutoEventWireup=”false” CodeFile=”login.aspx.vb” Inherits=”_login” %> <asp:Content ID=”HeaderContent” runat=”server” ContentPlaceHolderID=”HeadContent”> <\/asp:Content> <asp:Content ID=”BodyContent” runat=”server” ContentPlaceHolderID=”MainContent” > <table border=”0″ cellpadding=”1″ cellspacing=”0″> <tr> <td colspan=”2″>Login:<\/td> <\/tr> <tr> […]<\/p>\n","protected":false},"author":35,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17],"tags":[],"class_list":["post-1990","post","type-post","status-publish","format-standard","hentry","category-applications"],"_links":{"self":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1990"}],"collection":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/users\/35"}],"replies":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/comments?post=1990"}],"version-history":[{"count":37,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1990\/revisions"}],"predecessor-version":[{"id":2027,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/1990\/revisions\/2027"}],"wp:attachment":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/media?parent=1990"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/categories?post=1990"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/tags?post=1990"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}