Nuevo código fuente de visitante
(1) Contador simple
ASP contiene cinco "componentes de servidor activos" integrados (componentes de servidor ActiveX). Es decir, componente de acceso a bases de datos, componente de acceso a archivos, componente de rotación de anuncios, componente de capacidad del navegador y componente de enlace de contenido. El contador que vamos a diseñar a continuación se implementa leyendo y escribiendo archivos del servidor a través del componente de acceso a archivos. La idea del algoritmo es: utilizar un archivo de texto (ASCII) para almacenar el valor de recuento en el servidor. Cada vez que se accede a la página, el valor se lee del archivo y se muestra al usuario. se suma a 1 y el valor aumentado se reescribe en el documento.
La declaración ASP y la descripción para escribir datos en el archivo de recuento del servidor son las siguientes:
CounFile = Servidor. MapPath("El nombre de archivo utilizado para almacenar el valor del contador")
El método de acceso al servidor MapPath(ruta) convierte la ruta del archivo que almacena el valor del contador en una ruta física.
Establecer FileObject=Servidor. CreateObject("Script. File System Object")
Utilice el método CreateObject para definir el objeto FileSystemObject.
Set OutStream=Servidor. CreateTextFile(FileObject, True, False)
Utilice el método CreateTextFile proporcionado por el objeto FileSystemObject para generar un archivo de texto. El parámetro "True" significa sobrescribir el archivo original y "False" significa que el archivo es ASCII. tipo.
Salida. WriteLine "datos a escribir"
flujo de salida. WriteLine escribe una línea de datos en un archivo.
La sintaxis ASP para leer datos de un archivo de servidor es la siguiente:
CounFile = Servidor. MapPath("El nombre del archivo utilizado para almacenar el valor del contador")
Set FileObject=Server. CreateObject("Script. Objeto del sistema de archivos")
Establecer InStream=Servidor. OpenTextFile(FileObject, 1, false, false)
Utilice el objeto FileSystemObject para proporcionar el método OpenTextFile para generar un archivo de texto.
El parámetro "True" significa sobrescribir el archivo original y "Falso" significa que el archivo es de tipo ASCII.
"Datos para leer" = InStream. Línea de lectura
En la corriente. ReadLine es una línea de datos leída de un archivo.
El siguiente es un ejemplo de contador (simplecounter.asp) que utiliza ASP para implementar la función de contador de páginas. He comentado la declaración en detalle en el código. Puede pegar el código a continuación en el código de la página que necesita contar. Por supuesto, su servidor debe admitir ASP. Cree un archivo de texto simplecounter.txt con un contenido de 0 en el directorio donde se encuentra la página de inicio.
Contador ASP simple código simplecounter.asp y comentarios;
& lt%
CountFile = servidor. MapPath("simplecounter.txt ")
El archivo aspconter.txt es un archivo de texto que se utiliza para almacenar números. El contenido inicial es generalmente 0.
Establecer FileObject=Servidor. CreateObject("Script.FileSystemObject")
Establecer=FileObject. OpenTextFile(CountFile, 1, FALSE, FALSE)
Contador = Fuera. ReadLine
Lee el valor en el archivo del contador.
Fuera. Cerrar
Cerrar archivo
Establecer FileObject=Servidor. CreateObject("Script.FileSystemObject")
Establecer=FileObject. CreateTextFile(CountFile, TRUE, FALSE)
Application.lock
El método Application.lock evita que otros usuarios cambien el valor del contador.
Contador = contador + 1
El valor del contador aumenta en 1.
Fuera. WriteLine(Counter)
Escribe el nuevo valor del contador en el archivo.
Application.Unlock
El uso del método Application.unlock permite a otros usuarios cambiar el valor del contador.
Respuesta. escribir("Eres el primero")
Respuesta. Write(" & ltfont color = red & gt")
Respuesta. write(counter)
Envía el valor del contador al navegador y lo muestra en rojo al usuario.
Respuesta. Escribir(" & lt/font >)
Respuesta. Escribir("Invitado")
Salir. Cerrar
Cerrar archivo
% & gt
(2) Separación de contador y página
En aplicaciones prácticas, la página principal y el programa de contador están separados, es decir, agregando un código de referencia a la página que necesita para contar Se puede lograr el recuento de páginas. Este es el caso de los contadores gratuitos que a menudo solicitamos en línea, pero generalmente se crean con CGI. Aquí solo necesitamos modificar ligeramente el contador simple que creamos con ASP. una declaración de JavaScript a la página Al hacer referencia a ella, puede implementar la función de contador separada de la página. Esto es muy conveniente para contar la página principal o páginas específicas. Obviamente, solo necesita cambiar el nombre del archivo del valor del contador. y el nombre del archivo del código fuente asp del contador. Se pueden implementar múltiples contadores
código Txtcounter.asp para contadores separados de la página:
& lt%
<. p>CountFile = Server.txt ")Set FileObject=Server.CreateObject("Script.File System Object")
Set Out=FileObject.OpenTextFile(CountFile, 1, FALSE , FALSE)
Contador=Out. ReadLine
Cerrar
Establecer FileObject=Server.CreateObject("Script.FileSystemObject")
Establecer = FileObject. CreateTextFile(CountFile, TRUE, FALSE)
Application.Lock
Contador = Contador + 1
Fuera. application.unlock
Respuesta al escribir "document . write(& counter &")"
Para mostrar el valor del contador correctamente en la página, llame a la función VBScript Document.write .
Fuera.
Cerrar
% & gt
Agrega el siguiente código al número de páginas a contar:
& ltp & gt
Eres primero
& ltfont color = red & gt
& ltscript language = " JavaScript " src = " http://202.101.209 .75/ASP temp/counter/txt counter . ASP ";& gt
//Al hacer referencia, preste atención al servidor y la ruta del directorio donde se encuentra el contador ASP.
& lt/script & gt;
& lt/font & gt;
Willek
& lt/p & gt ;