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.
<!--#include file="../admin.inc"-->
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 :) ??
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.
