Avatar billede brianalbertsen Nybegynder
18. februar 2004 - 09:22 Der er 6 kommentarer og
1 løsning

Login system uden database?

Jeg har fundet denne herinde:

<html>
<title>Login</title>
<head>
</head>
<body>

<!-- <Script Language=VBScript> -->
<%
if request ("mode") = "login" then
' Opretter forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

'ændre imput
Login = Trim(Replace(Request.Form("Login"),"'","''" ))
Password = Trim(Replace(Request.Form("Password"),"'","''" ))

'Lavet af Jimmy Jacobsen www.webshadow.frip.dk
'Opbygger Sql-sætningen
rsSQL = "SELECT * FROM admin where Login = '" & Login & "' and Password = '" & Password & "'"

' hvis brugeren var i databasen
set rs = Conn.execute(rsSQL)
If Not (rs.BOF Or rs.Eof) Then
Session("ID") = rs("ID")
session("login") = True
Response.redirect "logged.asp"

Else

'
' Hvis brugeren ikke var i databasen
Response.redirect "Login.asp"


End If

' Lukker forbindelse til databasen
Conn.Close
Set Conn = Nothing

End if
%>
</Script>

<br>
<form method="post" action="login.asp">
<table border="0" cellspacing="0" width="228" height="125">
  <tr>
    <td width="78" height="40"><p>Brugernavn:</td>
    <td width="165" height="40"><input type="text" name="Login" size="20"></td>
  </tr>
  <tr>
    <td width="78" height="25">Password:</td>
    <td width="165" height="25">
    <input type="password" name="Password" size="20"></td>
</tr>
<input type="hidden" Name="Mode" Value="login"></td>
<tr>
    <td width="78" height="25"><input type="submit" value="Login"></td>
    </td>
</table>
</form>
</body>
</html>

Så vidt jeg kan se skal man have en database lavet i Access. Ville høre om der var en der gad og lave en for mig som jeg bare kunne rette til med nye brugere og password's til. Grunden til dette er at jeg aldrig har leget med access før. Jeg vil gerne sætte mig ind i det men lige for tiden er jeg ret presset med tiden så har simpelthen ikke overskud til og sætte mig ind i det nu.

Hvad gør man med databasen? Lægger man den bare i roden der hvor siden ligger på nettet?
Avatar billede steen_hansen Forsker
18. februar 2004 - 09:39 #1
Allerførst har jeg lige ryddet op i koderne (mere kommer senere):

<%
    'Lavet af Jimmy Jacobsen www.webshadow.frip.dk

    If Request ("mode") = "login" Then

        'Opretter forbindelse til databasen
        Set Conn = Server.CreateObject("ADODB.Connection")
        DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
        Conn.Open DSN

        'Ændre input
        Login = Trim(Replace(Request.Form("Login"),"'","''" ))
        Password = Trim(Replace(Request.Form("Password"),"'","''" ))

        'Opbygger Sql-sætningen
        RSSQL = "SELECT * FROM admin WHERE Login = '" & Login & "' and Password = '" & Password & "'"

        ' hvis brugeren var i databasen
        Set RS = Conn.execute(RSSQL)

            If Not (RS.BOF Or RS.EOF) Then
                Session("ID") = rs("ID")
                session("login") = True
                Response.redirect "logged.asp"
            Else

                'Hvis brugeren ikke var i databasen
                Response.redirect "Login.asp"

            End If
%>

<html>

<head>
<title>Login</title>
</head>

<body>

<table border="0" cellspacing="0" width="228" height="125">
    <tr>
        <form method="post" action="login.asp">
        <td width="78">Brugernavn:    </td>
        <td width="165"><input type="text" name="Login" size="20"></td>
    </tr>
    <tr>
        <td width="78" height="25">Password:</td>
        <td width="165" height="25"><input type="password" name="Password" size="20"></td>
    </tr>
    <tr>
        <td width="78" height="25">
            <input type="hidden" Name="Mode" Value="login">
            <input type="submit" value="Login">
        </td>
        <td width="165">&nbsp;</td>
        </form>
    </tr>
</table>

</body>

</html>

<%
        'Lukker forbindelse til databasen
        Conn.Close
        Set Conn = Nothing

    End if
%>
Avatar billede steen_hansen Forsker
18. februar 2004 - 09:43 #2
Mht. databasen, så skal den ligge i en mappe, som du har skriverettigheder til. Typisk, når man har FrontPage-extensions inkluderet i abonnementet, ligge mappen i

/fpdb/database.mdb

Hvis ikke du har det, så hør din host om hvilken mappe du har skriverettigheder til.

Mht. de forskellige recordsets (RS) i databasen, så kommer der mere senere, skal lige i byen.
Avatar billede steen_hansen Forsker
18. februar 2004 - 09:49 #3
Lidt yderligere rettelser :o)

<%
    'Lavet af Jimmy Jacobsen www.webshadow.frip.dk

    If Request ("mode") = "login" Then

        'Opretter forbindelse til databasen
        Set Conn = Server.CreateObject("ADODB.Connection")
        DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
        Conn.Open DSN

        'Ændre input
        Login = Trim(Replace(Request.Form("Login"),"'","''" ))
        Password = Trim(Replace(Request.Form("Password"),"'","''" ))

        'Opbygger Sql-sætningen
        RSSQL = "SELECT * FROM admin WHERE Login = '" & Login & "' and Password = '" & Password & "'"

        'hvis brugeren var i databasen
        Set RS = Conn.execute(RSSQL)

        If Not (RS.BOF Or RS.EOF) Then
            Session("ID") = rs("ID")
            Session("login") = True
            Response.Redirect "logged.asp"
        Else
            'Hvis brugeren ikke var i databasen
            Response.redirect "Login.asp"
        End If
%>

<html>

<head>
<title>Login</title>
</head>

<body>

<table border="0" cellspacing="0" width="228" height="125">
    <tr>
        <form method="post" action="login.asp">
        <td width="78">Brugernavn:</td>
        <td width="165"><input type="text" name="Login" size="20"></td>
    </tr>
    <tr>
        <td width="78" height="25">Password:</td>
        <td width="165" height="25"><input type="password" name="Password" size="20"></td>
    </tr>
    <tr>
        <td width="78" height="25">
            <input type="hidden" Name="Mode" Value="login">
            <input type="submit" value="Login">
        </td>
        <td width="165">&nbsp;</td>
        </form>
    </tr>
</table>

</body>

</html>

<%
        'Lukker forbindelse til databasen
        Conn.Close
        Set Conn = Nothing

    End if
%>
Avatar billede steen_hansen Forsker
18. februar 2004 - 10:04 #4
En sidste ændring:

Af princip benytter jeg ikke ord som "password", medmindre det er typebetegnelsen på et input-felt. Derfor har jeg ændret det til pWord:

<%
    'Lavet af Jimmy Jacobsen www.webshadow.frip.dk

    If Request ("mode") = "login" Then

        'Opretter forbindelse til databasen
        Set Conn = Server.CreateObject("ADODB.Connection")
        DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/fpdb/database.mdb")
        Conn.Open DSN

        'Ændre input
        login = Trim(Replace(Request.Form("login"),"'","''" ))
        pWord = Trim(Replace(Request.Form("pWord"),"'","''" ))

        'Opbygger Sql-sætningen
        RSSQL = "SELECT * FROM admin WHERE login = '" & login & "' and pWord = '" & pWord & "'"

        'Hvis brugeren var i databasen
        Set RS = Conn.execute(RSSQL)

        If Not (RS.BOF Or RS.EOF) Then
            Session("ID") = RS("ID")
            Session("login") = True
            Response.Redirect "logged.asp"
        Else
            'Hvis brugeren ikke var i databasen
            Response.Redirect "login.asp"
        End If
%>

<html>

<head>
<title>Login</title>
</head>

<body>

<table border="0" cellspacing="0" cellpadding="10">
    <tr>
        <form method="post" action="login.asp">
        <td>Brugernavn:</td>
        <td><input type="text" name="login" size="20"></td>
    </tr>
    <tr>
        <td>Password:</td>
        <td><input type="password" name="pWord" size="20"></td>
    </tr>
    <tr>
        <td>
            <input type="hidden" Name="Mode" Value="login">
            <input type="submit" value="Login">
        </td>
        <td>&nbsp;</td>
        </form>
    </tr>
</table>

</body>

</html>

<%
        'Lukker forbindelse til databasen
        Conn.Close
        Set Conn = Nothing

    End if
%>

Jeg bliver nødt til at smutte, kommer tilbage senere.
Avatar billede brianalbertsen Nybegynder
22. august 2004 - 02:17 #5
læg et svar hvis du skal have point for dette arbejde. Sidder og lukker spørgsmål. Hvis ikke du lægger et tager jeg dem selv.
Avatar billede brianalbertsen Nybegynder
23. august 2004 - 17:14 #6
Intet svar. jeg tager selv point'ene. SKal have lukket de spørgsmål...
Avatar billede steen_hansen Forsker
24. august 2004 - 16:32 #7
Ups, er kommet hjem fra ferie, så ikke dine kommentarer :o/
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester