Login igen igen

Det mest logiske ville være at du i en tabel der indeholder brugeroplysninger angiver nogle retteigheder.

Når så brugerne logger ind skal disse rettigheder tjekkes og alt afhængig af hvilke rettigheder brugeren har får brugeren adgang til nogle bestemte sites/links m.v.!

Ved ikke helt hvordan det skal laves, men det lyder til at det er den struktur du mangler! ;o)

Det der forhindrer at brugeren ryger forbi loginsiden får du her:

<%
If isEmpty(Session(\"adgang\")) Then
    Response.Redirect(\"retry.asp?error=ja\")
    If Session(\"login\") = True Then
        Response.Redirect(\"login.asp\")
    End If
End if
%>

webbe:> hvorfor så meget kode for så lidt ?

<% If Session(\"isSecure\") = \"\" Then Response.Redirect \"login.asp\" %>

er alt

din db:

userTable:
ID
username
password
redirectPage

ditt script:


<%
Dim userName, passWord, redirectPage
if( Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" ) then       
  userName = Request.Form(\"userName\")
  passWord = Request.Form(\"passWord\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") 
  SQL = \"SELECT * FROM userTable WHERE username LIKE \'\" & userName & \"\' AND password LIKE \'\" & passWord & \"\'\"
  Set RS = Conn.Execute( SQL )
  if( NOT RS.EOF ) then
    response.redirect( RS(\"redirectPage\") )
  end if       
%>

<html>
<body>
<form action=\"\" method=\"POST\">
  <input type=\"text\" name=\"userName\"><br>
  <input type=\"text\" name=\"passWord\"><br>
  <input type=\"submit\"><br>
</form></body>
</html>

tdaugaard:

Hmmm - er bare noget gammel kode, som jeg har overtaget da jeg startede i mit job! ;o)

Har ikke spekuleret på at gøre det anderledes, men kan godt se fordelen i at bruge mindre kode! ;0)

nute: Virker REQUEST_METHOD også ? Jeg plejer at bruge HTTP_METHOD .. :o)

nute >> hvad skal jeg skrive i toppen af siderne kunden har adgang til for at chekke om han nu også har adgan. Hvis nu kunden hedder eks. StoreTown ?

webbe:> *G* well .. nu er jeg ret så perfektionistisk når jeg koder sååe .. optimering er også noget jeg selv bruger meget tid på :o)

tdaugaard >> REQUEST_METHOD fungerer fint :)

bobbedude >> kan du ikke løse dette med cookies

/nute

nute >> sikkert men jeg er ikke en haj i ASP og Cookies :ø)

lær om cookies her:

http://www.html.dk/tutorials/asp/lektion13.asp

/nute

Nute >> første gang jeg loggede ind fik jeg denne fejl:
Expected \'End\'

/login.asp, line 11

under det sidste ( end if ) tilføjede jeg endnu en ( end if ) så kom login boksen frem men når jeg skrev brugernavn og password fik jeg denne fejl :

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'Conn\'

/login.asp, line 6

uups...bytt denne linje:

Dim userName, passWord, redirectPage

ut med disse to:

Dim Conn, RS, userName, passWord, redirectPage
set Conn = SErver.CreateObject(\"ADODB.Connection\")

/nute

Fedest Nute det virker perfekt.
Jeg ved at du sendte mig den side on Cookies, men jeg er vist lidt fat svag hvad programmering gælder. Så skal jeg oprette et nyt spørgsmål for at få svar på hvordan jeg laver det cookie triks med scriptet. det er ok hvis du vil have point for at lave det.

jeg ville ha byttet ut disse linjene:

<%
Dim userName, passWord, redirectPage
if( Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" ) then       
  userName = Request.Form(\"userName\")
  passWord = Request.Form(\"passWord\")
 

med disse:

<%
Dim userName, passWord, redirectPage
if( Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" ) then       
  userName = Request.Form(\"userName\")
  passWord = Request.Form(\"passWord\")
  Response.Cookies(\"MyCookie\")(\"userName\") = userName

deeretter kan du på toppen av siden gjøre følgende:

<%
Dim userAllowed, userName
userAllowed = \"enBruger\"
userName    = Request.Cookies(\"MyCookie\")(\"userName\")
if NOT( userAllowed = userName ) then 
  response.redirect \"login.asp\"
end if
%>

userAllowed kan også være en array av brukernavn som har tilgang til denne side...kan det brukes ?

nute >> du er en haj :ø)

:) takker :)

nute>> et array kunne det se sådan ud
userAllowed = \"Stores,users\"
eller hvad skal jeg bruge som seperator ?

en enkel måte å gjøre det på (hvis du skal lage array med hvem som har tilgang til siden:

<%
Dim strUserAllowed, arrUserAllowed, userName, found
found = false
strUserAllowed = \"enBruger,toBruger,treBruger,fireBruger\"
arrUseAllowed = SPLIT( strUserAllowed )
userName    = Request.Cookies(\"MyCookie\")(\"userName\")
for i=0 to UBOUND( arrUserAllowed )
  if ( arrUserAllowed(i) = userName ) then 
    found = true
    exit for
  end if
next
if NOT found then
  response.redirect \"login.asp\"
end if
%>

Tusind tak nute

anytime :)

hey nute når jeg kører overstående kommer denne fejl:

Microsoft VBScript runtime error \'800a000d\'

Type mismatch: \'UBOUND\'

/admin.asp, line 7

ahhhh .... bytt ut denne:

arrUseAllowed = SPLIT( strUserAllowed )

med denne:

arrUseAllowed = SPLIT( strUserAllowed, \",\" )

/nute

Microsoft VBScript runtime error \'800a000d\'

Type mismatch: \'UBOUND\'

/admin.asp, line 7

kommer stadig frem:


<%
Dim strUserAllowed, arrUserAllowed, userName, found
found = false
strUserAllowed = \"enBruger,toBruger,treBruger,fireBruger\"
arrUseAllowed = SPLIT( strUserAllowed, \",\" )
userName    = Request.Cookies(\"MyCookie\")(\"userName\")
for i=0 to UBOUND( arrUserAllowed )
  if ( arrUserAllowed(i) = userName ) then 
    found = true
    exit for
  end if
next
if NOT found then
  response.redirect \"login.asp\"
end if
%>