06. maj 2001 - 19:43
Der er
12 kommentarer
Login System
Jeg vil gerne have lavet et login system... Helst kun i en fil.. Det skal være med access DB.....hvor mange point skal i have for det ?? /Mascot PS: Jeg smider 100 point sig lige hvis i skal have mere...
Annonceindlæg fra DE-CIX
ja....men jeg vil ikke hav nogle af dem...jeg kan nemlig ikke finde ud af at omprogramere til min side....
Kan du selv lave databasen?
ja bare jeg ved hvadfor nogle kolonner der ksal være :o)
Kald tabellen login, og lav to kolonner (brugernavn | adgangskode)
et øjeblik jeg skal lige redigere koden lidt... :)
på siderne som netsrac siger finder du de bedste login-systemer - men du skal desværre ikke forvente at finde nogle der passer 100% til DIN side - nogle af dem der ligger der er MEGET lette at gå til. Så at sætte en her til at lave et nyt vil ikke gøre det meget lettere for dig - så led en ekstra gang på de to sider og brug et derfra - så risikerer du måske endda også at lære lidt asp! :o)
Her er midt bud: <% Response.Buffer = True \'-------- Variabler -------- LinkTo = \"loggetind.asp\" \'Hvis brugernavn er rigtigt WrongUser = \"<p><font color=\"\"#FF0000\"\">Brugernavnet blev ikke genkendt.</font></p>\" WrongPass = \"<p><font color=\"\"#FF0000\"\">Koden blev ikke genkendt.</font></p>\" DatabaseName = \"loginDB.mdb\" \'Navnet på databasen \'-------- Slut variabler --- %> <html> <head> </head> <body OnLoad=\"login.brugernavn.focus()\"> <div align=\"center\"> <form name=\"login\" action=\"login.asp\" method=\"post\"> <input type=\"hidden\" name=\"login\" value=\"true\"> <table> <tr> <td><p>Brugernavn:</p></td> <td><input type=\"text\" name=\"brugernavn\" size=\"20\"></td> </tr> <tr> <td><p>Kode:</p></td> <td><input type=\"password\" name=\"kode\" size=\"20\"></td> </tr> <tr> <td colspan=\"2\"><div align=\"right\"><input type=\"submit\" value=\"Login\"></div></td> </tr> </table> </form> </div> <% If Request(\"login\") = \"true\" Then Set Conn = Server.CreateObject(\"ADODB.Connection\") Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT * FROM login WHERE Brugernavn = \'\" & Request(\"brugernavn\") & \"\'\" Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb);DBQ=\" & Server.MapPath(DatabaseName) rs.Open strSQL, Conn, 1, 3 If rs.EOF Then Mode = 1 Else If rs(\"Kode\") = Request(\"Kode\") Then Mode = 2 Else Mode = 4 End If End If rs.Close Conn.Close Set Conn = Nothing Set rs = Nothing If Mode = 1 Then Response.Write WrongUser ElseIf Mode = 2 Then Session(\"username\") = Request(\"brugernavn\") Response.Redirect LinkTo ElseIf Mode = 4 Then Response.Write WrongPass End If End If %> </body> </html>
HeHe Karberg....mit virker sgu da fint :-)
Kurser inden for grundlæggende programmering