Vem aí a 17º Trilha da Sopa do Pinhão!!!!

10 e 11 de Julho 2010

Em breve mais um jeep Curitiba 4x4...

<% '+-------------------------------------------+ 'l Desenvolvido por Rodrigo Alviani - f0ck l 'l rody_lmd@hotmail.com UIN: 131341660 l 'l Esse script livre e foi feito para estudo l 'l ou para ser usado em seu site. l '+-------------------------------------------+ '=========================================================================== 'Definindo as Variáveis '=========================================================================== Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim Visitantes 'Número de Visitantes Dim Contador 'Loop para preencher as imagens do contador Dim Zeros 'Adicionas os Zeros a esquerda Dim Quantidade 'Quantidade de Digitos que aparecerão '(deixe 0 para auto) '=========================================================================== 'Definindo Quantidade de Dígitos Mostrados '=========================================================================== Quantidade=6 '=========================================================================== 'Criando o File System Object '=========================================================================== Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") '=========================================================================== 'Iniciando o o FSO já com o caminho do arquivo de texto '=========================================================================== Set filObject = fsoObject.GetFile(Server.MapPath("contador.txt")) '=========================================================================== 'Abrindo o Arquivo de Texto '=========================================================================== Set tsObject = filObject.OpenAsTextStream '=========================================================================== 'Lendo o Arquivo de Texto '=========================================================================== Visitantes = CLng(tsObject.ReadAll) '=========================================================================== 'Caso a Variável da Sessão seja nula ou não exista, adicionar 1 ao contador '=========================================================================== If isEmpty(Session("Visitado")) = True Then 'Somando +1 ao contador Visitantes = Visitantes + 1 'Definindo a Varoável da Sessão como True Session("Visitado") = True End if '=========================================================================== 'Criando um Novo Arquivo de Texto Para Substituir o Antigo '=========================================================================== Set tsObject = fsoObject.CreateTextFile(Server.MapPath("contador.txt")) '=========================================================================== 'Definindo o Novo Número no Contador '=========================================================================== tsObject.Write CStr(Visitantes) '=========================================================================== 'Fechando os Objetos '=========================================================================== Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing '=========================================================================== 'Habilitar a Linha Abaixo Para Mostrar o Resultado em Modo Texto '=========================================================================== 'Response.Write(Visitantes) '=========================================================================== 'Acertando a Quantidade de Dígitos Mostrados '=========================================================================== Do While Len(Visitantes)<>Quantidade Visitantes="0" & Visitantes Loop '=========================================================================== 'Loop Para Mostrar o Resultado em Imagens '=========================================================================== For Contador = 1 to Len(Visitantes) 'Mostrando as Imagens Response.Write("") Next %>