aRo` automating your e-commerce

Using form authentication in asp.net

Instead of writing your own code for checking if a user has access to a page just use the formauthentication that is available to u

web.config (mind the ‘ )

<'authentication mode="Forms">
<'forms name="appNameAuth" path="/" loginUrl="login.aspx" protection="All" timeout="30">
<'credentials passwordFormat="Clear">
<'user name="user" password="password" />
<'/credentials>
<'/forms>
<'/authentication>

login.aspx

<%@Import Namespace="System.Web.Security" %>
‘Sub ProcessLogin(objSender As Object, objArgs As EventArgs)

If FormsAuthentication.Authenticate(txtUser.Text, txtPassword.Text) Then
FormsAuthentication.RedirectFromLoginPage(txtUser.Text, chkPersistLogin.Checked)
Else
ErrorMessage.InnerHtml = “Something went wrong… please re-enter your credentials…”
End If

End Sub

Page.aspx

<%@Import Namespace="System.Web.Security" %>
Sub SignOut(objSender As Object, objArgs As EventArgs)
‘delete the users auth cookie and sign out
FormsAuthentication.SignOut()
‘redirect the user to their referring page
Response.Redirect(Request.UrlReferrer.ToString())
End Sub
Sub Page_Load()
‘verify authentication
If User.Identity.IsAuthenticated Then
‘display Credential information
displayCredentials.InnerHtml = “Current User : ” & User.Identity.Name & “” & _
“

Authentication Used : ” & User.Identity.AuthenticationType & ““
Else
‘Display Error Message
displayCredentials.InnerHtml = “Sorry, you have not been authenticated.”
End If
End Sub

Popularity: 1% [?]

Filed under: asp.net No Comments

Working with data from access database in asp.net

Connection to Access Database

Imports System.Data.OleDb
Private Const strConnection As String = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db.mdb;
Private objConnection As OleDbConnection = New OleDbConnection(strConnection)
Try
objConnection.Open()
….
objConnection.Close()
Catch myException As System.Exception
MessageBox.Show(myException.Message)
End Try

Command – ExecuteNonQuery UPDATE / DELETE / INSERT

Dim strSQL As String = “Insert into tblX (X ,Y) values (valueX,valueY)”
Dim objCommand As OleDbCommand = New OleDbCommand(strSQL, objConnection)
objCommand.ExecuteNonQuery()

Command – ExecuteScalar SELECT

Dim strSQL As String = “Select count(*) from tblFabrieken”
Dim objCommand As OleDbCommand = New OleDbCommand(strSQL, objConnection)
Dim intNumber As Integer
intNumber = objCommand.ExecuteScalar()

Command – ExecuteReader – DataReader (Read forward only cursor)

Dim objCommand As OleDbCommand = New OleDbCommand(“Select * from tblFabrieken”, objConnection)
Dim objReader As OleDbDataReader
objReader = objCommand.ExecuteReader()

Do While objReader.Read()
MsgBox(objReader(“Naam”))
Loop

objReader.Close()

Popularity: 1% [?]