Ir para conteúdo

POWERED BY:

Arquivado

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

Martinsrj

[Resolvido] Antes de Excluir exibir uma msg para o usuário.

Por , em ASP Clássico

Recommended Posts

Martinsrj    0

Martinsrj
Postado

Olá pessoal, boa tarde!

Possuo o código abaixo onde o usuario seleciona o link que deseja excluir. A minha dúvida é o seguinte: Como que eu posso inserir uma mensagem para o usuario: DESEJA REALMENTE EXCLUIR ESSA AÇÃO?, caso o usuário escolha a opção sim o seguinte link funcione link: 

<a href="delete_descricao.asp?cod_dados1=<% = rsDadosB.Fields("cod_acao") %>" class="menu19">
                    <% = rsDadosB.Fields("acao") %></a> 
                    <% session("cod_dados") = rsDadosB("cod_dados") %>

Caso o usuario escolha a opção NÃO continue na mesma pagina.

 

desde já agradeço pela ajuda.

 

Abraços.

 

<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
      <td width="50%" height="20" class="tabela_verde">Ação</td>
      <td width="16%" class="tabela_verde"><strong>Status</strong></td>
      <td width="7%" class="tabela_verde">Legenda</td>
      <td width="17%" class="tabela_verde">Responsável</td>
      <td width="17%" class="tabela_verde">Data</td>
  </tr>
<%
Do While Not rsDadosB.Eof
%>                  
  <tr>
      <td class="tabela_branca"> 
      <a href="delete_descricao.asp?cod_dados1=<% = rsDadosB.Fields("cod_acao") %>" class="menu19">
      <% = rsDadosB.Fields("acao") %></a> 
      <% session("cod_dados") = rsDadosB("cod_dados") %></td>
      <td height="10" class="tabela_branca"><% = rsDadosB("status") %></td>
      <td class="tabela_branca"><div align="center">
      <img border="0" src="<% = rsDadosB("legenda") %>"</div></td>
      <td class="tabela_branca"><% = rsDadosB("responsavel") %></td>
      <td class="tabela_branca"><div align="center">
      <% = (ConvertDataBanco(rsDadosB("data"))) %>
      </div>
      </td>
 </tr>
<%
rsDadosB.MoveNext
Loop
rsDadosB.Close
Call FechaConexao
Set rsDadosB = Nothing
%>                        
</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo: antes de excluir eu exibo os dados em um form, e na hora de clicar para excluir você pode exibir um pop-up se realmente ker mesmo excluir

 

form

<%	'excluir_form.asp recebe o codigo pela url, dou um request.querystring
  	'e atribuo a varcodigo para poder fazer a SQL,monto um form com um input
	' type hidden para passar o codigo para excluir_action.asp ( action do form)
	
	option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo
	'recupero a var
	varcodigo=request.querystring("codigo")
	if session("login") <> "admin" then
		response.redirect("administracao.asp?msgeof=11")
	else
		'crio a conexao%>
		<!--#include file="conn/conexao1.asp"-->
		<% 'abro a conexao
		call abreconexao
		'crio o rs
		set rs=Server.CreateObject("ADODB.Recordset")
		'crio a SQL
		SQL="SELECT * FROM login WHERE codigo="&varcodigo&""
		rs.open SQL,conexao,1,3%>

<html>
<head>
<title>Excluir Usuário</title>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="79%" border="0" bgcolor="#336699" cellpadding="0" cellspacing="0"> 
<tr> <td width="2%"> <div align="center"><b><img src="file:///A|/asp/imgs/curva.gif" width="10" height="19"></b></div></td><td width="98%"> 
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#FFFFFF">:: 
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Excluir 
Usuário</font></b></div></td></tr> <tr> <td colspan="2"> <div align="center"></div><div align="center"></div><div align="center"></div><div align="center"></div></td></tr> 
</table><table width="79%" border="0" cellpadding="0" cellspacing="0" bgcolor="#336699"> 
<tr> <td bgcolor="#336699" height="112">
 <form name="form1" method="post" action="excluir_action_treina.asp"> 
<input type="hidden" name="codigo" value="<%=rs("codigo")%>"> <table width="100%" border="1" bordercolor="#e6e6e6"> 
<tr> <td width="19%"> <div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Código</font></b></font></div></td><td width="24%"> 
<div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Login</font></b></font></div></td><td width="22%"> 
<div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Senha</font></b></font></div></td><td width="35%"> 
<div align="center"><font color="#E6e6e6"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Email</font></b></font></div></td></tr> 
<tr> <td width="19%"> <div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("codigo")%></font></font></font></b></font></div></td><td width="24%"> 
<div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("login")%></font></font></font></b></font></div></td><td width="22%"> 
<div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("senha")%></font></font></font></b></font></div></td><td width="35%"> 
<div align="center"><font color="#33CCFF"><b><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%=rs("email")%></font></font></font></b></font></div></td></tr> 
<%'fecha o rs
  set rs=nothing
  'fecha a conexao
  call fechaconexao
  end if%> </table><p align="center"> 
          <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22"> 
</p></form></td></tr> </table>
<p> </p><p> </p><p> </p>
</body>
</html>

action

<%	'aplicacaun para excluir os dados da base de dados do access,onde recupero
  	'o codigo passado pelo excluir_form.asp do hidden,que no mesmo jah verifica 
	'se o session = do admin (xanburzum);
	'depois de recuperar o codigo crio a conexao, o rs , o SQL dois SQL'z
	'um para selecionar o login para verificar se é o admin o outro
	'para executar a exclusaun e abro
	'se o rs("login") = xanburzum redireciono para administracao?msgeof=12
	'onde lá receberá uma popup k naun pode me excluir,senaun executa o sql
	
	Option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, rsdel, SQLdel, varcodigo
	'recupero a var
	varcodigo=Trim(request.form("codigo"))
	'crio a conexao %>
	<!--#include file="conn/conexao1.asp"-->
	<% 'abro a conexao
	call abreconexao
	'crio o rs
	set rs=server.createobject("ADODB.Recordset")
	'crio o SQL
	SQL="SELECT login FROM login WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
	  'verifico atravez do select se o login é do admin
	if rs("login")= "admin" then
		response.redirect("administracao.asp?msgeof=12")
		set rs=nothing  'fecho o rs do select
	else
	  'crio o rsdel para excluir o registro
	    set rsdel=server.createobject("ADODB.Recordset")
		SQLdel="DELETE FROM login WHERE codigo="&varcodigo&""
		rsdel.open SQLdel,conexao,1,3
		response.redirect("administracao_treina.asp?msg=3")
		set rsdel=nothing
	end if
	'fecha a conexao
	call fechaconexao %>

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