Ho scritto il seguente codice di un contatore salvandolo col nome counter2.asp
e poi ho scritto il codice che segue (per richiamare il codice precedente) salvandolo col nome counter2.htmlcodice:<% Response.Expires = 0 Set fs = CreateObject("Scripting.FileSystemObject") Percorso = Server.MapPath("conta.txt") Set a = fs.OpenTextFile(Percorso) conta = CInt(a.ReadLine) If Session("conta") = 0 then Session("conta") = conta conta = conta + 1 a.Close Set a = fs.CreateTextFile(Percorso, True) a.WriteLine(conta) End If a.Close %> var str = "<%= conta %>"; document.write("visitatori:"); var begin = "<img src="http://www.leonardodavincicatania.co...ript/counter2/"; var middle = ".gif\" alt=\""; var last = "\">"; for(x = 0;x < str.length; x++) { str1 = str.charAt(x); document.write( begin + str1 + middle + last); }
E infine ho poi posto nella cartella counter2: counter2.asp, counter2.html, le immagini delle cifre 0.gif, 1.gif, ..., 9.gif e il file di testo conta.txtcodice:<!DOCTYPE html> <html> <head> <meta charset="UTF-8"> <title>...</title> </head> <body> <script language="javascript" src="http://www.leonardodavincicatania.co....asp"></script> </body> </html>
Ho poi posto la cartella counter2 nella cartella Javascript e questa tra le cartelle del mio sito:
http://lwww.eonardodavincicatania.com
Come si può anche provare, usando il mio URL, il contatore così ora non funziona, mentre il contatore ha funzionato perfettamente quando ho posto la cartella counter2 sul mio server locale:
con la riga: var begin = "<img src=\"http://localhost/counter2/";
al posto della riga: var begin = "<img src="http://www.leonardodavincicatania.co...ript/counter2/";
nel primo codice
e con la riga: <script src="counter2.asp"></script>
al posto di: <script language="javascript" src="http://www.leonardodavincicatania.co....asp"></script>
nel secondo codice, per richiamare il primo.
Penso che ci siano errori nelle due righe che ho sostituito nel mettere il contatore online:
ho fatto molte varianti, ma la console mi dà vari tipi di errore, per es: counter2.asp:1 Failed to load resource: the server responded with a status of 500 (Internal Server Error)
Desidererei un aiuto. Grazie
lanvoel