Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zanelati2002

paginação

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

olá amigos mais uma vez conto com a juuda de todos estou tentando fazer uma paginação tipo aaasim

 

anterior 1 2 3 4 5 proxima mais tudo o que consegui fou assim pagina 1 2 3 4 5

 

olhem o codigo:

<% For i = 1 To rs.PageCountIf i = cint(pag) ThenResponse.Write iElsecat=request.querystring("cat")Response.Write "<a href='" & request.servervariables("script_name") & "?cat="&cat&"& pagina=" & i & "'>" & i & "</a> "End IfNextrs.closeFechaConexaoSet rs = nothing end ifend if%>

se alguém puder me ajudar

Compartilhar este post

Link para o post
Compartilhar em outros sites

mx loco    1

mx loco
Postado

Tente assim:<% If cint(pag) > 1 ThenResponse.Write("<a href'" & request.servervariables("script_name") & "?cat="&cat&"& pagina=" &cint(pag) - 1& "'><img src=""img/ico_ceta_esquerda.gif"" border=0 /> Anterior </a>") End IfFor i = 1 To rs.PageCountIf i = cint(pag) ThenResponse.Write iElsecat=request.querystring("cat")Response.Write "<a href='" & request.servervariables("script_name") & "?cat="&cat&"& pagina=" & i & "'>" & i & "</a> "End IfNextIf cint(pag) < Cint(RS.PageCount) ThenResponse.Write("<a href='" & request.servervariables("script_name") & "?cat="&cat&"& pagina=" &cint(pag) + 1 & "'> Próximo  <img src=""img/ico_seta_direita.gif"" border=0 /></a>") End IfBom... testa ai.. axu que deva funciona...t++

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

car deu certo em pontos ele não esta indo para a outra pagina e não teria como fazer assim « Anterior | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | Próxima »em vez de usar figuravaleu pela resposta

Compartilhar este post

Link para o post
Compartilhar em outros sites

mx loco    1

mx loco
Postado

Posta o codigo todo da tua pagina pra nos vermos...

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

a pagian toda

 

<!--#include file="conectar.asp"--><script language="JavaScript">function abrejanela(sURL){newwindow=open(sURL,"ver","scrollbars=no,toolbar=no,directories=no,menubar=no,resizable=no,status=no,width=250,height=40");}//</script><font face="Verdana"><% AbreConexao cat = request.querystring("cat")If cat = "" Then    nome = request.querystring("nome")If nome = "" Then pag = request.querystring("pagina")If pag = "" Then   pag = 1end ifend if%><p align="center"><b><font size="1"><% else %><% regs = 6%> 							  <TABLE cellSpacing=0 width="100%" id="table2">								<TBODY>								<TR>								<TD width="4%" height=29> </TD>								<TD width="96%"><FONT 								face="Verdana, Arial, Helvetica, sans-serif" 								size=1><STRONG>:: Scripts / ASP / <% sql = "select * from categorias where id="& cat &""Set Rs = Conexao.Execute(Sql)if not rs.EOF thennome = Rs("nome")response.write nomeend if %>  / Informação do download</STRONG></FONT></TD></TR></TBODY></TABLE></td>		</tr>		<tr>		  <td width="100%">			<table border="0" width="100%" cellspacing="0" cellpadding="0">			  <tr>				<td width="100%"></td>			  </tr>			  <tr>				<td width="100%">				  <p align="right"></td>			  </tr>			  <tr>				<td width="100%">				<table border="0" width="100%" id="table1" cellspacing="0">					<tr>				<TD>				  <p align="center"><body><% Set rs = Createobject("ADODB.recordset")set Rs.ActiveConnection = Conexaors.cursortype = 3 rs.pagesize = regsSql = "SELECT * FROM download WHERE categoria = "& cat &" ORDER BY nome"rs.Open SQLif rs.EOF then%></body>					<p align="center"><body><font color="#000000" size="2">Nenhum arquivo listado nesta categoria ainda!</font><% else %> </font></b><div align="center"> <p><font size="1" face="Verdana">[ Foram encontrados <b><%=rs.recordcount%></b> arquivos  ]<BR><BR></font><BR><% rs.Absolutepage = pagcontador = 0Do While Not rs.EOF AND contador < rs.Pagesizecontador = contador +1 %></font>	  </p>  <table border="0" cellspacing="0" width="469" height="67">	<tr>		 <td width="459" height="15" colspan="2">							  <TABLE cellSpacing=0 cellPadding=0 width=400 							  align=center border=0 id="table3">								<TBODY>								<TR>								<TD colSpan=3><strong>								<a href="http://www.zonemasters.com.br/index.php?page=download_script&url=zm_scripts/PHP/controle_de_downloads/452_Download_Tracker.zip">								<font face="Verdana, Arial"><a href="download.asp?id=<%=rs("id")%>"><%=rs("nome")%></font></a></strong></TD></TR>								<TR>								<TD colSpan=3><font face="Verdana, Arial"><%=rs("descricao")%></font></TD></TR>								<TR>								<TD width=125>								<DIV align=left><b><font face="Verdana, Arial">[<a href="java script:abrejanela('voto.asp?id=<%=rs("id")%>')">Votar</a>]</font></b></DIV></TD>								<TD width=193>								<DIV align=left><FONT face="Verdana, Arial" 								size=1><STRONG>Nota:</STRONG> 									<IMG 								src="../images/nivel03.jpg"> (  <%=rs("media")%><%=rs("id")%>   )</FONT></DIV></TD>								<TD width=82><FONT face="Verdana, Arial" 								size=1><STRONG>Clicks:</STRONG> 								</FONT><font face="Verdana, Arial"><%=rs("cliques")%></font></TD></TR>								<TR>								<TD>								<DIV align=left><FONT face="Verdana, Arial" 								size=1><STRONG>Tamanho:</STRONG> </FONT>									<font face="Verdana, Arial"><%=rs("tamanho")%></font></DIV></TD>								<TD colSpan=2>								<DIV align=left><FONT 								face="Verdana, Arial, Helvetica, sans-serif" 								size=1><B>Adicionado em:</B> 								</FONT><%=rs("adicionado")%></DIV></TD></TR>								<TR>								<TD colSpan=3>								<DIV 								align=center>--------------------------------------------------------------</DIV></TD></TR></TBODY></TABLE>	  </td>	</tr>	  </table></div><p align="center"><font size="1"><BR><% rs.MoveNextLoop %><% If cint(pag) > 1 ThenResponse.Write("<a href'" & request.servervariables("script_name") & "?cat="&cat&"& pagina=" &i& - 1& "'>Anterior </a>") End IfFor i = 1 To rs.PageCountIf i = cint(pag) ThenResponse.Write iElsecat=request.querystring("cat")Response.Write "<a href='" & request.servervariables("script_name") & "?cat="&cat&"& pagina=" &i& "'>" & i & "</a> "End IfNextIf cint(pag) < Cint(RS.PageCount) ThenResponse.Write("<a href='" & request.servervariables("script_name") & "?cat="&cat&"& pagina=" &i&  + 1&"'> Próximo  </a>") End Ifrs.closeFechaConexaoSet rs = nothing end ifend if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

No link, retire o espaço depois do "&" ele pode estar quebrando sua Query.

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

Salgado mesmo assim não funcionou não vai para a segunda parte dos codigos mais sera que ninguem tem outra paginação facil para me arrumar procurei aqui no forum mais a maioria ta com pau..Me ajudem

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tem link online para poder ver?

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

salgado veja bem tenho uma pagina que se chama default.aspque mostra todas as categorias no dbquando o cara clicar vamos supor em carros vai para uma pagina chamada imforme.aspo que seria mostra quantidaes de down deste arquivo, o que é este arquivo e também mostra de 1 até 6 mais tipo clico em honda que tem 21 arquivos teria que exibir as paginas da paginação aparece assim1 2 3 4 proximo ceto mais quando clico no 2 ou no proximo continua ainda a exibir a pagina 1 a pagina informe.asp já ta postada ainda não tenho ela no ar....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Cara, visualmente o código está correto, o que poderia estar acontecendo é que o numero da página não esteja indo corretamente. Verifique sua QueryString ao clicar em um dos links.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tem alguma coisa errada com seus Links, repare que tem um "& " perdido neles.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito