Que dire de plus
!
tu peux ajouter cet exemple sur le site si il n'est est pas deja, pke ca peu vraiment servire
Merci beaucoup
@+
Fabs
-------------------------------
Réponse au message :
-------------------------------
Content que ça te convienne :)
Petite précision :
Si ta derniere execution est par exemple à 23h59, ton script ne sera plus lancé tant qu'un utilisateur ne se connectera pas entre 23h59 et minuit, ce qui peut prendre des jours !!!
Il faut donc que tu ajoutes un test pour savoir si le résultat est négatif et inférieur à (-1440 + 15) cad
-(24h + 15mn)
Sub myFunction()
'Traitements périodiques ici
End Sub
Sub Application_OnStart()
Application("derniereExecution") = Time()
End Sub
Sub Session_OnStart()
d = Application("derniereExecution")
If (_
DateDiff("n", d, Time()) > 15 Or _
( _
DateDiff("n", d, Time()) < 0 And _
DateDiff("n", d, Time()) > (-1440 + 15) _
) _
) Then
Call myFunction()
End If
End Sub
|
-------------------------------
Réponse au message :
-------------------------------
Hey !!!
vraiment pas con du tous !
ce petit truk me suffira largement !
Merci beaucoup a toi
!!!
@+
Fabs
-------------------------------
Réponse au message :
-------------------------------
Si tu n'as pas accès au serveur et que tu ne peux pas demander à ton hébergeur d'installer un script dessus, la seule solution est la suivante :
Dans le global.asa, tu crées une variable Application("derniereExecution") dans laquelle tu mets l'heure de la derniere execution de ton code.
Tu mets la définition de ta fonction qui doit être executée (appelons la myFunction()) également dans le global.asa.
Dans Session_OnStart(), tu fais un code qui regarde la durée écoulée depuis Aplpication("derniereExecution")
Si elle est supérieure à 15 mn, tu executes myFunction()
Cela ne te donnera pas une execution toutes les 15 mn mais au bout de 15 mn, tu es sur que ta fonction se déclenchera dès l'arrivée d'un nouveau visiteur, ça peut etre un début de solution.
Si tu veux plus précis, tu inclus le test dans chacune de tes pages.
global.asa
Sub myFunction()
'Traitements périodiques ici
End Sub
Sub Application_OnStart()
Application("derniereExecution") = Time()
End Sub
Sub Session_OnStart()
If DateDiff("n", Application("derniereExecution"), Time()) > 15 Then
Call myFunction()
End If
End Sub
|
-------------------------------
Réponse au message :
-------------------------------
hmm...
le blème c ke je peu pas avoir access a internet 24h/24,...
il faudrai ke ce soit le serveur ki fasse ca,...
merci par avance
@+
Fabs
-------------------------------
Réponse au message :
-------------------------------
Soit tu le mets dans un navigateur avec un meta tag pour que la page soit rechargée toutes les 15 mn...
Soit tu en fais un fichier .vbs et tu le mets dans une commande AT (ou dans le plannificateur de taches).
Soit tu en fais un .exe avec VB et tu le mets dans une commande AT.
Soit tu en fais un .exe avec VB et tu y rajoutes un contrôle timer pour déclencher le code toutes les 15 mn.
Tout dépend des outils dont tu disposes et de l'accès que tu as à la machine sur laquelle tu veux l'exécuter...
-------------------------------
Réponse au message :
-------------------------------
Salut,
Comment faire pour k'un code asp soit chargé automatiquement toutes les 15min par exemple,...
mais k'il n'y est pas d'actions de ma part,...
merci par avance
@+
Fabs