<% 'El parámetro es el nombre del archivo que llevará la cuenta Function countvisits(counterfilename) Dim fso,filename,f,n Set fso=createObject("scripting.filesystemobject") 'En la siguiente línea, cambia arielmedina1978 por tu directorio en el servidor HTTP filename=request.serverVariables("APPL_PHYSICAL_PATH") & "cgi-bin\" & counterfilename Set f=fso.OpenTextFile(filename,1,1) If f.AtEndOfStream Then n=1 Else n=Trim(f.ReadLine()) n=n+1 End If f.close() Set f=fso.OpenTextFile(filename,2,0) f.writeLine(n) f.close() Set fso=Nothing countvisits=n End Function %>

<% ="Ha sido visto: " & countvisits("counter_pedro_medina_2.txt") & " veces"%>

Ubicación de Lerma en el territorio de Campeche

Para mayor información Escríbale al autor , él cuenta con más material que el que aquí se presenta.

Volver al índice del autor