Avatar billede jgrantzau Nybegynder
13. september 2002 - 13:27 Der er 2 kommentarer og
1 løsning

automatisk udtræk hver dag

Hej,

jeg har en database hvor der hver nat skal slettes nogle poster, der er blevet for gamle. Hvordan laver jeg et script eller noget,  der f. eks. kl 02.00 hver dag kører de par linier asp kode, der sletter posterne?

mvh julius
Avatar billede sunep Nybegynder
13. september 2002 - 14:02 #1
det skal sættes op på serveren for at det kan lade sige gøre. men der er en anden mulighed. hvis du har nogenlunde mange besøgende. så kan du bruge global.asa filen til at gøre det for dig. der er en meget god artikel om det på activedeveloper http://activedeveloper.dk/aspdigital/2002080801.asp håber det kan hjælpe.
Avatar billede mccannon Nybegynder
13. september 2002 - 14:35 #2
sådan kunne det laves i en global.asa
<script language="vbscript" runat="server">

   
    Sub Application_OnStart
    application("visit") = 0
    end sub
   
    Sub session_OnStart
        Dag = day(now)
        maaned = month(now)
        aar = year(now)
        IF Len(Dag) = 1 THEN
          Dag = 0 & Dag
        END IF
        IF Len(maaned) = 1 THEN
          maaned = 0 & maaned
        END IF
    nydato = aar & maaned & dag
    set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Filesti = Request.Servervariables("APPL_PHYSICAL_PATH")
    Filesti = left(Filesti,19) & "dato.txt"
    File = FSO.FileExists(Filesti)
    IF File = true THEN
      set readfile = FSO.OpenTextFile(Filesti, 1, false)
          olddato = readfile.ReadLine
          readfile.close
        ELSE
          Set filetxt = FSO.CreateTextFile(Filesti, True)
      filetxt.writeline(fildato)
      filetxt.close
        END IF
        IF nydato > olddato THEN
      set Conn = Server.createobject("ADODB.Connection")
        DBsource = Request.Servervariables("APPL_PHYSICAL_PATH")
          DBsource = left(dbsource,19) & "\database\database.mdb"
        conn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" &  DBsource
          SQL = "DELETE from tblprodukter WHERE Dato = " & (nydato) -1
          conn.close
          set conn = noting
       
    end sub

Sub Session_OnEnd
    end sub
</script>
Avatar billede jgrantzau Nybegynder
14. juli 2004 - 13:54 #3
-
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