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
%>
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
%>
Lustigt nog var det anslutningen till Access filen som inte fungerade tidigare.. jäkla skumt eftersom raderna är tagna direkt från mitt webbhotell
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") & ";"
260 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a