Login med sessions i ASP.NET og VB

Tags:    programmering

Hej er der nogen som kan hjaelpe mig. Jeg skal lave et differentieret login til skoleprojekt (sidder i USA og laver det) med sessions. Grunden dertil er at naar en bruger logger ind skal de kunne se hvad status er paa deres projekt er.
Min kode paa login siden ser indtil videres saadan ud:

Dim strConn As String
Dim objConn As OleDbConnection
Dim objComm As OleDbCommand
Dim objDR As OleDbDataReader

Sub btnLogin_Click(sender As Object, e As EventArgs)

Dim StrSQL as string

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn += "Data Source=" & Server.Mappath("./db/db.mdb") & ";"

strSQL = "SELECT clientno FROM Clients WHERE clients=" & txtClientno.text & " AND password='" & txtpassword.text & "';"

objConn = new OledbConnection(strConn)
objComm = new OledbCommand(strSQL, objConn)

objConn.Open()
objDR = objComm.ExecuteReader()
If objDR.Read = true Then
Opryd()
Session("SignIn")=txtClientno.text
Response.Redirect("projectstatus.aspx")
Else
strSQL = "SELECT Clientno FROM clients WHERE Clientno=" & txtClientno.text & " AND password='" & txtpassword.text & "';"

objConn = new OledbConnection(strConn)
objComm = new OledbCommand(strSQL, objConn)

objConn.Open()
objDR = objComm.ExecuteReader()
If objDR.Read = true Then
Opryd()
Session("SignIn")=txtclientno.text
Response.Redirect("projectstatus.aspx")
Else
lblErrorMessage.text = "Error in login"
Opryd()
End If
End If

End Sub

Sub Opryd()
objDR.Close()
objConn.Close()
End sub

Nu er mit problem, hvad skal jeg skrive paa Projectstatus.aspx for at det er deres og ikke alle andres projectstatus der bliver vist.
Paa forhaand tak. Stine



1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Hej er der nogen som kan hjaelpe mig. Jeg skal lave et differentieret login til skoleprojekt (sidder i USA og laver det) med sessions. Grunden dertil er at naar en bruger logger ind skal de kunne se hvad status er paa deres projekt er.
Min kode paa login siden ser indtil videres saadan ud:

Dim strConn As String
Dim objConn As OleDbConnection
Dim objComm As OleDbCommand
Dim objDR As OleDbDataReader

Sub btnLogin_Click(sender As Object, e As EventArgs)

Dim StrSQL as string

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn += "Data Source=" & Server.Mappath("./db/db.mdb") & ";"

strSQL = "SELECT clientno FROM Clients WHERE clients=" & txtClientno.text & " AND password='" & txtpassword.text & "';"

objConn = new OledbConnection(strConn)
objComm = new OledbCommand(strSQL, objConn)

objConn.Open()
objDR = objComm.ExecuteReader()
If objDR.Read = true Then
Opryd()
Session("SignIn")=txtClientno.text
Response.Redirect("projectstatus.aspx")
Else
strSQL = "SELECT Clientno FROM clients WHERE Clientno=" & txtClientno.text & " AND password='" & txtpassword.text & "';"

objConn = new OledbConnection(strConn)
objComm = new OledbCommand(strSQL, objConn)

objConn.Open()
objDR = objComm.ExecuteReader()
If objDR.Read = true Then
Opryd()
Session("SignIn")=txtclientno.text
Response.Redirect("projectstatus.aspx")
Else
lblErrorMessage.text = "Error in login"
Opryd()
End If
End If

End Sub

Sub Opryd()
objDR.Close()
objConn.Close()
End sub

Nu er mit problem, hvad skal jeg skrive paa Projectstatus.aspx for at det er deres og ikke alle andres projectstatus der bliver vist.
Paa forhaand tak. Stine


jeg må indrømme at jeg ikke kan asp.net men jeg ka da ligt asp og sql... og kan sagtens læse dette....

og vil tro at det er noget med en sql sætning der hedder...

strSQL = "SELECT Clientno FROM clients WHERE Clientno=" & Session("SignIn") & ";"

dette kræver dog at txtClientno.text ikke at ens nogen steder i databasen hvis dette kan være tilfældet skal du også lave en session der indeholder passwordet....

Mvh. Jop...



t