Hej Jonas,
Jeg har redigeret lidt i den da den ikke helt passede til mit side, men jeg får
fejl meddelsen: Der er opstået en fejl. Scriptet er her:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM user WHERE username = '" & Session("login") & "'"
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF OR rs.EOF) Then
Response.Write "Dit brugernavn er: " & rs("username") & "!<br>"
Response.Write "Dit password: " & rs("password") & "...<br>"
Else
Response.Write "Der er opstået en fejl!"
End If
rs.Close()
Set rs = Nothing
Conn.Close()
Set Conn = Nothing
%>
Du får også lige scriptet fra login siden:
<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("database.mdb")
If Request("mode") = "Check" then
Function unQuote(strTekst)
strTekst = Trim(strTekst)
unQuote = Replace(strTekst,"%","53")
End Function
' Gemmer formfelterne i Variabler
strUsername = unQuote(request("username"))
strPassword = unQuote(request("password"))
Sql = "Select Count(*) as Found from user where (username = '" & strUsername
& "') and (password ='" & strPassword & "')"
Set LO = RS.Execute(Sql)
if LO("Found") = 0 then
Session("login") = ""
error = "Du blev ikke godkendt af systemet"
else
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM user where (username = '" & Request("username") & "')
and (password ='" & Request("password") & "')"
Set ez = myConn.Execute(strSQL)
Session("login") = "yes mate"
Response.Redirect "start.asp"
EZ.Close
RS.Close
Conn.Close
end if
end if
%>
Så vidt jeg kan se burde session indeholde brugernavnet ikk?
Jonas Schmeltz Aaberg wrote in dk.edb.internet.webdesign.serverside.asp:
> > Hej Jonas,
> >
> > Jeg har allerede oprettet login samt database, så al den tekst du har
> > skrevet
> > forvirre mig lidt, så hvis jeg lige giver dig nogle oplysninger, kan du så
> > ikke skære det ned til kun at indeholde "vis brugernavn funktionen"?
> >
> > 1. Database hedder database.mdb og ligger samme sted som resten af
> > filerne.
> > 2. Databasens indhold hedder user og oplysningerne er kun username og
> > password.
> > 3. Session hedder login
>
> Indeholder sessionen brugernavnet, eller hvad?
>
>
> brugerinfo.asp:
> <html>
> <head>
> <title>Brugerinfo</title>
> </head>
> <body>
> <h2>Brugerinfo</h2>
> <%
>
> Set myConn = Server.CreateObject("ADODB.Connection")
> myConn.Open "DRIVER={Microsoft Access Driver
> (*.mdb)};DBQ="&Server.MapPath("database.mdb")
>
> strSQL = "SELECT * FROM user WHERE username = '" & Session("login") & "'"
>
> Set rs = myConn.Execute(strSQL)
>
> If Not (rs.BOF OR rs.EOF) Then
> Response.Write "Dit brugernavn er: " & rs("username") & "!<br>"
> Response.Write "Dit password: " & rs("password") & "...<br>"
> Else
> Response.Write "Der er opstået en fejl!"
> End If
>
> rs.Close()
> Set rs = Nothing
> myConn.Close()
> Set myConn = Nothing
>
> %>
> </body>
>
> </html>
>
>
> MVH Jonas (aka Juke)
>
>
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials