[ GuTo ]

Fala galera! Digamos q isso seja a continuação de outro tópico, porém para um outro assunto parecido. Isso pode ser um futuro problema seu! Veja, quero fazer um contador de visitas (geral) SEM usar global.asa e SEM FileSystemObject. Ele tem de estar dentro destes termos. - Proibir da pessoa apertar F5 e somar mais uma visita. (Solução: uso de uma Session, por exemplo: Session("verifica") = 1 'para vistado, else não visitado) - Proibir da pessoa fechar o browser e retornar ao site e contar mais uma visita. (Solução: IP) Agora vamos imaginar se a pessoa A está no laboratório da faculdade Z e acessando o mesmo site da pessoa B, sabendo que neste laboratório todos tem o mesmo IP, a solução pra se saber que é uma nova visita será o SessionID. Claro que não é em todos os laboratórios que tem todo o IP igual, em muitos só muda o final dele(o q vem deposi do último ponto (200.175.125.214). Então, baseando-se nisso tudo, fiz uma tabela com 3 campos: session_id - Texto ip - Texto hora - Data/Hora Mas dae logo meu BD vai estar enorme!!! Guardando estes dados de cada nova visita, meu deus... imagina ter mais de 5mil registros, muito grande! Portanto queria uma solução, e o q eu keria, era sempre a cada nova visita somar mais um ao valor do campo. Mas podendo fazer este controle todo aí. Dae sim vou ter um contador de visitas (geral) correto!!! Fiz este código a seguir, dêem uma olhada para entende-lo! Pensei em usar o Cookies pra poder minimizar este código pra ficar apto pra uma tabela com um campo q só q é somado mais um ao valor dela. Com cookies talvez eu conseguisse guardar todos estes campos e simplesmente fazer a verificação, dae dependendo da resposta somar mais um ao valor do campo ou não. Se alguém souber mecher cookies e quiser dar uma ajuda Meu código abaixo! contador.asp <% Option Explicit dim session_id, agora, ip dim rs, db, sql dim rs2 set db = Server.CreateObject("ADODB.Connection") db.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/geral.mdb") session_id = Session.SessionID agora = Now ip = Request.ServerVariables("REMOTE_ADDR") sql = "SELECT * FROM contador WHERE session_id='"&session_id&"' OR ip='"&ip&"'" set rs = db.execute(sql) if rs.eof then sql = "INSERT INTO contador (session_id,ip,hora) VALUES ('"&session_id&"','"&ip&"','"&agora&"')" db.Execute(sql) else sql = "UPDATE contador SET hora='"&agora&"'" db.Execute(sql) end if sql = "SELECT * FROM contador" set rs2 = Server.CreateObject("ADODB.Recordset") rs2.open sql,db,3,3 if not rs2.eof then %><%=rs2.RecordCount%><% end if db.close set db = nothing set rs2 = nothing set rs = nothing %> Anelisem ae... Aguardo respostas, comentários, sugestões e quem sabe, um upgrade deste código , Valeu!

Ok Urso, mas é que agora o problema meu mudou...hehe.. o usuários online tá resolvido... keria um contador de visitas... sem global.asa hehehe, desculpe se não fui claro... de qlqr forma, vou ler o artigo obs.: já peguei 500x estes códigos de online e contador e nada, porque são sempre iguais, o cara tem q corrigir porque tah com erro e td mais... dae é melhor só dar uma olhada, deleta e fazer o seu

ok.... mas e meu server não dá suporte a global.asa. www.libihost.net - ASPECTO Dae não tem como?

Aham brother, entendi perfeitamente! Agora uma pequena dúvida: Esta Session.SessionID aí, pode ser usada a princípio mais para saber dos usuários online, pelo q eu vejo. Agora, se por exemplo, eu queira um contador de visitas, o q é diferente claro, dae pensei também nakilo do cara fechar e abrir o broswer, dae como eu taria usando uma Session("visita"), quando ele fechou expirou, quando ele abriu dinovo, abriu dinovo ela, só q é uma nova sabe...então vai contar como mais uma visita. Então será q ae o Session.SessionID me ajudaria a resolver isso? Acho q sim, mas dae o meu BD em acess ficaria com um registro a cada novo visitante, e isso o deixaria muito grande, imagina.. uma tabela "contador" com mais de 5 mil registros só pra contar nº de visitas...fica até meio estranho... tendeu? Tipo... eu faria um RecordSet.RecordCount para isso. Teria uma maneira de se fazer isso só alterando um campo apenas do da tabela, usando apenas um registro só?

Tem como fazer isso com ASP? Como? Isso seria muito útil mesmo!

Ok. Mas como funciona essa SessionID ? Uma vez já ouvi falar nisso, mas desconheço! Dei uma pesquisada aki no fórum e em outros sites/fóruns e só via códigos com esta função, mas nenhuma explicação de como funciona este Session.SessionID. Se puderes me explicar... Tipo... uma coisinha também, espero q este SessionID me ajude nisso... é que assim, um visitante que está num laboratório cheio de gente no mesmo site, dae ele fecha o browser e depois re-abre o browser, entra dinovo no meu site e dae este cara vai ter uma nova SessionID ??? Mas o restante do pessoal do laboratório q TALVEZ estejam com o mesmo IP (melhor! Suponhamos q eles tem o IP totalmente igual), dae então a SessionID vai ser dada como a mesma para todos? Este SessionID está me dando dor di cabeça... Detalhem-me a sua função!

Daeee galera! Tenho um sistema de enquetes que fiz prum site meu. Está perfeito, com área de administração, um voto computado por membro cadastrado, segurança que nenhum visitante possa votar e tudo mais q uma enquete precisa. Agora preciso fazer uma enquete prum outro site, dae pensei em copiar este sistema e adapta-lo pra outra. Mas tem um porém, pra este site, q não vai ter membros cadastrados, eu não vou precisar então limitar votos por membro, então pelo q? Pensei em limitar votos por IP, mas às vezes, tem gente na faculdade, colégio, trabalho e etc, e está em uma rede cheia de computadores que usam o mesmo ip(às vezes só muda o final do ip). Então, se eu limitar voto por ip aí daria problema, pois digamos q tem mais de uma pessoa no mesmo laboratório acessando meu site e votando na enquete, então as outras pessoas q tão no site, e q tão votando, receberão uma msg de erro, de q o voto já foi computado. Dae então não quero isso... Também pensei q tem gente, como eu, q usa conexão discada, dae às vezes cai e acaba voltando com o mesmo ip, ou em outro dia volta com o mesmo ip. Então suponhamos q na mesma casa tenham-se irmãos de mesma faixa etária q vistam o mesmo site frequentemente, e o irmão A já votou na enquete "tal", dae o irmão B quer votar nela, mas o IP dele já está "cadastrado/computado", então será recusado. Então, ql será a melhor saída para o meu problema? Não quero deixar alguém entrar no meu site e ficar um tempinho lá, só de zuera, votando 500x numa ou mais enquetes, fazendo favorecer a sua opnião e voto. Aguardo respostas...

Cara, tentei mas ainda não funcionou. E este é o meu grande problema! porque se não exclui, fica sempre mais uma pessoa online. Fica tendo efeito de um contador de visitas, hehehe, e era pra ser de usuários online! buá buá buá... me ajudem!!!

Fala galera! Eu modifiquei um sistema de usuários online que achei na internet e tanto aquele como este não executa a função de deletar corretamente. Vejam: <% dim agora, ip dim rs, db, sql set db = Server.CreateObject("ADODB.Connection") db.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/geral.mdb") agora = Date() 'poderia usar Time, mas se o site ficar mais' ' de um dia sem visita, então vai ter quase sempre UMA ou + pessoas online! ip = Request.ServerVariables("REMOTE_ADDR") sql = "DELETE * FROM online WHERE hora < Time()-60" db.Execute(sql) sql = "SELECT * FROM online WHERE ip='"&ip&"'" set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,db if rs.eof then sql = "INSERT INTO online (hora,ip) VALUES ('"&agora&"','"&ip&"')" db.Execute(sql) else sql = "UPDATE online SET hora='"&agora&"'" db.Execute(sql) end if set rs = nothing sql = "SELECT DISTINCT ip FROM online" set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,db, 3, 3 If not rs.EOF Then%><%=rs.recordcount%><% end if db.close set db = nothing set rs = nothing %> Esta linha aki era pra funcionar, mas não... ela está errada?Traduzindo ela, pelo q entendo, seria pra DELETAR da tabela ONLINE onde hora for MENOR do 1 minuto atual, ou seja, quando uma nova pessoa visitar o site, executará as sql's, e esta do delete vai excluir o registro com hora menor q um minuto atual. Exemplo: Se a hora agora é 05:28, então horas apartir de 05:27 e menores serão deletadas. Estou certo? Qual o problema então?

rs* se não funcionou em nenhum, então o problema deve estar no seu código!

Fala galera... Datas é minha cina.. tenho q aprende... Dá pra me darem ma ajudinha nisso aki? <p align="center"><font color="#FF0000">Tempo Online no site: <b><% dim logout, login, tempo_no_site logout = "5/12/2003 02:05:10" login = "5/12/2003 01:28:11" tempo_no_site = logout - login Response.Write(tempo_no_site)%></b></font></p>

Q P*****!!! Pelo q eu vejo está tudo ok, mas na hora de inserir os dados diz q tem erro. os campos são: id_membro -> numero id_enquete -> numero id_resposta -> numero data -> data/hora <% set db = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") db.open "Provider=Microsoft.Jet.OLEDB.4.0;data source="& Server.MapPath("..\db\geral.mdb") dim id_membro_logado, data, id_enquete, id_resposta id_membro_logado = Cint(session("id")) data = now id_enquete = Cint(request.form("id_enquete")) id_resposta = Cint(request.form("resposta")) sql = "SELECT * FROM enquetes_respostas WHERE id="&id_resposta set rs = db.execute(sql) sql = "INSERT INTO enquetes_votos (id_enquete, id_membro, id_resposta, data) " sql = sql & "VALUES ("&id_enquete&","&id_membro_logado&","&id_resposta&",#"&data&"#)" db.execute(sql) response.redirect "resultados.asp %>

cara, como que tá kebrado se eu o baixei aki, me explica? :blink: E como já disse, eu testei antes e deu pra baixa... agora mesmo tentei dinovo e deu DINOVO!!! Qual seria o problema de vocês q não conseguem baixar desse url?!?!?!?!?! :angry:

Fala galera!!! A título de curiosidade, quanto saíria um portal que usa ASP, HTML, JAVASCRIPT, CSS e BANCO DE DADOS EM ACESS 2000 e com um layout bom. Teria... - sistemas de: cadastro; login; lista de membros com filtro; lista de homepages dos membros; enquetes; eventos; noticias; newsletters; perfil dos membros; mensagem particular; envio de email através do site; recomdende; busca; jogos online (fornecido por outro site); fotos dos membros; ranking de maiores postadores; lista dos membros aniversariantes; serviço de envio de mensagens SMS; - e espaço pra comentários das fotos, das notícias, dos eventos e mais um sistema de recados por usuário onde todos outros membros podem visualizar. + área de admnistração. não sei se poderá ou terá fórum. talvez também colocar um mapa de localização do lugar onde tá o négócio com informações adcionais e td mais junto com form pra contato, tirando dúvidas e tudo mais. Quanto custaria mais ou menos um site com tudo isso? Mesmo q não saibam dizer ao certo, qria saber em números + ou -!

Não está quebrado não! Já me disseram isso, mas aki em casa começa a baixa tranquilamente. Eu baixei o meu PWS daí e agora mesmo fiz o teste e inciou com sucesso o download... Obs.: Uso o Download Accelerator Plus v5.3

Fala galera Com o intuito de fazer esta comunidade aumentar, disponibilizo um URL de download do PWS que tanto demorei pra achar funcionando. Segue abaixo. ;) Downlad: PWS COMPLETO - PERFEITO - SEM ERROS - 21,4MB Façam bom proveito. Qualquer erro reportem.

Valeu John Doe. Sabia que tinha de ser com SetTimeout, mas eu não sei mecher com JavaScript. Mais uma vez, obrigado! :D PS.: Não precisa ser exatamente colocado dentro da <HEAD></HEAD> este código. Aqui eu coloquei ele dentro de uma SUB. ;)

Olá Não sei ao certo onde deveria estar este post, no de ASP neste aki. Acho q se encaixa melhor neste! Aí vai... Keria que na hora de redirecionar a pessoa, demorasse alguns instantes pra q fosse ela redirecionada... alguns segundos... Estou fazendo assim... .Write("<p align=center>Prezado(a) Membro,<br><br>Você ainda não confirmou sua presença neste evento.</p>") .write("<script language='JavaScript'>location.href='evento.asp?id="&id_evento&"';</script>") Note q estou trabalhando com ASP, mas o q eu preciso ali teria de ser em JAVASCRIPT mesmo. E assim, neste meu problema não pude e não posso fazer response.redirect DO ASP e nem akela do <meta http-equiv="Refresh" content="5; URL=http://www.seusite.com.br"> onde o 5 é o numero de segundos pra aguardar para redirecionar.. Tem de ser algo com isso: <script language='JavaScript'>location.href='evento.asp?id="&id_evento&"';</script>

Pelo q entendi o plano FREE permance como os demais planos. Á única mudança é que agora contam com mais um plano, o Middle FREE. Até que está bom.

Primeiro poste o código aqui daí nós damos uma olhada, ok?!

Depende do seu código... Faça algo assim... quando o cara se logar, crie 2 sessions: uma de logado e outra se referindo a algum campo de identificação do mesmo, tipo ID. então: session("logado") session("id") Dae na página q você quer mostrar o nome do cara (membro cadastrado e LOGADO no momento em seu site) faça assim: if session("logado") = 1 then 'true dim id = session("id") sql = "SELECT * FROM tabela WHERE id="&id&" " rs.open sql,conexao if not rs.eof then Response.Write "Dados do membro" else Response.Write "Membro não existe! end if ' pode colocar aki um else pra dizer q o membro não esta logado end if Seria mais ou menos assim! :D Espero ter ajudado! Abraços

Ae Reginaldo ASP Como você tinha dito em primeira mão, está corretíssimo. E assim..arrumei uma boa explicação pra isso. O delet, insert e o update não geram recordset, então não adianta testar, pois ele não está aberto. Valeu!!! Confiram a página FUNFANDO ae: http://www27.brinkster.com/chatcanoas/newsletter.asp

o pgmador, porque o dddd? Não seri apenas o d?! Assim ó: <% 'irá retornar o número de dias entre 2 datas dias=datediff("d","data_arquivo",date) if dias<=7 then 'porque se for maior q 7, o arquivo tá a mais de uma semana lá... deixa de ser novidade... Response.Write "HOT" end if %>

Sim! :unsure: Ao q parece tudo está OK. Testei no brinkster, e aki em casa. Ocorre o mesmo erro em ambos. Se quiseres te consigo a o BD e a página esta... bem, o código dela está ae... Obrigado pela atenção q vem tendo... Abraços

Pois é pgmador, eu já tentei isso e não deu. Não sei porque isso... Me ajudeeee!