BRuckey

Usuários Online com Banco de Dados (Melhor para quem usa tem hopedagem grátis!) Ireis está iniciando a postagem de alguns artigos que acho muito útil e acho de plena importancia eu postar aqui pra meus amigos programadores web também saberem. Primeiramente irei postar um artigo de Usuários Online com Banco de Dados muito mais confiável do que o sistema utilizando Global.asa. Eu irei utilizar ASP / MySQL porém pode ser utilizado ASP / Access. Iremos primeiro criar a tabela no MySQL chamada Online com os seguintes campos: Campo - Tipo - Tamanho ----------------------------------- ID - INT - 10 HostIP - VARCHAR - 20 DataAcesso - DATETIME Pagina - TEXT Feito este campos será necessário indicar os code e as subrotinas da páginas a serem acessadas. view_online.asp strSQL = "SELECT Sum(1) As Total FROM Online" Set Rs = Conexao.Execute(strSQL) IF isNull(Rs("Total")) THEN Response.Write "N/A" ELSE IF Rs("Total") = 1 THEN Response.Write "1 Usuário Online" ELSE Response.Write Rs("Total") & " Usuários Online" END IF END IF Rs.Close Set Rs = Nothing PS: Conexão você deve utilizar a seguinte linha para conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "driver={MySQL};DATABASE=nome_do_banco;SERVER=ip_servidor;UID=usuario_d o_banco;PASSWORD=senha_do_banco" O arquivo view_online.asp deverá ser colocado como include no local onde ira mostrar a quantidade de´usuários online. Agora iremos montar as duas subrotinas que irão verificar quem está online e adicionar os offline após alguns minutos sem acesso. Você deverá colocar este código no começo de todas as paginas ou uma include que é chamada em todas as páginas. Call userOffline() Call userOnline() Agora iremos montar a subrotina userOffline() que irá ser responsavel para verificar se o visitante ainda está no site ou já saiu. Sub userOffline() ' UPDATE todos os usuários do Online após 10 minutos timeleft = DATEADD("n", -10, Now()) Call ExecuteSQL("DELETE FROM Online WHERE DataAcesso < '"& DataMySQL(timeleft) &"';") End Sub Ele irá pegar todos os registros da tabela que tenha o ultimo acesso por mais de 10 minutos e ira deletar ou seja Digamos que você acesse o site as 10 horas porem sai as 10:05 e o site não tem como saber se você saiu ou não por isso se as 10:16 você não tiver mais visitado nenhuma página ele ira colocar você como offline Agora iremos montar a subrotina userOnline() que irá ser repsonsavel para atualizar na tabela Online a data do ultimo acesso a páginas do site, pois ai o sistema irá saber que você ainda esta navegando no site. Sub userOnline() QueryStrr = "?" & Request.ServerVariables("query_String") strSQL = "Select * From Online Where HostIP = '" & Request.servervariables("REMOTE_ADDR") & "'" Set Rs = Conexao.Execute(strSQL) If Rs.BOF AND Rs.EOF Then Call ExecuteSQL("INSERT INTO Online(HostIP,DataAcesso,Pagina) VALUES('" & Request.servervariables("REMOTE_ADDR") & "', '" & DataMySQL(Now()) & "', '" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "');") Else Call ExecuteSQL("UPDATE Online SET DataAcesso = '" & DataMySQL(Now()) & "',Pagina = '" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "' Where HostIP = '" & Request.servervariables("REMOTE_ADDR") & "';") End If FechaRs(Rs) End Sub Na variavel QueryStrr ele ira pegar o valor da pagina com querystring ou seja muitos programadores utilizando páginas da seguinte forma index.asp?link=cadastro&cat=jogos e se não tiver isso a página sempre seria grava como index.asp Verificamos se o numero ip ( que é pode onde iremos identificar cada usuário, porém você pode trocar por id caso seje um página de acesso restrito ) se aquele ip esta já na tabela como online , se tiver ele irá apenas atualizar a data atual pra dizer que está ativo no sistema, caso não tiver o ip ele ira adicionar um novo registro na tabela. No campo pagina ele ira atualizar ou irá adicionar a página que o visitante está online, depois você pode faezr uma pagina para mostrar quantos usuários estão online, ou quem sabe as páginas mais visitas, etc.. Agora irei explicar algumas funções que acho necessário no code. Estas funções eu utilizo num arquivo chamado db onde tem algumas funções que julgo necessário e não preciso ficar remontando vários code sendo que já tenho as funções prontas. A primeira é a DataMySQL é para transformar a data no formato yyyy/mm/dd hh:nn:ss que é o formato do mySQL. A segunda é a ExecuteSQL é apenas um função que utilizo para executar um Insert, Update ou Delete Function DataMySQL(sData) sMes = Month( sData ) sDia = Day( sData ) sHoras = Hour( sData ) sMinutos = Minute( sData ) sSegundos = Second( sData ) If sMes <= 9 Then sMes = "0" & sMes If sDia <= 9 Then sDia = "0" & sDia If sHoras <= 9 Then sHoras = "0" & sHoras If sMinutos <= 9 Then sMinutos = "0" & sMinutos If sSegundos <= 9 Then sSegundos = "0" & sSegundos DataMySQL = Year(sData) & "-" & sMes & "-" & sDia & " " & sHoras & ":" & sMinutos & ":" & sSegundos End Function Sub ExecuteSQL(xstrSQL) Conexao.Execute(xstrSQL) End Sub Espero ter ajudado, at+ galéra!!!!!

Contador de Acessos com FSO Um contador que usa o File System Object para acessar um arquivo de texto e incrementar o valor cada vez que a página é requisitada. <% dim Contador, tamanho, arquivo, valor, Hits arquivo = Server.MapPath("contador.cnt") set FsObject = Server.CreateObject("Scripting.FileSystemObject") if FsObject.FileExists(arquivo) then set Contador = FsObject.GetFile(arquivo) set txtStream = Contador.OpenAsTextStream(1,0) Hits = txtStream.Readall Hits = Hits + 1 set txtStream = nothing else FsObject.CreateTextFile(arquivo) set Contador = FsObject.GetFile(arquivo) Hits = 0 end if set txtStream = Contador.OpenAsTextStream(2,-2) txtStream.Write Hits set txtStream = nothing Response.Write hits %>

Quanto tempo leva para uma página ser carregada? <%Inicio_tempo = Timer%> <% response.write "<html>" response.write "<head>" response.write "<title>Quanto tempo Leva?</title>" response.write "</head>" response.write "<body>" For i = 1 To 10000 response.write "Quantos Segundos?<br>" Next response.write "</body>" response.write "</html>" response.write "Página carregada em: " fim_tempo = Timer tempo_decorrido = fim_tempo - Inicio_tempo If tempo_decorrido = 0 then Response.write "menos de 0.005" Else response.write (Round(tempo_decorrido,4)) End if response.write " Segundos" %> Explicações: ROUND Round(numero, num_casas_decimais) Retorna um número arredondado com um derterminado número de casas decimais. TIMER timer Retorna o número de segundos que se passaram depois do seu start! Bem, com isso dá para fazer várias coisas. Uma boa idéia é falar para o seu usuário quantos segundos levou para ser feita uma busca em seu site. É isso ai galéra at+

hahahah então o jeito é você usa o PWS!!!! Ficar meio estranho mais todo caso é você q sabe!!!!!!

Kara isso é uma coisa lógica pois voce tem q em um momento chamar a função!!!!!!!!

Gostaria de saber se tem como eu listar todos os meus IP's, ou seja ver todos os meus IP's; tem com??? Uotra coisa algem sabe como deslidar normalmente o win 2003??

Vocês poderiam dar uma olhada pra ver como está configura no meu pc e falar o que eu deveria fazer?? Veja Aqui minhas COFIGURAÇÕES! Se poderem!!!!

tentei mas do mesmo jeito não esta funcionando!! alguma outra dica???

Lembrando uso o win 2003 server, no XP tinha configurado de mesma maneira e tava funcionando. Quem tinha me ensinado era o fabyo, obrigado!, mas no wen2003 não ta sendo a mesmo coisa! Sim, os paths estão corretos, porque criei uma pasta com o nome C:\php ; onde eu instalei o apache C:\php\Apache2 e o php C:\php\php até aqui tudo certo os scripts rodam numa boa em php beleza. e tras os seguintes erros: quando digito mysqld-nt --install: The service already exists! The current server installed: C:\php\mysql\bin\mysqld-nt MySQL Algem poderia me dar uma ajudinha ae??

Dae galéra instalei o Apache + php dai tah rodando blza, mas o MySQL não ta funcionando ele me traz o seguinte erro quando tento iniciar: Access violation at adress 0040289D in module "winmysqladmin.exe". Read of adress 00000000. Fiz my.ini [mysqld] basedir = c:/php/mysql datadir = c:/php/mysql/data Mas mesmo assim ele não esta funcionando Quando tento acessar o phpMyAdmin ele da o erro: O que eu devo fazer???

Pow não deu certo e ainda da erro!!! Poderiam me dar mais sugestões!!!! o erro agora é Bem vindo ao phpMyAdmin 2.6.0-alpha1 phpMyAdmin tried to connect to the MySQL server, and the server rejected the connection. You should check the host, username and password in config.inc.php and make sure that they correspond to the information given by the administrator of the MySQL server. Erro Mensagens do MySQL : Cannot connect: invalid settings. [Documentação]

só vo tentaa aqui!!! Valeuwwww

Ow Galéra!!! Agora começo a ler os scripts porém o MySQL não está funcionando quando tento executar o winmysqladmin.exe ele me traz o seguinte erro: Access violation at adress 0040289D in module "winmysqladmin.exe". Read of adress 00000000. Eu uso o Win2003 E a minha instalação esta da seguinte forma: C:\php -> php-4.3.6-Win32 C:\php\mysql -> mysql-4.0.18-win C:\php\Apache - onde uso o documentroot padrão -> apache_1.3.29-win32-x86-no_src Isso aew!!!

Dae galéra gostaria de saber o porque meus scripts não funcionam, sendo que Instalei o Apache 1.3.29-winMySQL 5.0.0a-alpha-winPHP 4.3.6-Win32 Configurei o arquivo C:\windows\php.ini e o arquivo C:\php\Apache\conf\httpd.conf Porem meus scripts não rodam Para testar criei o seguinte arquivo na pasta raiz info.php <? phpinfo() ?> Algem poderia me ajudar??

alguém poderia me passar um passo-a-passo de como Instalar IIS + PHP + MYSQL no Windows 2003 Server!!!! Sendo que já fiz o download dos programas -> Php 4.3.6 -> MySQL 5.0.0alpha -> MySQL 4.0.18 -> PhpMyAdmin-2.6.0alpha -> MyODBC-3.51.06 -> Já Instalado -> MySQL Front -> Já Instalado

http://forums.ibplanet.com/index.php?act=S...te=tradu%E7%E3o

Dae galéra alguém sabe onde posso encontrar um lugar grátis para hospedar meu site?

Dae galéra algém sabe onde consigo a tradução do Invision Power Board v1.3.1 Final © 2003 ??

Salve galéra!!! Algem poderia me ensinar a instalar o forum da invision ae??? é, eu to no come na parte sm_install.php (não sei fazer nada). Desde já agradeço pela competência e compreensão de todos!!!!! []'s Paulo Vieira

você precisa ter um ip fixo!

cara vo tenta te ajudar!! Sql = "SELECT * FROM SISTEMA WHERE "& local &" LIKE '%"&s&"%' OR descricao LIKE '%"&s&"%' " sql = sql &"SELECT * FROM CATEGORIA WHERE "& local &" LIKE '%"&s&"%' OR descricao LIKE '%"&s&"%' " AdoCon.Open (sql) Lembrando q adoCon é o nome da tua Comunicação com o db se for por recordeset você NomeRecSet.Open SQL, adoCon

só valeu GuTo!!! tava vendo tua assinatura e ai queria fazer um orçamento, como nos fazemos??

alguém pode me ensinar como eu faço aqule estilo tipow assim toda vez q aparecer Group Adm -> ele ficar assim [ Group Adm ] Group Mod -> ele ficar assim [ Group Mod ] Group User -> ele ficar assim [ Group User ] Este estilo é igual ao desse forum!!! Valeu, at+!!! Paulo!!!!

dae galéra!!! Algem sebe como faço pra migrar para ASP.net passo a passo?? Se souberem podem me ensinar?? Garanto q esse tópico é de enterese de muitos usuários, bem q os moderadores podiam da uma ajudinha ae, já que devem de ter um conhecimento proficional!!!! Se aguem tiver alguma informação posta ae!!! Valeu galéra!!!!! Paulo