Contra el texto

Publicado el 4 de marzo de 2009 en ASP por admin

Ahora crea una carpeta llamada contadores o puede llamar otra cosa, si sólo desea recordar y cambiar el código anterior. Ahora crear un archivo de texto llamado counter1.txt y escriba lo que usted desee para iniciar la cuenta en.

<% @ Language = VBScript%>
<%
Dim fso
Establecer fso = Server.CreateObject ( "Scripting.FileSystemObject")
/ / este es el camino a su archivo counter1.txt
counter = Server.MapPath ( "/ contadores") & "\ counter1.txt"
/ / abrir el archivo de texto
Establecer InStream = fso.OpenTextFile (contador, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / oldcount por el incremento de 1 y almacenar en newcount
newCount = oldCount + 1
Establecer OutStream = fso.CreateTextFile (contador, True)
/ / newcount copia al archivo de texto
OutStream.WriteLine (newCount)
%>

Ahora que las siguientes iniciales lugar donde desea que aparezca el contador en su sitio

<% = NewCount%>

Puestos relacionados con:

  1. Texto más preciso contrarrestar Esta es una más precisa contra el que nuestro ejemplo anterior ...
  2. Mostrar un archivo CSV Mostrar un archivo CSV CSV son comunes a los formatos ...
  3. Guardar un archivo CSV a una base de datos Crear una base de datos en el acceso denominado stock.mdb. Crear ahora ...
  4. rndimage1 Se trata de una imagen aleatoria simple script que es ideal ...
  5. Escribir texto en un archivo En este ejemplo se utiliza para escribir los arroyos en un archivo de texto ...

Puestos relacionados con la traída para usted por otra Relacionado Puestos Plugin.

Publicar un comentario