Red de conocimiento informático - Aprendizaje de código fuente - Nuevo código fuente de visitante

Nuevo código fuente de visitante

Active Server Pager (ASP para abreviar) puede implementar fácilmente la función de contador de páginas leyendo y escribiendo archivos desde el servidor, combinado con lenguaje de secuencias de comandos (VBscript o Jscript) y código html. Los libros de texto ASP populares y los tutoriales de ASP en Internet han hablado sobre el diseño de contadores ASP, pero son demasiado simples, como cómo separar el script del contador de la página principal y cómo implementar el contador de imágenes. Este artículo combina la experiencia del autor en la creación de sitios web NT y ofrece un ejemplo de diseño paso a paso de contadores ASP. Espero que pueda inspirar a los principiantes de ASP y a los internautas interesados ​​en la programación WEB de ASP.

(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 ;