<% ' Criação do objeto de acesso a arquivos e o nome do arquivo ' -contador.txt- do diretório contador Set FileObj = Server.CreateObject("Scripting.FileSystemObject") nomeArquivo = Server.MapPath ("/contador") & "\contador.txt" ' Leitura do arquivo contador.txt e incremento do número de visitas Set Entrada= FileObj.OpenTextFile (nomeArquivo, 1, false ) Atual = Trim(Entrada.ReadLine) Novo = Atual + 1 ' Criação do arquivo contador.txt e gravação do número de visitas Set Saida= FileObj.CreateTextFile (nomeArquivo, True) Saida.WriteLine(Novo) %> Número de visitas <%=Novo%>
Copyright©2006 - DogCare Confecções Ltda. - WebMaster Innovater Comunicação e Tecnologia