Webshop, Joakimweb.com

Elektronik- och mekanikrelaterad mjukvara/litteratur. (T.ex schema-CAD, simulering, böcker, manualer mm. OS-problem hör inte hit!)
Användarvisningsbild
squiz3r
Inlägg: 5424
Blev medlem: 5 september 2006, 20:06:22
Ort: Lund
Kontakt:

Inlägg av squiz3r »

Jag gjorde en annan sida nu, ska bli en kom-i-håg lista. Den kollar session-variabeln IsValidAdmin, om den är FALSE så skapar den en annan session variabel med namnet url (där den skriver in sen egen adress), och skickar sedan vidare användaren till Login-sidan. När man har loggat in på den sidan kollar den varifrån man kom (vilket värde det ligger i Session variabeln) och skickar tillbaks personen dit (efter att ha tagit bort url variabeln). Om url variabeln är tom (om man skrev in adressen till login-sidan själv) så låter den personen vara kvar på sidan och skriver bara "Du har nu tillgång till de hemliga siderna" (och då har den ju satt session-variabeln, så att om man går till någon av de privata siderna kommer man in där direkt).

Koden:

Kod: Markera allt

<%@ Language=VBScript %> 
<% 
Response.Buffer = True 


' --- Globala variabler -------------------------- 

Dim ValidAdmin

' --- Subrutiner --------------------------------- 


' --- Funktioner --------------------------------- 


' --- Main kod ----------------------------------- 
ValidAdmin = Session.Contents("IsValidAdmin")

If (ValidAdmin = FALSE) then
	Session("url") = "komihag.asp"
	Response.Redirect"login.asp"
ELSE

%> 

<html> 

<head> 
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> 
<META HTTP-EQUIV=PRAGMA CONTENT="NO-CACHE"> 
<title>Kom ihåg lista</title> 
</head> 

<body > 
<p>Du kan se denna sida!</p>

</body> 

</html>
<% 
END IF 
%> 
Är detta gjort på "rätt sätt" så att det blir säkert? :)
pern
Inlägg: 700
Blev medlem: 14 juli 2004, 08:47:36
Ort: Landskrona

Inlägg av pern »

Det borde funka.
Skriv svar