Loginscript

man kunne lave et extra felt i db som angiver status på bruger (:admin, superuser, alm. bruger). Når der logges ind redirectes der til side XXXX  alt efter hvilken status man har!

Logind siden:

<%
set Conn = SErver.CreateObject(\"ADODB.Connection\")
Dim userName, passWord, redirectPage
if( Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" ) then   
  userName = Request.Form(\"userName\")
  passWord = Request.Form(\"passWord\")
  Response.Cookies(\"Acces\")(\"userName\") = userName
  response.cookies(\"userName\").expires = #01-01-2011#
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"admin/login.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 
  end if     
%>

<html><title>Kunde - Log ind</title>
<body>
<p align=\"center\"><img src=\"images/infostat.gif\"></p>
<p align=\"center\"><font face=\"Arial, Helvetica, sans-serif\" size=\"2\"><b>Statistik
  log ind</b></font><br>
</p>
<form action=\"\" method=\"POST\">
  <div align=\"center\">
    <input type=\"text\" name=\"userName\">
    <br>
    <input type=\"text\" name=\"passWord\">
    <br>
    <input type=\"submit\" value=\"Log ind\">
    <br>
  </div>
</form></body>
</html>


Check om de har lov til at være der:

<%
Dim strUserAllowed, arrUserAllowed, userName, found
found = false
strUserAllowed = \"userName1,userName2,userName3\"
arrUseAllowed = Split(strUserAllowed,\",\")
userName    = Request.Cookies(\"Acces\")(\"userName\")
for i=LBound(arrUseAllowed) To UBound(arrUseAllowed)
  if arrUseAllowed(i) = userName then 
    found = true
    exit for
  end if
next
if NOT found then
  response.redirect \"error.html\"
end if
%>


Din db ser sådan ud


Login.mdb

ID
username
password
redirectpage

Bobledude-> Gider du sende det hele i en mail til  mhl2k@ofir.dk,
Så får du pointsne.

[TH]Yz have spoken

er sendt

bobledude-> Kan du ikke kontakte mig via Icq, #54513422, så vi kan snakke