Categorias

aprendizes · Junho 6, 2011

Amigos, preciso saber como criar categorias, meu portal terá as seguintes páginas:

Esporte

Saúde

Região

Como eu faço para criar essas paginas diretamente no browser, e quando eu criar a determinada categoria altomáticamente será criada a pagina pra onde irão os artigos publicados. Tipo index.asp?esporte, index.asp?saude e assim sucessivamente. Alguém pode ajudar?

Obrigado.

xanburzum · Junho 7, 2011

para criar páginas automaticamente você irá precisar do FSO para isso, a menos que pelo que entendi, você quer que ao clicar em um link e ser redirecionado para a página, nessa, ao inves de criar a página, apenas consulte os dados no banco e exibi....

lezão · Junho 8, 2011

Ola amigo

use este codigo deve servir pra você


<a href="Index.asp?Produto=<%=Produtos("ID")%>"><img src="<%=Produtos("Foto1")%>" border="0" width="60"></a>

vai ficar assim


index.asp?Produto=107

espero q tenha ajudado!

aprendizes · Junho 15, 2011

Galera, eu fiz da seguinte forma:

 <%
classe = Request.QueryString("classe")
%>

dentro de noticias1.asp. E abri a página noticias1.asp?=saude, eu queria que aparecesse o conteúdo de suúde.asp nesta pagina, mas somente apareceu o conteúdo publicado em noticias1.asp

Felipe Tonolli · Junho 15, 2011

Bom, eu não entendi direito, mas pelo que eu entendi você pode passar por exemplo uma variavel igual a categoria. Por exemplo, index.asp?categoria=esporte

Depois você faz a condição, se Request("categoria") = "esporte" então "SELECT * FROM tabela_esporte" etc etc

Não é isso que você quer ?

aprendizes · Junho 15, 2011

Olha este code:

<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
               <tr> 
                 <td width="30%" height="583" valign="top"> <div align="left"> 
                     <table width="540" border="0" align="center" cellspacing="0">
                       <tr> 
                         <td height="50"><hr align="center" width="540" color="#FFFFFF">
                           <font color="#003366" size="5" face="Geneva, Arial, Helvetica, sans-serif"><strong>Todas 
                   notícias</strong></font> 
                           <p></p></td>
                       </tr>
                     </table>
                     <font color="#333333" size="2" face="Tahoma"><span style="font-size:10pt;"><span style="font-size:10pt;"><font face="Tahoma"><font color="#004589" face="Tahoma,Arial"><span style="font-size:12pt;"><font face="Tahoma"><span style="font-size:10pt;"> 
                     <% 
Function FormataData(Data) 
If Data <> "" Then 
FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & Right("0" & "/" &  DatePart("yyyy", Data),2)
End If 
End Function
%>
                     <%
Function FormataHora(hora) 
  if Hora <>"" Then 
   FormataHora = Right("0" & Hour(hora),2) & "h" & Right("0" & Minute(hora),2) & modelo 
End If
End Function 

Hora = "10:04:13"  
%>
                     </span></font></span></font></font></span></span></font> 
                     <% 
Pg = Request.QueryString("Pg") 'página atual 

Set Conn= server.createobject("adodb.connection") 
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("admin/dados/dados.mdb") 
Conn.Open DSNtest 


Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação 
SQL = "SELECT * FROM noticias WHERE Classe order by id desc" 

RS.Open SQL, conn, 3 


'############## paginacao Introdução  ################# 

'------- Coloque aqui a quantidade de registros que você deseja por página -------- 

Const NumPorPage = 12 

'Verifica qual a página solicitada 
   Dim Pg 

   IF Request.QueryString("Pg") = "" Then 
               Pg = 1 'Primeira página 
         Else 
                Pg = Request.QueryString("Pg") 
   End If 

   'Cria conexão com o Banco de Dados, já abrir anteriormente 
   'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset") 
   '>>> FIZ EM CIMA RS.CursorLocation = 3        Acerta a posição do cursor . 3 ou adUseClient 

   RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros 

   'Cria a String SQL 
   '>>> FIZ EM CIMA Dim SQLpag 
   '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos" 
   '>>> FIZ EM CIMA RS.Open SQLpag, Conn    Abre o RecordSet 


    RS.MoveFirst                'Move o RecorSet para o início  
    RS.PageSize = NumPorPage    'Coloca a quantidade de páginas 

    Dim TotalPages              'Pega o número total de páginas 
    TotalPages = RS.PageCount 

    RS.AbsolutePage = Pg  'Configura a página atual 

'############## paginacao Introdução  - FIM ################# 


Count = 0       'Zera o contador 

'Inicia a Função DO, utilizando a quantidade de páginas especificadas 
'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo 

i = 0  

DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PapgeSize  

' ----- linhas coloridas ------- 
if i mod 2<>0 then 
cor = "#F4F4F4" 
else 
cor = "#e1e1e1" 
end if  
'------------------------------- 

%>
                     <font color="#333333" size="2" face="Tahoma"><span style="font-size:10pt;"><span style="font-size:10pt;"><font face="Tahoma"><font color="#004589" face="Tahoma,Arial"><span style="font-size:12pt;"><font face="Tahoma"><span style="font-size:10pt;"> 
                     </span></font></span></font></font></span></span></font> 
                     <span style="font-size:12pt;"><font face="Tahoma"><span style="font-size:10pt;"> 
                     </span></font></span> 
                     <table width="520" height="40" border="0" cellspacing="0">
                       <tr> 
                         <td height="20"> <font color="#333333" size="2" face="Tahoma"><span style="font-size:11pt;"> 
                           <font color="#666666"> 
                           <%Response.Write FormataData(RS("data"))%>
                           <span style="font-size:11pt;">| 
                           <%Response.Write FormataHora(RS("Hora"))%>
                           </span></font><span style="font-size:11pt;"> </span> 
                           </span></font></td>
                       </tr>
                       <tr> 
                         <td height="20"> <span style="font-size:13pt;"><a href='ver.asp?id=<%=Rs("id")%>'></a></span> 
                           <span style="font-size:13pt;"><a href='ver.asp?id=<%=Rs("id")%>'></a></span><span style="font-size:13pt;"><a href='ver.asp?id=<%=Rs("id")%>'><font color="#003366" face="Tahoma"><%=Rs("Titulo")%></font></a></span> 
                         </td>
                       </tr>
                     </table>
                     <hr width="540" size="1" color="#E4E4E4">
                     <%
  i = i+1
Count = Count + 1   'paginacao
   RS.MoveNext
   LOOP                'tb paginacao

%>
                     <% 
'################## paginacao 01 ##################### 

 'Coloca o Nº página atual / Nº Total de páginas 

 Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial""><strong> Página " & Pg & " de " & TotalPages & " </strong></font></B> - ")    

'Mostra os botões: Anterior e Próxima, utilizando da opção de IF  

IF Pg > 1 THEN  

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima 
      Response.Write("<B><font color=""#333333"" size=""1"" face=""Arial"">")  
      Response.Write("<a href=noticias.asp?Pg=" &  1 & "'>") 
      Response.Write("Primeira")  
      Response.Write("</a></font></B>  ") 

      Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")  
      Response.Write("<a href=noticias.asp?Pg=" & Pg - 1 & "'>") 
      Response.Write("Anterior")  
      Response.Write("</a></font></B>  ") 

     Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")  
      Response.Write("<a href='noticias.asp?Pg=" & Pg - 1 & "'>") 
      Response.Write("")  
      Response.Write("</a></font></B>  ") 


  Else 

      Response.Write("<B><font color=""#666666"" size=""1"" face=""Arial"">")  
      Response.Write("Primeira")  
      Response.Write("</font></B>  ") 

      Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">")  
      Response.Write("")  
      Response.Write("</font></B>  ") 


End If 

'------------------- numero ------------------------- 
'---------- Numero de numeros para ser mostrados ---- 
   max_n_mostrados = 9 

intervalo = Int(max_n_mostrados /2) 
inicio = Pg - intervalo 
final = Pg + intervalo 

If CInt(inicio) <1 Then  
 inicio = 1 
 final = 10 
END IF 
If CInt(final) > CInt(TotalPages) Then final = TotalPages 

For i = inicio To final 
     If CInt(i)=CInt(Pg) Then 
         Response.Write "<font color=""#333333"" size=""1"" face=""Arial""[ <B>" & i & "</B> <font color=""#333333"">]</font>  " 
     END IF 
     If CInt(i) < CInt(Pg) Then 
      Response.Write "<a href='noticias.asp?Pg=" & i & "'>" & i & "</a>  " 
     END IF 
     If CInt(i) > CInt(Pg) Then 
         Response.Write "<a href='noticias.asp?Pg=" & i & "'>" & i & "</a>  " 
  END IF 
Next 

'------------------------------------------------------ 

IF CInt(Pg) <> CInt(TotalPages) THEN  

'Se estiver na última página, mostra apenas o botão Anterior e Primeira 

      Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">") 
      Response.Write("<a href='noticias.asp?Pg=" & Pg + 1 & "'>") 
      Response.Write("Próxima") 
      Response.Write("</a></font></B>  ")  

      Response.Write("<B><font color=""#333333"" size=""1"" face=""Arial"">") 
      Response.Write("<a href='noticias.asp?Pg=" & TotalPages & "'>") 
      Response.Write("Ultima") 
      Response.Write("</a></font></B>  ")         

 Else 
      Response.Write("<B><font color=""#666666"" size=""2"" face=""Arial"">") 
      Response.Write("Próxima")  
      Response.Write("</font></B>  ") 

      Response.Write("<B><font color=""#666666"" size=""1"" face=""Arial"">") 
      Response.Write("Ultima")  
      Response.Write("</font></B>  ") 
End If  
'################## fim paginacao 01 ########################
%>
                   </div>
                   <div align="center"></div>
                   <div align="center"></div>
                   <div align="center"></div>
                   <div align="center"></div></td>
               </tr>
             </table>

Aqui eu exibo noticias gerais, ou seja, noticias.asp. Eu quero fazer o seguinte, desntro desta pagina exibir artigos das categorias: saude, entretenimento e educação e ficaria assim: noticias.asp?categoria=saude, noticias.asp?categoria=entretenimento e noticias.asp?categoria=educacao. Entendeu?

Outros exemplos:

EXEMPLO1

EXEMPLO2

EXEMPLO3

xanburzum · Junho 16, 2011

olha este link

aprendizes · Julho 5, 2011

Agora eu fiz desta maneira: Request("categoria") = "esporte" então "SELECT * FROM tabela_esporte" e apareceu o erro: Script error detected at line 234.

Source line: RS.MoveFirst 'Move o RecorSet para o início

Description: BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

Mário Monteiro · Julho 5, 2011

Voce não pode fazer este tipo de coisa sem tratar antes para ver se tem registros pois caso não tenha dará este erro

Faça

If NOT RS.EOF Then
RS.MoveFirst 
End If

Ao menos este erro não dará

aprendizes · Julho 5, 2011

Mário,

Veja bem, não sei se expliquei bem o que preciso fazer, mas vou tentar. Eu tenho uma tabela no me bd chamada classe dentro desta tabela, tem as categorias:

Saude

Educação

Regiões

Pois bem, eu queria exibir todas matérias registradas na página conteudo.asp (com paginação)ao invés de ficar saude.asp, educacao.asp etc. Eu queria que ficasse conteudo.asp?classe=saude, conteudo.asp?classe=educacao, ou seja eu preciso exibir todas as matérias cadastradas na tabela em uma só pagina. Entendeu?

Obrigado

Vinicius Ianni · Julho 6, 2011

Bom, pelo que entendi, o conteudo.asp receberia a categoria via querystring e com isso faria o select da categoria relacionada.

A pagina que irá enviar os dados para o conteudo, precisará ter os links no formato que você colocou.

E no conteudo.asp precisará ter mais ou menos o seguinte:

classe=request.querystring("classe")

sql="select * from tabela where categoria="&classe

Arquivado

Categorias

Recommended Posts

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Felipe Tonolli 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

aprendizes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante