WebRessurs.no - Webprogrammering og ressurs innen ASP, ASP.NET, PHP, SQL, HTML, CSS, Javascript, XML, C#, VB, Flash mm.

KODE EKSEMPLER

ASP.net (199)

ASP 3.0 (111)

PHP (30)

HTML (66)

SQL (89)

CSS (46)

XML (7)

JavaScript (78)

Diverse kode (13)

ARTIKLER / RESSURSER

Programmering (22)

System og drift (15)

Trafikk og inntekt (11)

Guider og tips (22)

Nyttig lesestoff (23)

Web forum (604)

Link galleri (565)

KURS / TUTORIALS

ASP.NET kurs(5)

CSS kurs (2)

JQuery kurs (2)

FILM / MEDIA

Øk trafikken (8)

Facebook App. (4)

Microsoft CEO (6)

GRATIS SOFTWARE

Server & web

Internett & epost

Systemverktøy

Sikkerhet

Fildeling

Lyd & media

Diverse software

TJENESTER

Domenesalg

Metagenerator

Websikre farger

WebMail

ANNET

Bli medlem!

Siste innlegg

Gjestebok

Tips en venn

Kontakt oss

Forsiden

INTERNETT HASTIGHET

Login ved bruk av FormsAuthentication.SetAuthCookie og web.config

av Øyvind A. Isaksen

Det er flere måter å logge inn på. Denne metoden benytter FormsAuthentication.SetAuthCookie og web.config til å gjøre dette.

------------------------------
Code behind, login.aspx.vb
------------------------------

Imports System.Web.Security

Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
loginUser()
End Sub

Private Sub loginUser()
Dim intEmployeeID As Integer = validateUser(Me.txtUsername.Text, Me.txtPassword.Text)

If intEmployeeID > 0 Then
FormsAuthentication.SetAuthCookie(intEmployeeID.ToString(), False)
Response.Redirect("/crm/main.aspx")
Else
Me.lblMessage.Visible = True
Me.lblMessage.Text = "Feil brukernavn/passord!"
End If

End Sub

Function validateUser(ByVal InputUsername As String, ByVal InputPassword As String)
Dim result As Integer = 0
Dim varEmployeeID As Integer
Dim varUser, varPassword As String
Dim SQL As String = "select custID,employeeID from tblEmployee where email=@email and password=@password and active='1'"
Dim conn As New SqlConnection(variables.ConnString)
Dim cmd As New SqlCommand(SQL, conn)
Dim parameter1 As New SqlParameter("@email", InputUsername)
Dim parameter2 As New SqlParameter("@password", InputPassword)
cmd.Parameters.Add(parameter1)
cmd.Parameters.Add(parameter2)

Try
cmd.Connection.Open()
result = cmd.ExecuteScalar()

Dim objDR As SqlDataReader = cmd.ExecuteReader
While objDR.Read
Session("employeeID") = objDR("employeeID")
Response.Cookies("employeeID").Value = objDR("employeeID")
End While

Catch ex As Exception
Me.lblMessage.Visible = True
Me.lblMessage.Text = "En feil har oppstått!"
Finally
If conn.State = ConnectionState.Open Then conn.Close()
End Try

cmd.Dispose()
conn.Dispose()

Return result

End Function

------------------------------
Tilgang til brukerID ol
------------------------------

Slik får du tilgang til kundeID og brukerID fra koden over:

Response.Write("KundeID: " & User.Identity.Name & " ")
Response.Write("BrukerID: " & Session("employeeID") & " ")
Response.Write("BrukerID: " & Request.Cookies("employeeID").Value)

WebRessurs.no er utviklet og drives av SoftMaker
Sett som startside: [ ]. Bokmerk denne siden: [ klikk ]. Sitemap. http://twitter.com/webressurs_no/. Antall brukersesjoner: 14106161.
Copyright WebRessurs.no © 2003 - 2018