Varför går det inte????

49 svar · 817 visningar · startad av Biasse 8 sep. 2003

BiasseMedlem sedan aug. 2003480 inlägg

Frågan8 sep. 2003 15:42#1

Databasen heter "admin"
Tabellen heter "admin"
Kolumerna heter: id ,anvname ,passw ,adm ,svip ,vip ,member

i adm ,svip ,vip ,member står värderna i följd så här:

adm=adm
svip=supervip
vip=vip
member=member
_________________________________________-
<%
Session.TimeOut=120
Set Connect = Server.CreateObject("ADODB.Connection") 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/admin.mdb")&";pwd=12345678"
Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "Select losenord, info From admin where anvnamn='" & Request.Form("anvnamn") & "'"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

If not RecSet.EOF Then

	If RecSet("losenord") = Request.Form("losenord") Then
	
		Session("check") = "111okkuk"
		Session("passw") = "YtSQ12kuk"
		Session("admin") = RecSet("adm")
		Session("admin") = RecSet("svip")
		Session("admin") = RecSet("vip")
		Session("admin") = RecSet("member")

		
		If RecSet("adm")="adm" Then
		strPage="index2.asp"
		End If

		If RecSet("svip")="supervip" Then
		strPage="svip.asp"
		End If

		If RecSet("vip")="vip" Then
		strPage="vip.asp"
		End If
		
		If RecSet("member")="member" Then
		strPage="member.asp"
		End If

		RecSet.Close
		Connect.Close
		Set RecSet = nothing
		Set Connect = nothing
		
		Response.Redirect strPage

		
	End If

End If

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing		

Session("kuk") = "fel användarnamn eller lösenord"
Response.Redirect "index.asp"
%>
_____________________________________________-

RED. Försök att använda [kod]-taggarna.
RED2. Förresten, vad är kuk en förkortning för? Har aldrig sett någon döpa en (sessions)variabel till detta.

/OveRRidE

PeeerMedlem sedan mars 20025 907 inlägg

8 sep. 2003 15:45#2

Vad är det som inte går? (felmeddelande)
Skriv en rubrik som beskriver problemet
Varför har du könsord med i koden?

StevePMedlem sedan mars 2003772 inlägg

8 sep. 2003 15:48#3

Använd gärna [ kod ] <% din kod %> [/ kod ]

BiasseMedlem sedan aug. 2003480 inlägg

8 sep. 2003 15:50#4

sorry

Jag kan inte logga in på index2 fast jag står som adm i databasen.

Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/test/kontroll.asp, line 18

StevePMedlem sedan mars 2003772 inlägg

8 sep. 2003 15:52#5

Vad är line 18? Det verkar som om kontroll.asp försöker hämta ett fält från databasen som inte existerar.

BiasseMedlem sedan aug. 2003480 inlägg

8 sep. 2003 15:55#6

Session("admin") = RecSet("adm")

Det finns en kolum i databasen admin som heter adm och det står adm i det fältet som tillhör mitt lösen.

PeeerMedlem sedan mars 20025 907 inlägg

8 sep. 2003 15:58#7

Du hämtar ju aldrig datan i den kolumnen.

SQL = "Select losenord, info, [b]adm, svip, vip, member[/b] From admin where anvnamn='" & Request.Form("anvnamn") & "'"

r/ sen ska du kanske hämta ut svip, vip och member också :)

BiasseMedlem sedan aug. 2003480 inlägg

8 sep. 2003 16:00#8

hmm.. var ska det in??

PeeerMedlem sedan mars 20025 907 inlägg

8 sep. 2003 16:01#9

Byt ut din befintliga sql-sträng mot ovanstående.

BiasseMedlem sedan aug. 2003480 inlägg

8 sep. 2003 16:11#10

jepp så var det :-) Tackar.

Blir det så här sen för att skydda sidorna:

<%If Not Session("admin") ="adm" Then
Session("kuk") = "Du måste logga in först!"
Response.Redirect "index.asp"
ELSE%>

<%If Not Session("admin") ="svip" Then
Session("kuk") = "Du måste logga in först!"
Response.Redirect "index.asp"
ELSE%>

osv ???

@ndersMedlem sedan juni 200032 967 inlägg

8 sep. 2003 16:15#11

Det skulle vara alldeles fantastiskt roligt om du bytte namn på sessionsvariabeln.

Mvh

BiasseMedlem sedan aug. 2003480 inlägg

8 sep. 2003 16:22#12

hahahaha ja det ska inte se ut så när det är klart jag lover :-)

Tack för all hjälp mvh Biasse

@ndersMedlem sedan juni 200032 967 inlägg

8 sep. 2003 16:25#13

Jag tyckte mest att det inte skulle se ut så här på webForum, vårdat språk är att föredra, även i kod.

Mvh

BiasseMedlem sedan aug. 2003480 inlägg

8 sep. 2003 16:54#14

Hmm. Nått fel ändå i......

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.
/test/kontroll.asp, line 10

@ndersMedlem sedan juni 200032 967 inlägg

8 sep. 2003 16:58#15

Då har du angett ett felaktigt tabell- eller fältnamn i din SQL-fråga. Dubbelkolla alla stavningar.

BiasseMedlem sedan aug. 2003480 inlägg

8 sep. 2003 17:10#16

Ja det var ett stav fel (skäms).

Det ser ut så här i kontroll.asp:

                            Session("admin") = RecSet("member")
	Session("admin") = RecSet("vip")
	Session("admin") = RecSet("svip")
	Session("admin") = RecSet("adm")

När jag ska skydda sidorna till rätt nivå så går inte det här till adm:

<%If Not Session("admin") ="adm" Then
Session("mess") = "Du måste logga in först!"
Response.Redirect "index.asp"
ELSE%>

Man kommer in fast jag loggat in som bara member då?

BiasseMedlem sedan aug. 2003480 inlägg

8 sep. 2003 17:42#17

Krockar dom för att alla heter admin??

Loggar jag in som member eller vip och skriver index2.asp i adressfältet ska jag inte komma dit utan hänvisas till index.asp.

@ndersMedlem sedan juni 200032 967 inlägg

8 sep. 2003 17:44#18

Biasse skrev:

Krockar dom för att alla heter admin??

Tja, det är bara den sista som spelar roll, eftersom du skriver över samma variabel hela tiden. Vad står det egentligen i fälten member, vip, svip och adm?

BiasseMedlem sedan aug. 2003480 inlägg

8 sep. 2003 17:49#19

I fältet adm=adm
I fältet vip=vip
I fältet svip=svip
I fältet member=member

@ndersMedlem sedan juni 200032 967 inlägg

8 sep. 2003 17:50#20

På varje post? Hur vet du då om man är admin eller vanlig medlem?