Hjälp med inloggningssystem

6 svar · 367 visningar · startad av Vinnaren 26 juni 2006

VinnarenMedlem sedan sep. 2005833 inlägg

Frågan26 juni 2006 19:41#1

Hej

Jag håller på med ett adminsystem. Koden som ska kolla om allt är rätt:


<%
ElseIf Request.QueryString("visa") = "koll" Then

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.recordset")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")

anvandarnamn = Request.Form ("anvandarnamn")
losen 		 = Request.Form ("losen")

Set objRS = objConn.Execute("SELECT * FROM redaktionen Where anvandarnamn = '" & anvandarnamn & "' AND losen = '" & losen & "'")

	IF objRS.EOF THEN
		Response.Redirect ("login.asp?visa=error")
	ELSE
		Session("ID") = objRS("ID")
		Session("titel") = objRS("titel")
		Session("Login") = 1
		
		Response.Redirect ("inloggad.asp")
		objConn.Close 
		objRS.Close
		SET objRS = nothing
		
	END IF%>

Hur lägger jag in en säkerhets koll på alla mina andra sidor som kollar om anv. verkligen är inloggad?

Tacksam för all hjälp jag kan få :stud

aspMedlem sedan aug. 2002733 inlägg

26 juni 2006 19:51#2

If Session("ID") <> "" Then
	' Inloggad
Else
	' Inte inloggad
End if

VinnarenMedlem sedan sep. 2005833 inlägg

26 juni 2006 20:15#3

tack :D

en annan liten fråga, hur gör man så att skribenten ska slippa fylla i sitt namn. Har en vanlig textruta som jag vill att namnet ska visas i.

Jag har Session("namn") = objRS("namn")

aspMedlem sedan aug. 2002733 inlägg

26 juni 2006 20:18#4

<input type="text" name="skribent" value="<%=Session("namn")%>">

VinnarenMedlem sedan sep. 2005833 inlägg

27 juni 2006 10:38#5

tack :D

har fått ett fel på min update sträng :S

	objConn.execute("Update redaktionen Set losen='" & strlosen & "' Where id = "& Session("ID"))

fel: Syntaxfel i UPDATE-uttryck

Har letat men hittar inget fel :S

J.N.Medlem sedan apr. 20031 660 inlägg

27 juni 2006 11:54#6

HEJ!

Ser rätt rätt ut, en utskrift av sql-strängen hjälper säkert?

VinnarenMedlem sedan sep. 2005833 inlägg

28 juni 2006 20:12#7

Det löste sig visst §jr