18. august 2001 - 03:52Der er
26 kommentarer og 1 løsning
Hjælp behøves til database åbning / check
Jo - jeg har lavet det her login system
<% if mode = \"login\" then Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db/database.mdb\") strSQL = \"SELECT * FROM admin where brugernavn = \'\" & Request.form(\"brugernavn\") & \"\'\" Set rs = myConn.Execute(strSQL) If rs.BOF Or rs.EOF Then Response.Redirect(\"login.asp?error=Ingen bruger med det navn!\") end if
if rs(\"password\") = Request.form(\"password\") then session(\"brugernavn\") = rs(\"brugernavn\") session(\"id\") = rs(\"id\") session(\"login\") = yes Response.Redirect(\"admin.asp\")
else Response.Redirect(\"login.asp?error=Du har indtastet forkert password!\") end if
<% if mode = \"login\" then Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db/database.mdb\") strSQL = \"SELECT * FROM bruger where brugernavn = \'\" & Request.form(\"brugernavn\") & \"\'\" Set rs = myConn.Execute(strSQL) If rs.BOF Or rs.EOF Then Response.Redirect(\"login.asp?error=Ingen bruger med det navn!\") end if
if rs(\"password\") = Request.form(\"password\") then session(\"brugernavn\") = rs(\"brugernavn\") session(\"id\") = rs(\"id\") session(\"login\") = yes Response.Redirect(\"admin.asp\")
else Response.Redirect(\"login.asp?error=Du har indtastet forkert password!\") end if
Ok, nu er jeg ikke så stærk i .ASP, så jeg er ikke helt sikker på hvordan det er med de her \' og \" i et .ASP statement, men her er et forsøg (prøv det, og se om det virker som forventet - det basale SQL er ihvertfald lavet som jeg vil mene at det skal være udfra hvad du har skrevet):
strSQL = \"SELECT * FROM bruger WHERE brugernavn = \'\" & Request.form(\"brugernavn\") & \"\' AND 1admin = \'\"true\"\'\"
Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a0401\'
Slut på sætning var ventet
/admin/login.asp, line 50
strSQL = \"SELECT * FROM bruger WHERE brugernavn = \'\" & Request.form(\"brugernavn\") & \"\' AND leadadmin = \'\"true\"\'\" ---------------------------------------------------------------------------------------------------------^
hehe... jeg har stort set kun rodet med PHP og MySQL, så når det drejer sig om ASP og Access er det lidt \"gætteleg\" :-)
Synes godt om
Ny brugerNybegynder
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.