Ir para conteúdo

POWERED BY:

Arquivado

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

filipecrosk

Erro de paginacao

Por , em ASP Clássico

Recommended Posts

filipecrosk    0

filipecrosk
Postado

e ai galera do forum.. bao demais ne??desenvolvi uma pagina que mostra algumas fotos como um menu, e ao clicar na foto ela aparece em tamanho real no frame ao lado.Nesta tela de "menu" eu coloquei um botao para o usuario escolher quantos registros por pagina ele vai ver, ate ai tudo funciona otimamente, deixei como default mostrar 5 registros, e entao o usuario escolhe se quer ver 5,10,20,50 ou 100 registros por pagina. e funciona OK!mas na hora que ele clica para ir para a proxima pagina volta a mostrar so 5 registros por pagina(no caso os 5 depois).e quero que ao passar para a segunda pagina mostre os 10,20,50 ou 100 proximos registros de acordo com a escolha que o usuario tinha feito.Como faco isso??? hoje pensei em uzar alguma coisa com session mas nao to sabendo como fazer.GratoFilipe wanderleyveja a pagina:menu.asp<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Option Explicit%><!--#include file="conexao.asp"--><html><head><title>Turma Teen - O site que é a sua cara!!!</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script language="JavaScript" type="text/JavaScript"><!--function MM_jumpMenu(targ,selObj,restore){ //v3.0eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");if (restore) selObj.selectedIndex=0;}//--></script></head><body bgcolor="#FF9900" text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><div align="center"><form name="form1" method="post"><select name="quantidade" onChange="MM_jumpMenu('parent.frames[\'rightFrame\']',this,0)"><option>Mostrar</option><option value="menu.asp?quantia=5">5</option><option value="menu.asp?quantia=10">10</option><option value="menu.asp?quantia=15">15</option><option value="menu.asp?quantia=20">20</option><option value="menu.asp?quantia=40">40</option><option value="menu.asp?quantia=50">50</option><option value="menu.asp?quantia=100">100</option></select></form><strong><font size="2" face="Arial, Helvetica, sans-serif"> Fotos</font></strong> </div><!-- Programação e vizualização dos cadastros --><%Dim objRs, x, intpage, strquantidadeintpage = request.QueryString("txtpage")Set objRS = Server.CreateObject("Adodb.recordset")call Abreconexaostrquantidade = request.querystring("quantia")if strquantidade = "" thenobjrs.pagesize = 5else objrs.pagesize = strquantidadeend if objRs.open "Select * From fotos_turma order by id" , Objconn, 3, 3 'primeiro abre a conexao e segundo é qual banco, e 3 é o recordset que siginifica que ele move para tras e para frente,e o cursos do recordset move para tras e pra frente(segundo 3)'se fosse mover so para tras é 1if intpage = "" thenintpage = 1end ifobjrs.absolutepage = cint(intpage)x = 1while NOT objRs.EOF and x <= objrs.pagesize%><div align="center"><a href="exibefoto.asp?foto=<%=objrs("id")%>" target="exibe"><img src="fotos/<%=objrs("foto")%>" width="100" height="75" border="0"></a> </div><%x = x + 1ObjRs.movenextwend%><%if cint(intpage) > 1 then 'se for maior que a pagina 1 ira aparecer%><a href="menu.asp?txtpage=<%=intpage-1%>"><img src="../../imagens/anterior2.jpg" width="40" height="20" border="0"></a> <%end if%><%if cint(intpage) < objrs.pagecount then 'quantidade de paginas%><a href="menu.asp?txtpage=<%=intpage+1%>"><img src="../../imagens/proximo.jpg" width="40" height="20" border="0"></a> <%end if%><%objrs.closeset ObjRs= Nothingcall fechaconexao%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

manga    0

manga
Postado

Você está passando a quantia como QueryString, assim quando você clica na próxima página essa variável fica vazia retornando 5 registros. Use variável de Sessão para passar a quantia

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipecrosk    0

filipecrosk
Postado

estou tentando fazer assim:strquantidade = request.querystring("quantia")session("quantia")= strquantidadeif session("quantia") = "" then objrs.pagesize = 5else objrs.pagesize = session("quantia")end if mas nao ta dando certo nao.. como faco???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

No seu Select:

<select name="quantidade" onChange="MM_jumpMenu('parent.frames[\'rightFrame\']',this,0)">
<option>Mostrar</option>
<option value="menu.asp?quantia=5" <%If Request("quantia") = 5 Then Response.Write "Selected" End If%>>5</option>
<option value="menu.asp?quantia=10" <%If Request("quantia") = 10 Then Response.Write "Selected" End If%>>10</option>
... E assim por diante
</select>

Nos Links você faz:

<a href="menu.asp?txtpage=<%=intpage-1%>&quantia=<%=strquantidade%>"><img src="../../imagens/anterior2.jpg" width="40" height="20" border="0"></a> 
<%end if%>
<%if cint(intpage) < objrs.pagecount then 'quantidade de paginas
%>
<a href="menu.asp?txtpage=<%=intpage+1%>&quantia=<%=strquantidade%>"><img src="../../imagens/proximo.jpg" width="40" height="20" border="0"></a>

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