Questo sito utilizza i cookie per personalizzare i contenuti e gli annunci (Google AdSense), fornire le funzioni dei social media (condivisione degli articoli) e analizzare il traffico (Google Analytics). Inoltre fornisce informazioni sul modo in cui utilizzi il sito alle agenzie pubblicitarie, agli istituti che eseguono analisi dei dati web e ai social media miei partner (Google). Il proseguimento nella navigazione implica un tacito assenso all'utilizzo dei cookies. Se non sei d'accordo sull'utilizzo, ti invito ad allontanarti da questo sito. Visualizza i dettagli.

Venerdì 9 Dicembre 2016

Valutazione attuale: 0 / 5

Stella inattivaStella inattivaStella inattivaStella inattivaStella inattiva
 
Lo script che segue permette di eseguire un determinato numero di volte una pagina asp o parte di essa, nell'arco di tempo di un giorno.

Per fare questo, ad ogni caricamento della pagina viene prelevata la data, per essere poi comparata con un valore numerico memorizzato all'interno di un file di testo.
Inoltre nello stessso file, nel caso della prima esecuzione nella giornata, viene scritto il valore predefinito della variabile add la quale determina il numero massimo di volte che potrà essere eseguito una certa parte di codice.
Questo valore viene decrementato ad ogni richiesta della pagina, fino a raggiungere lo zero: a quel punto il codice in oggetto non verrà più eseguito.

Prima di provare il tutto, si deve creare un file .txt nel quale inserire nelle prime due righe altrettanti valori numerici qualsiasi purchè di tipo integer, che serviranno solo a non causare un errore di runtime durante la prima lettura.

Il file deve essere posizionato in una cartella con permessi di lettura e scrittura.

<SCRIPT LANGUAGE="JScript" RUNAT=Server>
var x
var y
x = new Date()
y = (x.getDate())
</SCRIPT>
<%

' esecuzioni massime (x-1)
add = 3

Set fso = CreateObject("Scripting.FileSystemObject")
mgiorno = Server.MapPath("./tuofile.txt")
Set a = fso.OpenTextFile(mgiorno)
ngio = CInt(a.ReadLine)
conta = CInt(a.ReadLine)
a.Close

Set a = fso.CreateTextFile(mgiorno, True)

if y<>ngio  then
  conta = add
  volte = conta
  a.WriteLine(y)
  a.WriteLine(conta)
else
  volte = conta - 1
end if

a.WriteLine(y)
a.WriteLine(volte)
a.close
Set a = Nothing

if conta > 0 then
  ' Qui mettete il codice che desiderate sia eseguito
  ' max x volte al giorno

  Response.write "questo codice potrà essere eseguito "&_
                "ancora " & volte & " volte oggi."
else

  ' qui il codice che venga restituito dopo x esecuzioni
  ' al giorno

  Response.write "codice eseguito dopo " & (add+1) &_
                " reload della pagina nello stesso giorno"

end if

%>