Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.
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!
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
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 ?
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;">
<%Hora = "10:04:13"
%>
</span></font></span></font></font></span></span></font>
<%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%>
<%
'################## 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'------------------------------------------------------
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> ") </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:
olha este link
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.
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á
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
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
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....