Beskyttelse af data i et døgns tid

har du selv lavet et login script

60 point = svært spørgsmål


www.fotx.net/dumdum

har du access

pepsi > Jada - min db er i access og ja jeg har lavet login script.
Problemet er at et særskilt udtræk af min db-tabel skal være forbeholdt reg. brugere og først være tilgængeligt for ikke-reg efter 24 timer...

...WHERE datofelt<date()-1

sone > Hvordan smækker man det tidspunkt hvor indholdet smækkes fra formen til tabellen ind i db\'en?

I denne metode skal du indsætte et datofelt rs(\"dato\") i din database hvor standardværdien er Now()

------Login.asp------

<html>
<head>
<title>Login</title>
</head>
<body>
<%
Select Case Request.QueryString(\"mode\")
case \"fejl\"
Response.Write \"Brugeren findes ikke, har du ikke allerede har oprettet en bruger kan du gøre det nu helt gratis\"
end select

Select Case Request.QueryString(\"mode\")
case \"ok\"
Response.redirect (\"forside.asp\")
end select

Select Case Request.QueryString(\"mode\")
case \"forbudt\"
Response.write \"Du skal være logget ind på for at se denne side, hvis du ikke allerede har oprettet en bruger kan du gøre det nu helt gratis\"
end select
%>
<form Method=\"post\" action=\"loginok.asp\">
<table cellspacing=\"0\">
<tr bgcolor=\"#0000A0\">
<td><font color=\"#FFFFFF\"><b>Login</b></font></td>
<td></td>
</tr>
<tr bgcolor=\"#FFFFFF\">
<td>Brugernavn</td>
<td><input type=\"text\" name=\"brugernavn\"></td>
</tr>
<tr bgcolor=\"#CFD7FA\">
<td>Password</td>
<td><input type=\"password\" name=\"password\"></td>
</tr>
<tr bgcolor=\"#FFFFFF\">
<td>
<%
Select Case Request.Querystring(\"mode\")
Case (\"forbudt\")
    Response.Write  \"<a href=nybruger.html>Opret bruger</a>\"
Case (\"fejl\")
    Response.Write  \"<a href=nybruger.html>Opret bruger</a>\"
End Select
%></td>
<td><div style=\"text-align:right\"><input type=\"submit\" value=\"Login\" name=\"Action\"></div></td>
</tr>
</table>
</form>
</body>
</html>

-----Loginok.asp-----

<%
session(\"navn\") = Request.Form(\"brugernavn\")
session(\"password\") = Request.Form(\"password\")

bruger = Trim(Replace(request.form(\"brugernavn\"),\"\'\",\"\'\'\" ))
password = Trim(Replace(request.form(\"password\"),\"\'\",\"\'\'\" ))

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"data.mdb\")
Conn.Open DSN
strSQL = \"Select * from bruger Where brugernavn = \'\" & bruger & \"\' And password = \'\" & password & \"\'\"
Set rs = Conn.Execute (strSQL)
If not rs.EOF Then
    Session (\"login\") = \"1\"
    Response.Redirect(\"beskyt.asp\")
Else
    Session (\"login\") = \"0\"
    Response.Redirect (\"login.asp?mode=fejl\")
End If

Conn.Close
Set Conn = Nothing
%>

-----Beskyttet side------

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"Dindatabase.mdb\")
strSQL = \"Select * from tabel\"
Set rs = Conn.Execute (strSQL)

dato = rs(\"dato\")

If Session(\"login\") = 1 Or DateDiff (\"s\", Now, dato) < 86001  Then
\'Her skriver du alle
Else
\'her skriver du dine kolonner undtagen den der ikke må ses
Response.Write \"hejsda\"
End If

%>

< 86001 Laves om til 86401

< 86401

Brug now():
UPDATE tabel SET datotidsfelt=now() WHERE id=3

Tak skal I ha\' begge to - vil prøve det i løbet af de kommende dage - og så skal I nok få point :o)