Avatar billede krc_ Nybegynder
22. december 2003 - 15:45 Der er 8 kommentarer og
1 løsning

session fra database

Hej !

Jeg har den her fil der laver en session udfra et hardkodet brugernavn og et hardkodet kodeord.
Men det vil jeg gerne have lavet om til at læse fra min
database (bruger.mdb) der har en tabel (brugerdata) der har brugernavn, fornavn, efternavn, email og kodeord som felter. Folk skal bare indtaste brugernavn og kodeord så skal denne fil lige tjekke i databsen og stemmer brugernavn og kodeord overens skal sessionsen sætter til
true ligesom herunder! Men jeg kan ik selv kode det...

<%
Option Explicit

Dim constBrugernavn, constPassword
constBrugernavn = "darkzone"
constPassword = "spiller"
if request.form("brugernavn") = constbrugernavn And request.form("password") = constpassword then
session("Godkendt") = True
response.redirect "default.asp"
else
session("Godkendt") = False
response.redirect "logadmin.asp"
end if
%>
Avatar billede thesurfer Nybegynder
22. december 2003 - 15:49 #1
Hvad er problemet?
Avatar billede thesurfer Nybegynder
22. december 2003 - 15:49 #2
Ahh.. hehe.. min fejl.. kan godt se det nu :)
Avatar billede thesurfer Nybegynder
22. december 2003 - 15:57 #3
login.asp:

<%
Option Explcit

if request.servervarib

dim strBrugernavn, strKodeord

dim rs, strSQL, Conn, DSN

strBrugernavn = replace(request.form("brugernavn"), "'", "")
strKodeorde = replace("request.form("kodeord"), "'", "")

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from TABELNAVN where brugernavn = '" & strBrugernavn & "' and kodeord = '" & strKodeord & "'"

set rs = conn.execute(strSQL)

if (not rs.bof) or (not rs.eof) then
  ' brugernavn er fundet!
  session("Godkendt") = True
  response.redirect "default.asp" 
else
  response.write "Brugernavn eller kodeord er forkert!"
end if

Conn.Close
Set Conn = Nothing
%>


<form name="login" action="login.asp" method="post">
Brugernavn: <input type="text" name="brugernavn">
<br>
Kodeord: <input type="text" name="kodeord">
<br>
<input type="submit" name="submit" value="Send oplysninger">
</form>
Avatar billede thesurfer Nybegynder
22. december 2003 - 15:59 #4
hovsa.. :)
glemte noget:

<%
Option explicit
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' min tidligere kode her..
' indtil:
else
  session("Godkendt") = False
  response.write "Brugernavn eller kodeord er forkert!"

'resten af min kode her..
end if

end if
%>
<form......>
Avatar billede krc_ Nybegynder
23. december 2003 - 09:07 #5
Hey...
Mange taak! Bortset fra lidt slå-fejl så virker det fint.
Smid et svar
Avatar billede thesurfer Nybegynder
23. december 2003 - 15:12 #6
hehehe..
Et svar er smidt :)
Avatar billede thesurfer Nybegynder
23. december 2003 - 15:21 #7
Takker for points :)
Avatar billede krc_ Nybegynder
23. december 2003 - 15:28 #8
ja det er sgu mig der takker :D
God jul ... får nok ikke brug for ASP-hjælp før efter jul :D
/Kristian
Avatar billede thesurfer Nybegynder
23. december 2003 - 15:33 #9
hehehe.. "før efter jul" :-)
Så skal du bare holde dig væk fra computeren ;O)
Glædelig Jul.
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