<% @LANGUAGE = "VBSCRIPT" %> <% Option Explicit %> <% '----------------------------------------------------------------- ' CONTADOR DE VISITAS HTML ' ARGENTINA-HOSTING.COM ' http://www.argentina-hosting.com '----------------------------------------------------------------- 'Definición del dominio sobre el que va a funcionar el contador 'Deberá reemplazar el valor de esta constante por su propio dominio '----------------------------------------------------------------- Const Dominio = "www.canariosmelanicos.com" '----------------------------------------------------------------- 'No necesita modificar nada de aquí para abajo siempre y cuando 'coloque este archivo, la base de datos y la carpeta con los 'dígitos dentro de la carpeta http://mi-dominio.com/contador/ 'La carpeta "contador" necesita permisos de lectura y escritura '----------------------------------------------------------------- Dim Conexion_BD, Incrementar_BD, Leer_BD, Visitas 'Definición y Apertura de la conexión a la base de datos Set Conexion_BD = Server.CreateObject("ADODB.Connection") Conexion_BD.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("\contador\contador.mdb") Conexion_BD.Open 'Incremento del valor del conteo de visitas en la base de datos Set Incrementar_BD = Server.CreateObject("ADODB.Command") Incrementar_BD.ActiveConnection = Conexion_BD Incrementar_BD.CommandText = "UPDATE tabla_contador SET conteo = conteo + 1" Incrementar_BD.Execute Set Incrementar_BD = Nothing 'Lectura de la cantidad de visitas desde la base de datos Set Leer_BD = Server.CreateObject("ADODB.Recordset") Leer_BD.ActiveConnection = Conexion_BD Leer_BD.CursorType = 0 Leer_BD.CursorLocation = 2 Leer_BD.LockType = 3 Leer_BD.Source = "SELECT conteo FROM tabla_contador" Leer_BD.Open Visitas = Leer_BD("conteo") Leer_BD.Close Set Leer_BD = Nothing Conexion_BD.Close Set Conexion_BD = Nothing Dim Digitos, FSO, JS, i Digitos = Len(Visitas) 'Creación del archivo con código JavaScript para mostrar los dígitos Set FSO = CreateObject("Scripting.FileSystemObject") Set JS = FSO.CreateTextFile(Server.MapPath("\contador\contador.js"), true) JS.Write("document.write('") For i = 1 to Digitos JS.Write("") Next JS.Write("')") JS.Close Set JS = Nothing Set FSO = Nothing %>