Texto Contador

Postado em 4. De março de 2009 em ASP por admin

Agora crie uma pasta chamada contadores ou você pode chamar-lhe outra coisa se você quiser apenas lembrar e alterar o código acima. Agora, criar um arquivo de texto chamado counter1.txt e digitar o que você deseja iniciar a contagem em.

<% @ Language = VBScript%>
<%
Dim fso
Set fso = Server.CreateObject ( "Scripting.FileSystemObject")
/ / esse é o caminho para o arquivo counter1.txt
counter = Server.MapPath ( "/ Contadores") & "\ counter1.txt"
/ / abre o arquivo de texto
Definir InStream = fso.OpenTextFile (counter, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / incrementar o oldcount até 1 e armazenar em newcount
newCount = oldCount + 1
Definir OutStream = fso.CreateTextFile (counter, True)
/ / cópia newcount para o arquivo de texto
OutStream.WriteLine (newCount)
%>

Agora você deve colocar o folllowing onde deseja que o contador para aparecer em seu site

<% = NewCount%>

Related posts:

  1. Mais precisas texto counter Este é um contador mais precisos do que o nosso exemplo anterior ...
  2. Exibir um arquivo CSV Exibir um arquivo CSV são comuns formatos para ...
  3. Salvando um arquivo CSV para um banco de dados Crie um banco de dados no acesso chamado stock.mdb. Agora, criar ...
  4. rndimage1 Esta é uma imagem aleatória simples script que é ideal ...
  5. Escreve para um arquivo texto Este exemplo utiliza fluxos de escrever um texto para o arquivo ...

Lugares ligados trazido a você por Yet Another Related Posts Plugin.

Postar um comentário