nu spökar det

2 svar · 288 visningar · startad av mikael_a 6 juni 2000

mikael_aMedlem sedan mars 2000475 inlägg

Trådstart6 juni 2000 15:58#1

har gjort detta för, och det fungerade, varför inte nu?

har ett login skript so mser ut så här:

<%
	Session("Logintries") = Session("Logintries") + 1

	If Session("admin_name")="" Then

		Set Connection = Server.CreateObject("ADODB.Connection")
       Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\Inetpub\wwwroot\databas\admin.mdb"
		SQLStmt = "SELECT * FROM admin Where admin_name = '" & FixaTecken(Request.Form("admin_name")) & "' AND password = '" & FixaTecken(Request.Form("password")) & "'"
		Set RS = Connection.Execute(SQLStmt)		      
      
       If RS.EOF Then
		Response.Redirect("../../default.asp")

		Else

       Session("admin_name") = RS("admin_name")
		Session("password") = RS("password")
		Session("Logintries") = 0
		
		RS.Close
		Connection.Close
		End If
	End If
%>

sedan i varje fil som jag endast vill admin skall komma åt har jag includerat följande fil.

och den ser ut så här:

<%

If Session("admin_name") = "" Then
Response.Redirect("../../fel.asp")
End If

%>

men jag kan även om jag inte är inloggad komma åt följande sida... har fungerat innan, men inte nu ??

AGMedlem sedan mars 20001 266 inlägg

6 juni 2000 17:12#2

Nja, jag kände igen exemplet från mikrodtorn så jag utgick ifrån att det exemplaret jag hade fungerade.
JAg utgick från att admin_name inte var en räknare utan loginet, ganska självklart tror jag .

Det jag då skulle vilja byta ut är:
If Session("admin_name")="" Then
till:
If Session("adminId")="" Then
detta för att kolla databas posten,
det skulle betyda att du även får byta ut:
<%
If Session("admin_name") = "" Then
Response.Redirect("../../fel.asp")
End If
%>
till:
<%
If Session("adminId") = "" Then
Response.Redirect("../../fel.asp")
End If
%>

Testa det det är vad jag tippar på skulle vara fel.

Andreas

emissionMedlem sedan dec. 19996 721 inlägg

6 juni 2000 20:52#3

Skumt....

Det enda jag kan tipsa om är att köra

<%
If Session("admin_name") = "" Then
Response.Redirect("../../fel.asp")
else
Response.Write Session("admin_name")
End If
%>

Kom också ihåg att sätta Session("admin_name") till tomma strängen, om man misslyckas med inloggningen.

[Redigerat av emission den 06 jun 2000]