Logo Hardware.com.br
mjs
mjs Ubbergeek Registrado
9.4K Mensagens 2 Curtidas

Contador, alguém sabe?

#1 Por mjs 21/06/2003 - 01:24
Pessoal estou desenvolvendo um contador simples que vai computar os page views, mas eu quero que ele sempre adicione um número no arquivo e não adicione do lado, como está acontencendo, vejam aqui:


<%

Dim Lercont, GravarCont, fs,linha

Set fs = Server.CreateObject("Scripting.FileSystemObject&quot

Set Lercont = fs.OpenTextFile(Server.MapPath("/dicaslnx/db/Contador/contador.txt&quot,1)

Do While Lercont.AtEndOfStream <> True

linha = Lercont.ReadLine

Response.Write linha

Loop

Lercont.Close

Set GravaCont = fs.OpenTextFile(Server.MapPath("/dicaslnx/db/Contador/contador.txt&quot,8)

linha = (int(linha + 1))

Response.Write linha

%>

Funciona, ele adicona se eu colocar o GravaCont.Write = linha, mas ele grava assim 123456 em sequência... mas eu queria que ele não adicionasse um ao lado do outro sim somasse e deixa o arquivo apenas com o número da visita, ou então que ele limpasse o arquivo depois de ler o número e gravasse o novo número, alguém tem alguma idéia?
set simples desenvolvendo adicione page fs contador computar lercont
mjs
mjs Ubbergeek Registrado
9.4K Mensagens 2 Curtidas
#3 Por mjs
22/06/2003 - 01:37
Já que ninguém pode me ajudar eu consegui resolver parcialmente, criei um contador:



<%

Dim Lercont, GravarCont, fs, contlinha

Set fs = Server.CreateObject("Scripting.FileSystemObject&quot

Set Lercont = fs.OpenTextFile(Server.MapPath("/dicaslnx/db/Contador/contador19786.txt&quot,1)

Do While Lercont.AtEndOfStream <> True

contlinha = Lercont.ReadLine

Loop

Set GravaCont = fs.OpenTextFile(Server.MapPath("/dicaslnx/db/Contador/contador19786.txt&quot,8)

	Do While Lercont.AtEndOfStream = True

	contlinha = (int(contlinha + 1))

	GravaCont.WriteLine contlinha

	Loop

Do While Lercont.AtEndOfStream <> True

Response.Write "<center><a class=cabrdp>" & Lercont.ReadLine & " PageViews</a></center>"

Loop

Set Lercont = Nothing

Set fs = Nothing

Set GravCont = Nothing

%>
|254374| www.linuxhard.org | www.quati.com
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal