Créer un compteur de hits

Question

J'essaye de créer un compteur de visites dans VBScript sur une page HTML pour des besoins spécifiques du client. Je ne peux pas utiliser les compteurs de succès disponibles gratuitement.

Mon problème est que mon code ne trouve que le fichier texte sur mon ordinateur portable (Local C: \ drive) et non sur le site Web, même si le fichier existe. Mon autre problème est que lorsque le code de la page atteint la ligne server.creatobject, j'obtiens l'erreur Microsoft VBScript runtime error: Object required: 'server'.

J'écris principalement dans VB mais le client veut une page HTML spécifique et PAS ASP/ASPX. Quelqu'un peut-il m'aider s'il vous plaît? J'ai essayé pendant un certain temps et ne peux pas obtenir une réponse décente à mes questions ci-dessus.

Ci-dessous le code.

<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 

Dim fso 
dim tso 
dim FilObject 
dim VisitorCount 
dim strOutputName 
dim objOutputfile 
strfilename ="counter.txt" 

set fso=server.createobject("scripting.filesystemobject") 


set filobject=fso.getfile(strfilename) 
set tso=filobject.openastextstream 

visitorcount=clng(tso.readall) 
visitorcount=visitorcount + 1 
stroutputname=strfilename 
set objoutputfile=fso.createtextfile(stroutputname,true) 

objoutputfile.writeline visitorcount 

document.write(visitorcount) 
</script> 

Answer 1

... le client veut une page HTML spécifique et NON ASP

Mais vous avez écrit un script ASP (runat="server" en utilisant le langage de script VBScript). L'objet Server est uniquement disponible dans ASP. Votre fichier devra être un fichier .asp (ou en quelque sorte traité par le serveur comme ASP), sinon votre script sera exécuté en tant que VBScript côté client et l'objet Server ne sera pas disponible, ce qui est l'erreur que vous semblez obtenir.