3 svar · 201 visningar · startad av foppa
Hej,
Jag har ett par lösenordsskyddade sidor dit endast registrerade användare har tillträde. All användarinfo sparas i en accessdatabas, men jag skulle vilja komplettera detta med en funktion som automatiskt tidsbegränsar kontot till 365 dagar från aktivering. Efter detta skall en alternativ sida visas.
Någon som har bra tips?
// Foppa
Lägg den här koden i en fil om du inkluderar på alla sidor på sidan/default-sidan:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
strSQL = "DELETE FROM tabell WHERE regDatum <= #" & DateAdd("d", -365, Date()) & "#"
objConn.Execute(strSQL)
objConn.Close : Set objConn = Nothing
Sebbe skrev:
Lägg den här koden i en fil om du inkluderar på alla sidor på sidan/default-sidan:
Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb") strSQL = "DELETE FROM tabell WHERE regDatum <= #" & DateAdd("d", -365, Date()) & "#" objConn.Execute(strSQL) objConn.Close : Set objConn = Nothing
Var någonstans står det att han vill radera den användare vars tid har gått ut?
Nåt sånt här borde väl likna lösningen, även om min syntax i DATEDIFF kan vara fel:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
strSQL = "SELECT * FROM tabell WHERE UserId = " & session("UserId") & " AND DATEDIFF(dd,regDatum," & Date & ") & " < 365"
Set rs = objConn.Execute(strSQL)
If rs.eof Then bRedir = 1
Set rs = nothing
objConn.Close
Set objConn = Nothing
If bRedir Then Response.Redirect "annansida.asp"