eu baxei um contador de acesss q armazena a informação em um documento de texto (.txt) e eu to tentando entender o q acontece no código e o q tah me matando é como eles fazem pra escrever no arquivo de texto e como eles fazem pra recuperar os valores se alguém estiver apto a me explicar eu agradeço muito!!
ai vai o código q eu peguei e to tentando entender..
<%
' declarando as variáveis
Dim x, FSObject, letot, escrevetot, numacesso, acessos(), nomepag(), apagina
apagina = request.ServerVariables("URL")
Set FSObject = CreateObject("Scripting.FileSystemObject")
nomearquivo=server.mappath("totais.txt")
Set letot = FSObject.OpenTextFile(nomearquivo,1,1)
x=0
cabaco=0
While Not letot.AtEndOfStream
ReDim preserve nomepag(x)
nomepag(x) = letot.ReadLine
If nomepag(x) = apagina Then
ReDim preserve acessos(x)
acessos(x) = letot.ReadLine + 1
contagem = acessos(x)
x = x + 1
cabaco=1
Else
ReDim preserve acessos(x)
acessos(x) = letot.ReadLine
x = x + 1
End If
Wend
letot.Close
Set letot = Nothing
Set escrevetot = FSObject.CreateTextFile(nomearquivo)
x = 0
For Each numacesso In nomepag
escrevetot.WriteLine nomepag(x)
escrevetot.WriteLine acessos(x)
x = x + 1
Next
if cabaco=0 then
contador=1
contagem=1
escrevetot.WriteLine apagina
escrevetot.WriteLine contador
end if
escrevetot.Close
Set escrevetot = Nothing
Set FSObject = Nothing
Response.Write "até o momento, a página "& apagina &" recebeu "& contagem & " visitantes"
%>
desde já valeu!!
Editado: Foi tirado os 'enter' desnecessários do codigo (não chega a ser desnecessário, mas deixava o post gigante.
Pergunta
Ghosty
eu baxei um contador de acesss q armazena a informação em um documento de texto (.txt) e eu to tentando entender o q acontece no código e o q tah me matando é como eles fazem pra escrever no arquivo de texto e como eles fazem pra recuperar os valores se alguém estiver apto a me explicar eu agradeço muito!!
ai vai o código q eu peguei e to tentando entender..
<% ' declarando as variáveis Dim x, FSObject, letot, escrevetot, numacesso, acessos(), nomepag(), apagina apagina = request.ServerVariables("URL") Set FSObject = CreateObject("Scripting.FileSystemObject") nomearquivo=server.mappath("totais.txt") Set letot = FSObject.OpenTextFile(nomearquivo,1,1) x=0 cabaco=0 While Not letot.AtEndOfStream ReDim preserve nomepag(x) nomepag(x) = letot.ReadLine If nomepag(x) = apagina Then ReDim preserve acessos(x) acessos(x) = letot.ReadLine + 1 contagem = acessos(x) x = x + 1 cabaco=1 Else ReDim preserve acessos(x) acessos(x) = letot.ReadLine x = x + 1 End If Wend letot.Close Set letot = Nothing Set escrevetot = FSObject.CreateTextFile(nomearquivo) x = 0 For Each numacesso In nomepag escrevetot.WriteLine nomepag(x) escrevetot.WriteLine acessos(x) x = x + 1 Next if cabaco=0 then contador=1 contagem=1 escrevetot.WriteLine apagina escrevetot.WriteLine contador end if escrevetot.Close Set escrevetot = Nothing Set FSObject = Nothing Response.Write "até o momento, a página "& apagina &" recebeu "& contagem & " visitantes" %>desde já valeu!!
Editado: Foi tirado os 'enter' desnecessários do codigo (não chega a ser desnecessário, mas deixava o post gigante.
Editado por dark0Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.