<%
'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
%>
Descarga de archivos
<% ="Descargas:
" & countvisits("counter_ipsenderc.txt") & "
"%>
La descarga debe iniciarse de forma automática, de no ser así presione aquí
Gracias por usar los servicios de campechedigital.com