Imports System.Data.SqlClient Imports System.Data Partial Class Login Inherits System.Web.UI.Page Dim con As SqlConnection = New SqlConnection("Data Source=ML0003135586\SQLEXPRESS;Initial Catalog=ecom;Integrated Security=True") Dim sqlstr As String = String.Empty Protected Sub log_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles log.Click Dim strUserURL As String sqlstr = "SELECT * FROM [Users] WHERE ([Username]=@Username) AND ([Password]=@Password)" con.Open() Dim cmd As New SqlCommand(sqlstr, con) cmd.Parameters.AddWithValue("@Username", tbUser.Text) cmd.Parameters.AddWithValue("@Password", tbPass.Text) strUserURL = cmd.ExecuteScalar() con.Close() If strUserURL <> "" Then lblInvalid.Text = "" FormsAuthentication.SetAuthCookie(tbUser.Text, True) Session("username") = tbUser.Text Response.Redirect("Home.aspx") Else lblInvalid.Text = "Sorry... try again..." End If End Sub End Class
Partial Class Home Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim username As String = Session("username") Dim mpLabel As Label mpLabel = CType(Page.Master.FindControl("lblName"), Label) username = "" + mpLabel.Text End Sub End Class
Dim str As String str = Convert.ToString(Session("username")) lblName.Text = str
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)