Läsa psw och usr i db.

14 svar · 303 visningar · startad av Zaad 7 jan. 2002

ZaadMedlem sedan dec. 200150 inlägg

Trådstart7 jan. 2002 19:42#1

Hejsan, jag lyckades få tag på denna lilla kod snutten. Men jag måste ha lite till på den tror jag. Vad e det som fattas för att det ska fungera att använda den...

SQLStmt = "SELECT * FROM users WHERE Username = '" & Request.Form("user") & "' AND Password = '" & Request.Form("Pass") & "'"
Set RS = objDB.Execute(SQLStmt) 
If RS.EOF Then
Response.Redirect("error.asp") 
Else 
Response.Cokies("Login")("AnvId") = RS("Id")
Response.Redirect("../inloggad.html") 
End If
RS.Close()
set RS = Nothing

Ps: cokie med 2 o. Men dom ville inte att man skulle ha det här tydligen. =/

LarsGMedlem sedan dec. 200012 464 inlägg

7 jan. 2002 19:49#2

Det som saknas är kod för att öppna databasen. Exakt hur det ser ut beror på vilken databashanterare du använder.

http://cgi.webforum.nu/wf/Forum11/HTML/001285.html

visar på hur det ser ut med access t.ex.

ZaadMedlem sedan dec. 200150 inlägg

7 jan. 2002 19:55#3

Men... Jag tror fortfarande det fattas lite tecken som gör att servern behandlar det på rätt sätt...

Min fil ser ut så här.
confirm.asp

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Provider = "Microsoft.Jet.OLEDB.4.0"
Connection.ConnectionString = "Data Source=" & Server.MapPath("../db/users.mdb")
Connection.Open

SQLStmt = "SELECT * FROM users WHERE Username = '" & Request.Form("user") & "' AND Password = '" & Request.Form("Pass") & "'"
Set RS = objDB.Execute(SQLStmt) 
If RS.EOF Then
Response.Redirect("error.asp") 
Else 
Response.Cokies("Login")("AnvId") = RS("Id")
Response.Redirect("../inloggad.html") 
End If
RS.Close()
set RS = Nothing

LarsGMedlem sedan dec. 200012 464 inlägg

7 jan. 2002 19:59#4

Set RS = connection.Execute(SQLStmt)

ZaadMedlem sedan dec. 200150 inlägg

7 jan. 2002 20:03#5

Men den vissar bara koden i min browser. Den verkar inte behandla det som asp. Eller så e det nått som fattas...

@ndersMedlem sedan juni 200032 967 inlägg

7 jan. 2002 20:07#6

Du skall omsluta asp-koden med <% %>.

Alltså:

[b]<%[/b]
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Provider = "Microsoft.Jet.OLEDB.4.0"
Connection.ConnectionString = "Data Source=" & Server.MapPath("../db/users.mdb")
Connection.Open
SQLStmt = "SELECT * FROM users WHERE Username = '" & Request.Form("user") & "' AND Password = '" & Request.Form("Pass") & "'"
Set RS = objDB.Execute(SQLStmt) 
If RS.EOF Then
Response.Redirect("error.asp") 
Else 
Response.Cokies("Login")("AnvId") = RS("Id")
Response.Redirect("../inloggad.html") 
End If
RS.Close()
set RS = Nothing
[b]%>[/b]

Mvh,

ZaadMedlem sedan dec. 200150 inlägg

7 jan. 2002 20:10#7

Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: 'objDB'

/duell/asp/confirm.asp, rad 7

Rad 7 = Set RS = objDB.Execute(SQLStmt)

icaaqMedlem sedan okt. 20005 273 inlägg

7 jan. 2002 20:24#8

Du ska som LarsG sa tidigare byta ut

Set RS = objDB.Execute(SQLStmt)

Till

Set RS = connection.Execute(SQLStmt)

@ndersMedlem sedan juni 200032 967 inlägg

7 jan. 2002 20:27#9

Jag ber om ursäkt för att jag missade det i den koden jag postade.

Mvh,

ZaadMedlem sedan dec. 200150 inlägg

7 jan. 2002 20:28#10

Fel igen. Jag rättade till det sista. Kan inte någon typ bara ta min kod och rätta till den. =) Och posta den här. =)

Microsoft JET Database Engine fel '80040e10'

Det har inte angetts något värde för en eller flera nödvändiga parametrar.

/duell/asp/confirm.asp, rad 7

confirm.asp

<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Provider = "Microsoft.Jet.OLEDB.4.0"
Connection.ConnectionString = "Data Source=" & Server.MapPath("../db/users.mdb")
Connection.Open
SQLStmt = "SELECT * FROM users WHERE Username = '" & Request.Form("user") & "' AND Password = '" & Request.Form("Pass") & "'"
Set RS = connection.Execute(SQLStmt)
If RS.EOF Then
Response.Redirect("error.asp") 
Else 
Response.Cokies("Login")("AnvId") = RS("Id")
Response.Redirect("../inloggad.html") 
End If
RS.Close()
set RS = Nothing
%>

LarsGMedlem sedan dec. 200012 464 inlägg

7 jan. 2002 20:32#11

Det felet du fick nu beror på att du i select-satsen har angett kolumnnamn som inte finns i din tabell.

ZaadMedlem sedan dec. 200150 inlägg

7 jan. 2002 20:38#12

Fel igen...
Jag säger bara en sak. Mycket klydd för lite nytta. Men nu tänker jag inte ge mej...

ADODB.Recordset fel '800a0cc1'

Objektet kunde inte hittas i mängden med det begärda namnet eller numret.

/duell/asp/confirm.asp, rad 11

rad 11

Response.Cokies("Login")("AnvId") = RS("Id")

"cokies med 2 o"

@ndersMedlem sedan juni 200032 967 inlägg

7 jan. 2002 20:43#13

Heter fältet ID i tabellen? Felmeddelandet antyder att så icke är fallet.

Mvh,

ZaadMedlem sedan dec. 200150 inlägg

7 jan. 2002 20:49#14

Databasen har 3 fält..
ID, Username, Password

ADODB.Recordset fel '800a0cc1'

Objektet kunde inte hittas i mängden med det begärda namnet eller numret.

/duell/asp/confirm.asp, rad 11

ZaadMedlem sedan dec. 200150 inlägg

7 jan. 2002 20:51#15

Sorry, mitt fel.
Stort D på ID. =)

Nu funkar det..
Tack allihopa för hjälpen....