Ir para conteúdo

POWERED BY:

Arquivado

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

Mimizinha

Checkbox em paginação

Por , em ASP Clássico

Recommended Posts

Mimizinha    0

Mimizinha
Postado

Olá Gatinhos!

 

Como posso adaptar nesta minha paginação de dados, que em sí propia funciona normalmente sem erros.

Mas estou querendo agora INCLUIR um CAMPO CHECKBOX para selecionar alguns emails, ou todos. Mas que mantenha os selecionados mesmo depois de trocar de paginação.

 

Consegui até adaptar neste código um script com js para selecionar todo, e ELE FAZ, mas quando avanço na paginação ele perde tudo.

Como posso realizar isso, ter checbox em cada paginação e ir guardando todos os selecionados????

 

SEGUE MEU EXEMPLO:

<!--#include file="conexao.asp" -->
<HTML>
<HEAD><TITLE>PAGINACAO + CHECKBOX</TITLE>
<LINK HREF="config-css.css" REL="stylesheet" TYPE="text/css">
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript">
$(document).ready(function() {	
	$("p").toggle(function(){$("input[@type=checkbox]").each(function(){this.checked = true;});
	            },function(){$("input[@type=checkbox]").each(function(){this.checked = false;});
	         });
         });
</script>
<style> 
p {
	cursor: pointer;
	text-decoration: none;
	font-family: Arial, Helvetica, sans-serif;
	background: #FFCC00;
	text-align: center;
	display: block;
	margin: 0px;
	padding: 7px 4px 0px;
	height: 24px;
	width: 160px;
	float: left;
	color: #000000;
} 
</style>
</HEAD>
<BODY>
<%
 IDMAIL = Replace(Trim(Request.QueryString("pesquisar")),"'","")
 PagAtual = Request.QueryString("paginacao")
 MaximoPorPagina = 30

 SQL = "SELECT * FROM MAILS WHERE (ID LIKE '%" & IDMAIL & "%' OR NewsletterEmail LIKE '%" & IDMAIL & "%') ORDER BY ID DESC"
 SET ObjRS = Server.CreateObject("ADODB.Recordset")   
     ObjRS.CursorType = 3
     ObjRS.CacheSize = MaximoPorPagina
     ObjRS.PageSize  = MaximoPorPagina
     ObjRS.Open SQL, ObjCX
  IF ObjRS.BOF AND ObjRS.EOF THEN 
%>
<table width="36%" height="80" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr>
    <td><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="get" name="frm" target="_parent" id="frm">
      <table width="291" height="40" border="0" align="right" class="PRODBORDA">
        <tr>
          <td width="5"><div align="right"><strong><font color="#FFFFFF">:</font></strong></div></td>
          <td width="38"><div align="center"><strong>Email:</strong> </div></td>
          <td width="307"><div align="center"><input name="pesquisar" type="text" id="pesquisar" size="30"></div></td>
          <td width="120"><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar"></td>
        </tr>
      </table>
    </FORM></td>
  </tr>
</table>
<table width="36%" height="60" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr>
    <td><div align="center"><font color="#0060BF">Não existem e-mails cadastrados em nosso banco de dados</font></div></td>
  </tr>
</table>
<% 
 ELSE
 IF Request.QueryString("paginacao") = "" THEN
    PagAtual = 1
        ELSE
    PagAtual = Request.QueryString("paginacao")
 END IF

 ObjRS.MoveFirst 
 TotalPages = ObjRS.PageCount
 ObjRS.AbsolutePage = PagAtual  
%>
<table width="36%" height="80" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr>
    <td><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="get" name="frm" target="_parent" id="frm">
      <table width="294" height="40" border="0" align="right" class="PRODBORDA">
        <tr>
          <td width="5"><div align="right"><strong><font color="#FFFFFF">:</font></strong></div></td>
          <td width="38"><div align="center"><strong>Email:</strong> </div></td>
          <td width="307"><div align="center"><input name="pesquisar" type="text" id="pesquisar" size="30"></div></td>
          <td width="120"><input name="submeter_formulario" type="submit" id="submeter_formulario" value="Pesquisar"></td>
        </tr>
      </table>
    </FORM></td>
  </tr>
</table>
<table width="36%" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr>
    <td width="18%"><div align="center" class="FONTE_XTRAS_5"><p>MARCA Todos da Tela</p></div></td>
  </tr>
</table>
<TABLE width="37%" align="center" cellPadding=2 cellSpacing=3>
  <TBODY>
    <TR>
      <%
 FOR i = 1 TO MaximoPorPagina           
           IF cor = "#FFFFFF" THEN
              cor = "#F9F9F9"
             ELSE
              cor = "#FFFFFF"
           END IF
%>
      <TD vAlign=top><TABLE width="100%" height="30" cellPadding=1 cellSpacing=2 bgcolor="<%=cor%>" class=PRODBORDA>
        <TBODY>
          <TR>
            <TD width="26" align=middle valign="middle"><div align="center"><input name="box" type="checkbox" value="<%= objRS("NewsletterEmail")%>"></div></TD>
            <TD width="963" vAlign=middle><a href="mailto:<%=ObjRS("NewsletterEmail")%>"><%=ObjRS("NewsletterEmail")%></a></TD>
            </TR>
        </TBODY>
      </TABLE></TD>
    </TR>
  </TBODY>
  <%
    ObjRS.MoveNext
 IF ObjRS.EOF THEN
    EXIT FOR
    END IF
    NEXT
%>
</TABLE>
<BR>
<BR>
<table width="36%" align="center" bgcolor="#EDF5DE">
  <tr>
    <td align="center"><div align="right">
        <%
IF Cint(PagAtual) > 1 THEN
%>
        <a href="emails.asp?paginacao=<%=PagAtual-1%>" target="_parent">retornar</a>   
        <% 
ELSE
%>
        retornar  
        <%
END IF  
FOR t=1 TO TotalPages
    IF CInt(t) = CInt(PagAtual) THEN 
%>
        <b><%=t%></b>
        <%
ELSE
%>
        <a href="emails.asp?paginacao=<%=t%>"><%=t%></a>
        <% 
END IF  
    IF Cint(t) < TotalPages THEN
%>
        <%
END IF
NEXT
     
IF Cint(PagAtual) < TotalPages THEN
%>
   <a href="emails.asp?paginacao=<%=PagAtual+1%>" target="_parent">avançar</a>   
      <%
ELSE
%>
   avançar
<% 
END IF
%>
    </div></td>
  </tr>
  <%
END IF     
     ObjRS.Close
 SET ObjRS = Nothing
     ObjCX.Close
 SET ObjCX = Nothing
%>
</table>
</BODY>
</HTML>

Aguardo um breve retorno.... Pois realmente não sei como criar algo para isso neste meu codigo, consegue chegar até aqui, tudo funcionando, mas o checkbox, não consigo mesmo.

 

ABRAÇOS.....E BEIJOS DA MIMIZINHA

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mimizinha    0

Mimizinha
Postado

Olá Amigos!

 

Passei o dia hoje tentando e achei este código que faz isso, tentei adaptar ele no meu, mas não consigo.

Poderiam se possível tentar me ajudar somente incluir desde codigo do super ASP, a parte de checkbox:

 

Não consigo entender a logica dele, tentei desmembrar, mas não tive exito.

Só quero mesmo incluir no meu codigo, a opção de selecionar os checkbox e guardar os valores mesmo após paginação 1 2 3 4 5 e etc...

 

Segue link: CODIGO CHECKBOX COM PAGINACAO

 

 

Obrigado.

beijos

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você também pode passar os valores em uma session e depois recuperá-los

 

ola este exemplo, onde recupero os valores e depois insiro no bd

 

if qtd_produtos = "" then
Response.write("erro..."
response.redirect("outra_pagina.asp")
else
qtd_produtos = split(Request.Form("qtd_produtos"),",")
if qtd_produtos = ""
produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mimizinha    0

Mimizinha
Postado

Obrigado Colega!

 

Não entendi muito bem seu exemplo em como posso usar, mas me interessei muito em guardar em uma session? mas como fazer isso? e depois digamos:

 

1) estou na paginação 1, seleciono alguns emails, daí vou para a paginação 2, e seleciono mais alguns, ok, depois volto para a paginação 1, eles vão estar checados??? sim ou não.

 

E depois no final, como posso resgatar todos eles.

Realmente falando mesmo, gostaria de fazer do mesmo jeito que foi realizado no superasp, mas não sei como.

 

Poderiam me ajudar com isso?

Obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você guardando e sessions, toda página que for acessa , você verifica , antes a variavel session, tendo ela , você lê e recupera as info, como sendo , checados o box 1, 3 6

 

o outro exemplo que posteo, está bem explicativo, só seguir os passos...

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