Avatar billede firefox Nybegynder
23. januar 2000 - 22:40 Der er 9 kommentarer og
2 løsninger

Admin check

Hvordan får jeg et ASP-script til at checke om en bruger ahr admin-status i en Access database, og derefter loade admin-siden?
Avatar billede wall Nybegynder
23. januar 2000 - 22:57 #1
Hej!

Du kan bruge denne her:

    If CHECKFOR = "Basic" Then
        If Session("ACCESS_LEVEL") = "Basic" or Session("ADMIN") = "True" or Session("ACCESS_LEVEL") = "Full" Then
        Else
            Session("PASSWORDACCESS") = "No"
        End If
    End    IF
   
    If CHECKFOR = "Full" Then
        If Session("ACCESS_LEVEL") = "Full" or Session("ADMIN") = "True" Then
        Else
            Session("PASSWORDACCESS") = "No"
        End If
    End    IF
   
    If CHECKFOR = "ADMIN" Then
        If Session("ADMIN") = "False" Then
            Session("PASSWORDACCESS") = "No"
        End If
    End    IF

Mvh

<% Wall %>
Avatar billede firefox Nybegynder
23. januar 2000 - 22:59 #2
Jeg benytter iøjeblikket den sidste, men den giver mig bare den side, som alle brugere skal kunne se... Jeg får ikke admin-siden..
Avatar billede tdaugaard Nybegynder
24. januar 2000 - 01:23 #3
Hvilket felt indeholder ADMIN status i databasen ??

Er det en simpel

If bla = bla Then
  Response.Redirect "admin.asp"
Else
  Response.Redirect "users.asp"
End If

Eller er den mere komplex ??

Skriv noget af din kode så man har noget at gå ud fra ...

Avatar billede richardr Nybegynder
24. januar 2000 - 01:49 #4
Du kan, hvis du har en checkbox i databasen, der vælger true eller false alt efter om det er en admin eller ik.
Så kan du bruge

If Not (Session("CheckAdmin") = "True" ) Then
    Response.Redirect("admin.asp")
Else
    Response.Redirect("user.asp")
End If
Avatar billede richardr Nybegynder
24. januar 2000 - 01:50 #5
Ups...
Det skulle være
If (Session("CheckAdmin") = "True" ) Then
Avatar billede tdaugaard Nybegynder
24. januar 2000 - 01:59 #6
DbPath = "din_database_path"
Set ConnectDB = Server.CreateObject("ADODB.Connection")
Set CmdEditEntry = Server.CreateObject("ADODB.Recordset")
ConnectDB.Open "DBQ=" & DbPath & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT items.* FROM items"
CmdEditEntry.Open SQL, ConnectDB

If CmdEditEntry("Admin") = True Then
    Response.Redirect "admin.asp"
Else
    Response.Redirect "user.asp"
End If

Note: "items.*" og "items" er selvfølgelig dets respektive representanter i din egen database.
Avatar billede firefox Nybegynder
24. januar 2000 - 18:11 #7
richardr: Det virker stadig ikke. Jeg gør et eller andet galt, jeg ved bare ikke hvad... Det er et script, jeg har downloadet fra nettet, og som bare skulle tilpasses mit site.
Avatar billede richardr Nybegynder
24. januar 2000 - 21:35 #8
kontakt mig på hjaelp@richardrichard.dk
så kan vi finde ud af et eller andet..
Avatar billede phylox2 Nybegynder
27. januar 2000 - 22:19 #9
Har du fundet ud af noget Firefox - for hvis det er, så kunne jeg også bruge det script ?
Avatar billede firefox Nybegynder
27. januar 2000 - 22:37 #10
Jeg har ikke fundet ud af noget endnu, Phylox2.. Desværre
Avatar billede phylox2 Nybegynder
09. februar 2000 - 22:54 #11
Hmm ... du har da accepteret svarene ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester