doulo4ever

PULTZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ! GALERA, REALMENTE O CÓDIGO ESTAVA CORRETO! CHEGOU UMA HORA QUE EU REVOLTEI E RESOLVI APAGAR TODOS OS LIVROS QUE ESTAVAM NO BANCO E COMECEI A INSERIR TUDO NOVAMENTE! NA HORA QUE EU VOLTO NA PÁGINA INICIAL DO SISTEMA E COMEÇO A TESTAR O RANKING DE MAIS VISITADOS, FUNCIONOU CORRETAMENTE! NÃO TEM EXPLICAÇÃO, MAIS ATÉ QUE ENFIM FUNCIONOU ESTE NEGÓCIO, AVE!! VALEU PESSOAL PELA FORÇA, PARA TESTAR O NEGÓCIO ENTREM: http://www.cosmopolisemrede.com.br/utilitarios/biblioteca/ BRIGADUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU!

Galera, eu dei uma limpada no código, ficou assim agora: <? $sql = "select * from biblio_acervo order by cliques desc limit 8"; $query = @mysql_query($sql); if (!$query){ die ("Problemas ao executar o sql !!!"); } else { while ($coluna = @mysql_fetch_array($query)){ $idlivro = $coluna["idlivro"]; $nome = $coluna["nome"]; $cliques = $coluna["cliques"]; if($cliques == '') { echo "<table width=100%>"; echo "<tr><td><img src=images/flecha.gif width=12 height=12>&nbsp;&nbsp;&nbsp;<a href='verlivro.php?codigo=$idlivro'>$nome</a></td><td align=right><b>0</b> visitas</td></tr>"; echo "</table>"; } else { echo "<table width=100%>"; echo "<tr><td><img src=images/flecha.gif width=12 height=12>&nbsp;&nbsp;&nbsp;<a href='verlivro.php?codigo=$idlivro'>$nome</a></td><td align=right><b>$cliques</b> visitas</td></tr>"; echo "</table>"; } } } ?> Mas mesmo assim não está listando corretamente! http://www.cosmopolisemrede.com.br/utilitarios/biblioteca/ Realmente não tem explicação, não está dando nenhum erro nem nada! Acho que não tem mais o que ser feito! Bom deixa quieto, vou fazer mais alguns testes, se não listar direito esse negócio eu tiro essa listagem! Mas obrigado de qualquer forma! Paulo

É galera, não sei o que está acontecendo mesmo! Tentei usar as suas sugestões, na primeira (limit 0,8) continuou a mesma coisa...na segunda (if($cliques > "0") { // você não abriu este bloco com uma chave no seu código) deu um erro de parse error! O que será que está fora do lugar ou faltando neste código? Para verem o que está acontecendo basta entrar em http://www.cosmopolisemrede.com.br/utilitarios/biblioteca/ existe uma caixa "os mais visitados", mas o código não está listando corretamente os livro mais visitados! Se alguém puder dar uma revisada neste código que fiz para ver o que está faltando ou fora do lugar eu agradeço muito! Paulo

Realmente John Doe, agora funcionou corretamente! 404error, é vero! Valeu galera, estou gostando de mexer com PHP, antes eu fazia os sistemas só em ASP, mas quando surgiu a necessidade de programar em PHP eu acabei até largando o ASP, sei lá meu...a comunidade que programa em PHP é muito mais unida! Todo mundo é gente boa!!!!!!! VALEUUUUUUUUUUUUUU

GALERA SÓ MAIS UMA COISA! Eu queria que o campo status tivesse um valor padrão para todos os livros que eu for incluindo! Sabe, para não ficar sem nada, automaticamente já aparece "1" (para livros ativos) Tentei pelo Php MyAdmin na hora de inserir o campo em "Defeito" coloquei o número um, mas tá retornando o erro: #1101 - BLOB column 'status' can't have a default value O que pode ser? O campo pode ser text mesmo? Paulo

Olá Illidan, era bem isso mesmo! Funcionou corretamente! VALEUUUUUUUUUUUUUUUUUUUUU

Então, mais se fosse pra ter somente a condição de ser ativo ou não eu nem ía ter postado, é que além dessa condição, os livros precisam ser da categoria "x", sabe? Portanto, além de ter que ser ativo, ele deve ser da categoria especificada: where ativo='1' e where categoria='$codigo' eu não sei como montar um select com as duas condições! não sei se deu pra entender!? agradeço qualquer ajuda! Paulo

Galera, vou tentar explicar direito minha dúvida... É possível imprimir duas condições em um select? Por exemplo: eu estou usando a linha $sql = "select * from biblio_acervo WHERE categoria='$codigo'; mas eu queria que só mostrassem os livros que estiverem ativos, portanto é possível eu incluir mais essa condição no select? WHERE status='ativo' É possível ter essas duas condições no mesmo select? WHERE categoria='$codigo' e WHERE status='ativo' Se sim, como deve ficar? Muito obrigado

Olá galera, por favor me ajudem nessa, já tentei de várias formas, mas não consigo acerta na linha de código que faz replace da letra "<" Esse é um código de chat, as pessoas que entendem de html ficam enviando letras grandes e até código javascript, eu quero retirar a letra "<" das mensagens, assim a pessoa não consegue enviar este tipo de comando! Abaixo o código: <% Application.Lock sl01_StrMensagem = Request.Form("Mensagem") strImagem = Request.Form("imagem") sl01_StrMensagem = MostrarImagem(sl01_StrMensagem) IntAcao = Request.Form("Acao") IntUsuario = Request.Form("Usuario") IntSigilo = Request.Form("Sigilo") StrBotaoX = Request.Form("Botao.X") StrBotaoY = Request.Form("Botao.Y") sl01_Mensagens = Application("sl01_Mensagens") sl01_ParaUsuario = Application("sl01_ParaUsuario") sl01_Exclusiva = Application("sl01_Exclusiva") sl01_DeUsuario = Application("sl01_DeUsuario") sl01_Usuarios = Application("sl01_Usuarios") sl01_StrUsuario = sl01_Usuarios(Session("sl01_Usuario")) lenStrUsuario = len(sl01_StrUsuario) lenStrUsuario = lenStrUsuario * 3 If Session("careta") = "não" Then strCareta = "" else strCareta = "<img src=caretas/" & Session("careta") & ".gif>" end if If Acao(intAcao) = "grita com" then strAG = "<b><font size=3>" strFG = "</font></b>" else strAG = "" strFG = "" end if If StrBotaoX <> 0 and StrBotaoY <> 0 Then StrSair = "top.location.href =" & Chr(34) & "descarregar.asp" & Chr(34) End if If Int(IntSigilo) = 1 then StrSigilo = " reservadamente" If sl01_StrMensagem <> "" Then for i=18 to 0 step -1 sl01_Mensagens(i+1)= sl01_Mensagens(i) sl01_Exclusiva(i+1)= sl01_Exclusiva(i) sl01_ParaUsuario(i+1) = sl01_ParaUsuario(i) sl01_DeUsuario(i+1) = sl01_DeUsuario(i) next sl01_Mensagens(0) = sl01_StrNovaMensagem & "</font>" sl01_ParaUsuario(0) = IntUsuario sl01_DeUsuario(0) = Session("sl01_Usuario") sl01_Exclusiva(0) = Int(IntSigilo) If sl01_Usuarios(IntUsuario) = "" Then IntUsuario = 0 If strImagem = "vazio" then 'sem imagem If Int(intSigilo) = 1 then 'reservado sem imagem sl01_StrNovaMensagem = "<table width=100% border=0 cellspacing=0 cellpadding=0 bgcolor=" & Application("tarja_r") & "><tr><td><font size=1 face=Verdana>("+formatdatetime(now,vblongtime)+") </font>" & strCareta & "<B><font face=verdana size=2 color=" & Session("cor") & ">" & sl01_Usuarios(Session("sl01_Usuario")) & " </font></b><font face=verdana size=2>" & Acao(IntAcao) & "<b> " & sl01_Usuarios(IntUsuario) & "</font></B><font face=verdana size=1>" & StrSigilo & " - " & strAG sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem sl01_StrNovaMensagem = sl01_StrNovaMensagem & strFG & "</td></tr></table>" else 'aberto sem imagem sl01_StrNovaMensagem = "<font size=1 face=Verdana>("+formatdatetime(now,vblongtime)+") </font> " & strCareta & " <B><font face=verdana size=2 color=" & Session("cor") & ">" & sl01_Usuarios(Session("sl01_Usuario")) & " </font></b><font face=verdana size=2>" & Acao(IntAcao) & "<b> " & sl01_Usuarios(IntUsuario) & "</font></B><font face=verdana size=1>" & StrSigilo & " - " & strAG sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem & strFG end if sl01_Mensagens(0) = sl01_StrNovaMensagem & "</font>" sl01_ParaUsuario(0) = IntUsuario sl01_DeUsuario(0) = Session("sl01_Usuario") sl01_Exclusiva(0) = Int(IntSigilo) else 'com imagem If Int(intSigilo) = 1 then 'reservado com imagem sl01_StrNovaMensagem = "<table width=100% border=0 cellspacing=0 cellpadding=0 bgcolor=" & Application("tarja_r") & "><tr><td><font size=1 face=Verdana>("+formatdatetime(now,vblongtime)+") </font> " & strCareta & " <B><font face=verdana size=2 color=" & Session("cor") & ">" & sl01_Usuarios(Session("sl01_Usuario")) & " </font></b><font face=verdana size=2>" & Acao(IntAcao) & "<b> " & sl01_Usuarios(IntUsuario) & "</font></B><font face=verdana size=1>" & StrSigilo & " - " & strAG & "<img src=" & strImagem & ">" sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem sl01_StrNovaMensagem = sl01_StrNovaMensagem & strFG & "</td></tr></table>" else 'aberto com imagem sl01_StrNovaMensagem = "<font size=1 face=Verdana>("+formatdatetime(now,vblongtime)+") </font> " & strCareta & "<B><font face=verdana size=2 color=" & Session("cor") & ">" & sl01_Usuarios(Session("sl01_Usuario")) & " </font></b><font face=verdana size=2>" & Acao(IntAcao) & "<b> " & sl01_Usuarios(IntUsuario) & "</font></B><font face=verdana size=1>" & StrSigilo & " - " & strAG & " <img src=" & strImagem & ">" sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem & strAG end if sl01_Mensagens(0) = sl01_StrNovaMensagem & "</font>" sl01_ParaUsuario(0) = IntUsuario sl01_DeUsuario(0) = Session("sl01_Usuario") sl01_Exclusiva(0) = Int(IntSigilo) End if End if StrQuebra = "<BR>&nbsp;<BR>" For i=0 To 19 If sl01_Mensagens(i) = Session("sl01_Ultima") Then Exit For If sl01_Exclusiva(i) < 1 Or Int(sl01_DeUsuario(i)) = Int(Session("sl01_Usuario")) or Int(sl01_ParaUsuario(i)) = Int(Session("sl01_Usuario")) or sl01_ParaUsuario(i) = 0 then StrNovas = StrNovas & StrQuebra & sl01_Mensagens(i) End if Next Session("sl01_Ultima") = sl01_Mensagens(0) sl01_Usuarios(0) = "Todos" Application("sl01_Mensagens") = sl01_Mensagens Application("sl01_Exclusiva") = sl01_Exclusiva Application("sl01_ParaUsuario") = sl01_ParaUsuario Application("sl01_DeUsuario") = sl01_DeUsuario Application("sl01_Usuarios") = sl01_Usuarios For i=0 to 19 If Len(sl01_Usuarios(i)) > 0 And Int(Session("sl01_Usuario")) <> i Then StrLista = StrLista & "<OPTION VALUE=" & i If Int(IntUsuario) = Int(i) Then StrLista = StrLista & " SELECTED" StrLista = StrLista & ">" & sl01_Usuarios(i) & Chr(13) End If Next Application.Unlock Function MostrarImagem(sl01_StrMensagem) Dim IntInicio, IntFim, StrSaida IntInicio = InStr(1, sl01_StrMensagem, "[") If IntInicio < 1 Then MostrarImagem = sl01_StrMensagem Exit Function End if IntFim = InStr(IntInicio , sl01_StrMensagem, "]") If IntFim < 1 Then MostrarImagem = sl01_StrMensagem Exit Function End if 'inicio mostrar imagem StrSaida = Left(sl01_StrMensagem, IntInicio - 1) & "<br>" StrSaida = StrSaida & "<IMG SRC='" & Mid(sl01_StrMensagem, IntInicio + 1, IntFim - IntInicio - 1) & "'>" StrSaida = StrSaida & Right(sl01_StrMensagem, Len(sl01_StrMensagem) - IntFim) & "<br>" 'fim mostrar imagem MostrarImagem = StrSaida End Function Function LimparVariavel(sl01_StrMensagem) Dim IntCont Dim StrLetra Dim StrSaida For IntCont = 1 To Len(sl01_StrMensagem) StrLetra = Mid(sl01_StrMensagem, IntCont, 1) If Asc(StrLetra) = 34 Then StrLetra = """ ElseIf Asc(StrLetra) = 13 or Asc(StrLetra) = 10 Then StrLetra = " " End if StrSaida = StrSaida & StrLetra Next LimparVariavel = StrSaida End Function %> Muito obrigado mesmo!

O que eu quis fazer na linha: if($cliques == '') { é que se o campo estiver em branco, ele retorna que o livro tem 0 de visitas! do jeito que saiu no post parece ser aspas, mas na verdade são ' e ' (esqueci o nome disso, acho que é apóstrofe!)

Galera, depois que deu certo aquele negócio de contabilizar os cliques que cada livro teve, eu fui fazer um codiguinho para mostrar os 8 mais clicados! Mais deu alguma coisa errada, não está dando nenhum erro nem nada, mas não está listando direito, deve ter alguma coisa fora do lugar! Para ver o que está acontecendo visitem: http://www.cosmopolisemrede.com.br/utilitarios/biblioteca/ Abaixo o código que eu estou usando: <? $sql = "select idlivro, nome, cliques from biblio_acervo order by cliques desc limit 8"; $query = @mysql_query($sql); if (!$query){ die ("Problemas ao executar o sql !!!"); } else { echo "<table width=100%>"; while ($coluna = @mysql_fetch_array($query)){ $idlivro = $coluna["idlivro"]; $nome = $coluna["nome"]; $cliques = $coluna["cliques"]; if($cliques == '') { echo "<tr><td><img src=images/flecha.gif width=12 height=12>&nbsp;&nbsp;&nbsp;<a href='verlivro.php?codigo=$idlivro'>$nome</a></td><td align=right><b>0</b> visitas</td></tr>"; } else { if($cliques > 0) echo "<tr><td><img src=images/flecha.gif width=12 height=12>&nbsp;&nbsp;&nbsp;<a href='verlivro.php?codigo=$idlivro'>$nome</a></td><td align=right><b>$cliques</b> visitas</td></tr>"; } } echo "</table>"; } mysql_close($conn); ?> Tem alguma coisa errada aí? Ou alguma coisa fora do lugar? Obrigado pela força!!! Paulo

fabyo, valeu cara, funcionou corretamente! FALOUUUUUUUUUU

Galera, o script que eu estou usando para inserir os dados é o seguinte: <? require_once("../dbconfig.php"); if (trim($HTTP_POST_VARS["nome"]) == "") { echo "<br><br><center>Problemas ao efetuar cadastro: <b>Nome do Livro</b> é um campo obrigatório!</center>"; exit(); } elseif (trim($HTTP_POST_VARS["autor"]) == "") { echo "<br><br><center>Problemas ao efetuar cadastro: <b>Autor do Livro</b> é um campo obrigatório!</center>"; exit(); } elseif (trim($HTTP_POST_VARS["descricao"]) == "") { echo "<br><br><center>Problemas ao efetuar cadastro: <b>Descrição</b> é um campo obrigatório!</center>"; exit(); } elseif (trim($HTTP_POST_VARS["categoria"]) == "") { echo "<br><br><center>Problemas ao efetuar cadastro: <b>Descrição</b> é um campo obrigatório!</center>"; exit(); } else { $sqli = " INSERT INTO biblio_acervo ( nome, autor, descricao, categoria ) VALUES ( '" . addslashes($HTTP_POST_VARS["nome"]) . "', '" . addslashes($HTTP_POST_VARS["autor"]) . "', '" . addslashes($HTTP_POST_VARS["descricao"]) . "', '" . addslashes($HTTP_POST_VARS["categoria"]) . "' ) "; if (!@mysql_query($sqli)) { echo "<br><br><center>Problemas ao efetuar cadastro: " . mysql_error() . ".</center>"; exit(); } else { echo "<br><br><center>Cadastro efetuado com sucesso!</center> <script>window.location='index.php';</script>"; } ?> Acho que não estou conseguindo inserir corretamente esta linha de código para verificar se o nome de livro já existe ou não! Aonde exatamente deveria ficar o código? Valeu mesmo! Paulo

Galera, como eu faço para verificar se um registro já existe no banco de dados? No sistema de biblioteca virtual, queria que quando eu for inserir os livros, o sistema checasse se já existe algum livro com aquele nome, em caso positivo, retornar uma mensagem de erro! Alguém pode me ajudar? Valeuuuuuuuuuuuuuuuuuuu!!

PERFEITO, MAGNÍFICO, SENSACIONAL!!!!! REALMENTE, SÓ FALTAVA BUSCAR NO BANCO O VALOR QUE O CAMPO TINHA ANTES DE SOMAR 1... TÁ FICANDO STYLE O SISTEMINHA, CHEIO DE 9 HORA! FALOUUUUUUUUUUUUUUU

Agora deu um erro: Warning: mysql_result(): supplied argument is not a valid MySQL result resource in /home/cosmopol/public_html/utilitarios/biblioteca/verlivro.php on line 23

Olá M@luco Belez@, valeu, funcionou corretamente! Eu tinha tentado me registrar, mas não tinha conseguido, agora já me cadastrei!