|
<% Schemalägg ASP-skript
del 2 %>
Nedan
ser ni ett exempel på hur man kan schemalägga ett
ASP-skript direkt på en sida, utan behov av varkens
Global.asa eller skrivning till någon text-fil.
Koden är rätt så
självförklarande, jag använder ett Applikations-värde
för att hålla reda på när koden skall köras.
Kod (körning 1 gång
per timme):
Dim
Tid1
' --- Kollar när koden kördes sist. ---
Tid1 = CDate(Application("Tid1"))
' --- Kollar om en timme gått ---
If DateDiff("h",Tid1,NOW) >= 1 Then
' --- Här lägger du koden som skall köras.
' --- Kör du IIS5 så kan det vara lämpligt
' --- att lägga koden i en egen fil och
' --- använda Server.Execute.
' --- Uppdaterar tiden. ---
Application.Lock
Application("Tid1") = NOW()
Application.Unlock
End If
|
Det var väl simpelt? :-)
Du kan så klart ändra koden till olika tidsintervall,
nedan ett exempel på körning när en ny dag har börjat.
Kod (körning vid ny
dag):
Dim
Tid1
' --- Kollar när koden kördes sist. ---
Tid1 = Application("Tid1")
' --- Kollar om en ny dag börjat ---
If Tid1 <> Day(Now())
Then
' --- Här lägger du koden som skall köras.
' --- Kör du IIS5 så kan det vara lämpligt
' --- att lägga koden i en egen fil och
' --- använda Server.Execute.
' --- Uppdaterar tiden. ---
Application.Lock
Application("Tid1") =
Day(Now())
Application.Unlock
End If
|
|
