On 01 Jul 2006 11:17:50 GMT, Ulrik Christensen
<boxerfynNOSPAM@gmail.com> wrote:
>Under stats protection er der 3 muligheder for protection level:
>none
>limited
>full
>
>Hvad skal jeg vælge?
>Jeg har selvfølgelig angivet et password som skal bruges for at logge
>på statistiksiden, derfor er jeg i tvivl om hvad disse levels betyder.
Ja, det er heller ikke helt logisk for mig - og italiensk er heller
ikke min stærke side, men ...
Så vidt jeg kan se, så er nøglen til det hele funktionen (sub'en)
AllowEntry [1], som køres i toppen af hver side:
Call AllowEntry("False", "False", "False", intAsgSecurity)
intAsgSecurity er den værdi, der hentes fra databasens config-tabel
(altså den du har valgt)
De 3 første parametre skal du så selv sætte op for hver enkelt side.
Der er, som du skriver 3 protection levels, og ved at sætte de 3
værdier til "True" eller "False", bestemmer man, om der er adgang til
den enkelte side ved det valgte protection level.
NB: Det er efter min mening ikke en særlig hensigtsmæssig måde,
beskyttelsen er lavet på.
Hvis du fx sætter ("False", "False", "True", ..), er der adgang til
siden ved højeste protection level, men ikke ved de andre - det er jo
logisk nok.
Men hvis du fx sætter ("True", "False", "False", ..), er der adgang
til siden ved *laveste* protection level, men ikke ved de andre
(højere) - og det er jo ikke særligt logisk.
Så du skal huske, at hvis du sætter "True" for laveste, skal du selv
sætte "True" for de 2 andre - altså en af disse 3 muligheder:
"True", "True", "True" ' adgang for alle niveauer
"False", "True", "True" ' adgang for 2. og 3. niveau
"False", "False", "True" ' adgang for 3. niveau
Håber det giver mening - og at jeg har forstået det rigtigt
[1]
Funktionen ser således ud:
function AllowEntry(ByVal nessuno, ByVal limitato, ByVal completo,
ByVal protezione)
Dim aryAsgPermetti(2)
aryAsgPermetti(0) = CBool(nessuno)
aryAsgPermetti(1) = CBool(limitato)
aryAsgPermetti(2) = CBool(completo)
If aryAsgPermetti(protezione) = False Then
If Session("AsgLogin") <> "Logged" Then
'Pulisci
Set objAsgRs = Nothing
objAsgConn.Close
Set objAsgConn = Nothing
'Indirizza
Response.Redirect("login.asp?backto=" &
Server.URLEncode(Request.ServerVariables("URL")))
End If
End If
end function
Good luck!
--
Jørn Andersen,
Brønshøj