Ir para conteúdo

POWERED BY:

Arquivado

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

Custellinha

Deletar Registros selecionando num form!

Por , em ASP Clássico

Recommended Posts

Custellinha    0

Custellinha
Postado

Galera...meu sistema de administração tem exclusão, inclusão e edição de registroos! mas isso nao vem ao caso...às vezes quero deletar uns comentários q a galera faz que não é legal...e fikar apagando um por um eh tenso!Teria uma forma de uma caixa de seleção, selecionar vários comentários de uma vez e apagar os selecionados ?!?!Abração aí...

Compartilhar este post

Link para o post
Compartilhar em outros sites

e-junior    0

e-junior
Postado

e ai Custellinha tudo bom???eu tenho isso q fisso no meu curso acho q e isso mesmo q você quer.##########PAGINA LISTA CAIXA SELECAO.ASP##########<html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><% Set conexao=Server.CreateObject("ADODB.Connection") conexao.ConnectionString ="Provider=Microsoft.jet.oledb.4.0;Data Source=D:\asp\banco\banco.mdb;" conexao.Open sql = "SELECT * FROM tabcli ORDER BY cpcod DESC" Set tabela = conexao.execute(sql)%><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#EBEBEB"> <tr> <td> </td> </tr> <tr> <td align="center"><form name="form1" method="post" action="exclui_caixa_selecao.asp"> <table width="70%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr align="center"> <td colspan="3"> <h1><b>LISTA</b></h1></td> </tr> <tr bgcolor="#FFFFFF"> <td width="19%" align="center" bgcolor="#CCCCCC"> <font color="#CC0000"><strong>CÓDIGO</strong></font></td> <td width="59%" align="center" bgcolor="#CCCCCC"> <font color="#CC0000"><strong>NOME</strong></font></td> <td width="22%" align="center" bgcolor="#CCCCCC"> <font color="#CC0000"><strong>FONE</strong></font></td> </tr> <% while not tabela.eof 'Enquanto não chegar ao fim da variavel tabela %> <tr> <td align="center"><input type="checkbox" name="cpcod" value="<%=tabela("cpcod")%>"> </td> <td align="left"><h5><%=tabela("cpnome")%></h5></td> <td align="center"> <h5><%=tabela("cpfone")%></h5></td> </tr> <% tabela.movenext wend 'Fim do enquanto "while" %> <tr> <td align="center" bgcolor="#CCCCCC"> <h5> <input type="submit" name="Submit" value="EXCLUIR"> </h5></td> <td colspan="2" align="center" bgcolor="#CCCCCC"> <h5>FIM</h5></td> </tr> </table> </form></td> </tr> <tr> <td> </td> </tr></table></body></html>##########PAGINA EXCLUI CAIXA SELECAO.ASP##########<html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body> <% Set conexao=Server.CreateObject("ADODB.Connection") conexao.ConnectionString ="Provider=Microsoft.jet.oledb.4.0;Data Source=D:\asp\banco\banco.mdb;" conexao.Open dim cpcod,cpnome,cpfone cpcod = request.Form("cpcod") cpnome = request.Form("cpnome") cpfone = request.Form("cpfone") sql = "DELETE * FROM tabcli WHERE cpcod IN("&cpcod&")" Set tabela = conexao.execute(sql) %></body></html>

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