MmonAmourMedlem sedan dec. 2002258 inlägg Halloj, varför fungerar inte nedanstående.
Försöker ansluta till min mdb fil och köra en query för att kolla om en användare finnns och sedan logga in denne med sessioner.
Får 500 servererror när jag kör sidan?
Vad händer!??!
<%
If Request.Form("username") <> "" And Request.Form("password") <> "" Then
username = Request.Form("username")
password = Request.Form("password")
'Connect to database file
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("showreal.mdb")
Set Rs = Conn.Execute("Select * From users Where username=" & username & "And password=" & password)
If Not Rs.Eof Then
Session("username") = username
Session("password") = password
Session.Timeout = 20
Response.Redirect("showreal.asp")
Else
Response.Redirect("index.asp?login=false")
End if
Else
Response.Redirect("index.asp?login=false")
End if
%>
PalleMedlem sedan apr. 20003 174 inlägg..och hela ditt felmeddelande är?
cyprysMedlem sedan dec. 20003 563 inläggDet här är i alla fall fel.
"Select * From users Where username=" & username & "And password=" & password
till
"SELECT * FROM users WHERE username=[b]'[/b]" & username & "[b]'[/b] AND password=[b]'[/b]" & password & "[b]'[/b] "
MmonAmourMedlem sedan dec. 2002258 inlägg Cyprys-> Ah tack, va klumpigt av mig :D
Palle-> Får inget mer felmeddelande än att det blir ett Internal Server Error 500.
MmonAmourMedlem sedan dec. 2002258 inlägg Okej använder följande nu, får inget server error som tidigare och när jag försöker logga in så blir det en felaktig inloggning hela tiden och jag skickas tillbaka till index.asp.
Dock även när jag skriver korrekta användaruppgifter? Vad är det som inte stämmer här? Valideringen kan inte vara helt korrekt med andra ord.. För man kan aldrig logga in inte äns med de rätta uppgifterna.
<%
If Request.Form("username") <> "" And Request.Form("password") <> "" Then
username = Request.Form("username")
password = Request.Form("password")
'Connect to database file
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("showreal.mdb")
Set Rs = Conn.Execute("Select * From users Where username='" & username & "' And password='" & password & "'")
'Validate loginattempt
If Not Rs.Eof Then
'True
Session("username") = username
Session("password") = password
Session.Timeout = 20
Response.Redirect("showreal.asp")
Else
'False
Response.Redirect("index.asp?login=false")
End if
Else
Response.Redirect("index.asp?login=false")
End if
%>
@ndersMedlem sedan juni 200032 967 inlägg
Palle-> Får inget mer felmeddelande än att det blir ett Internal Server Error 500.
Stäng av Friendly error messages / Egna http-felmeddelanden i Internet Explorer så du åtminstone får vettiga felmeddelanden.
- - - - -
Vilken redirect är det som körs när inloggningen inte fungerar? Är det den övre eller den undre av de två som går till index.asp?login=false?
MmonAmourMedlem sedan dec. 2002258 inlägg Har fått det att fungera nu! Tack för all hjälp
@ndersMedlem sedan juni 200032 967 inlägg Då vore det på sin plats med en liten lösningsbeskrivning och ett litet klick på "Acceptera som slutgiltigt svar".
MmonAmourMedlem sedan dec. 2002258 inlägg Lustigt nog var det anslutningen till Access filen som inte fungerade tidigare.. jäkla skumt eftersom raderna är tagna direkt från mitt webbhotell :D
Så här ser den rätta anslutningen ut:
'Connect to database file
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("showreal.mdb") & ";"
