Ir para conteúdo
Fórum Script Brasil
  • 0

Deletar Mensagens

Guest - Neo -

Perguntado por Guest - Neo -,

 Share

Pergunta

Guest - Neo -

Guest - Neo -

Postado
Postado

Possuo um sistema de mensagens, que funciona da seguinte maneira, alguém manda uma mensagem, e ela fica nessa caixa de mensagens q no caso é o codigo logo abaixo, gostaria de colocar um botão de delete como faço isso?

<%@Language="VBScript"%>

<%Option Explicit%>

<%Response.Expires = 0%>

<%

%>

<%

Dim objConn

Dim varConn

Dim varSql

Dim rsMuralRecados

Dim i

'Cria a conexão com a base de dados

Set objConn = Server.CreateObject("ADODB.Connection")

varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Dados\BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

objConn.Open varConn

'Seleciona todos os registros ordenando pelo ID

varSql = "SELECT * "

varSql = varSql & "FROM MuralRecados "

varSql = varSql & "ORDER BY IdRecado DESC "

'Seta a variável e define as propriedas

Set rsMuralRecados = Server.CreateObject("ADODB.Recordset")

rsMuralRecados.CursorType = 0

rsMuralRecados.CursorLocation = 3

rsMuralRecados.LockType = 3

rsMuralRecados.PageSize = 7

rsMuralRecados.CacheSize = 7

rsMuralRecados.Open varSql, objConn

'Verifica qual página deve ser exibida

If Request.QueryString("Pagina") <> "" Then

rsMuralRecados.AbsolutePage = Request.QueryString("Pagina")

Else

If Not rsMuralRecados.EOF Then

rsMuralRecados.AbsolutePage = 1

End If

End If

%>

<html>

<head>

<title>recados para secretaria do GAU</title>

<style type="text/css">

<!--

a:active{

text-decoration: none;

color: #333333;

}

a:hover{

text-decoration: none;

color: #000000;

}

a:link{

text-decoration: none;

color: #333333;

}

a:visited{

text-decoration: none;

color: #333333;

}

.Texto1{

font-family: Verdana;

font-size: 10px;

font-weight: none;

color: #000000;

text-decoration: none;

}

.Texto2{

font-family: Verdana;

font-size: 10px;

font-weight: bold;

color: #000000;

text-decoration: none;

}

.Borda1{

border: 1px solid #999999;

}

.Form1{

border: 1px solid #999999;

font-family: Verdana;

font-size: 10px;

color: #000000;

text-decoration: none;

background-color: #F4F4F4;

}

-->

</style>

<script language="JavaScript">

<!--

function Paginacao(varPagina){

window.location = ("Default.asp?Pagina=" + varPagina);

}

function NovoRecado(){

window.open ("NovoRecado.asp", "NovoRecado", "width = 430, height = 225, top = 25, left = 25");

}

-->

</script>

<script language="JavaScript" type="text/JavaScript">

<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

//-->

</script>

<script language="JavaScript" type="text/JavaScript">

function formulario(resposta) {

var width = 380 ;

var height = 520 ;

var left = 0

var top = 0

window.open('formulario.html','matrix','width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=no,fullscreen=no');

}

</script>

</head>

<body>

<table cellpadding="0" cellspacing="0" border="0" width="102%" height="100%" align="center">

<tr>

<td align="center" valign="middle">

<table width="500" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#A6DCEC">

<%For i = 1 to rsMuralRecados.PagesiZe%>

<%If rsMuralRecados.EOF = False Then%>

<tr>

<td>

<table border="0" width="100%">

<tr>

<td colspan="2"> <font class="Texto2"> Data/Hora Envio: </font>

<font class="Texto1"> <%=rsMuralRecados.Fields("DataInclusao") & " - " & rsMuralRecados.Fields("HoraInclusao")%> </font> </td>

</tr>

<tr>

<td width="53%"> <font class="Texto2"> De: </font> <font class="Texto1"> <%=rsMuralRecados.Fields("De")%> </font> </td>

<td width="47%"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

Responder E-mail : </font><font class="Texto1"><a href="javascript:formulario('resposta');"><%=rsMuralRecados.Fields("email")%></a></font></strong></td>

</tr>

<tr>

<td colspan="2"> <font class="Texto2"> Assunto : </font> <font class="Texto1">

<%=rsMuralRecados.Fields("Para")%> </font> </td>

</tr>

<tr>

<td colspan="2"> <font class="Texto2"> Mensagem para Secretaria:

</font> <font class="Texto1"> <%=rsMuralRecados.Fields("Mensagem")%> </font> </td>

</tr>

<%rsMuralRecados.MoveNext%>

<%If i <> rsMuralRecados.PageSize and NOT rsMuralRecados.EOF Then%>

<tr>

<td height="5" colspan="2"> </td>

</tr>

<tr>

<td height="1" colspan="2" bgcolor="#CCCCCC"> </td>

</tr>

<tr>

<td height="5" colspan="2"> </td>

</tr>

<%End If%>

</table>

</td>

</tr>

<%End If%>

<%Next%>

<tr>

<td height="20"><a href="messagedelete.asp?messageid=<%=rsMessages("id")%>">apagar

esta mensagem</a></td>

</tr>

<tr>

<td height="20">

<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">

<tr>

<td>&nbsp; </td>

<td align="right">

<%If Request.QueryString("Pagina") = 1 or Request.QueryString("Pagina") = "" Then%>

<input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") - 1%>);" disabled>

<%Else%>

<input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") - 1%>);">

<%End If%>

<%If rsMuralRecados.EOF Then%>

<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") + 1%>);" disabled>

<%Else%>

<%If Request.QueryString("Pagina") = "" Then%>

<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") + 2%>);">

<%Else%>

<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") + 1%>);">

<%End If%>

<%End If%>

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

</table>

</body>

</html>

<%

rsMuralRecados.Close

Set rsMuralRecados = Nothing

objConn.Close

Set objConn = Nothing

%>

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
dnlmosilva

dnlmosilva

Postado
Postado

Bom, levando em consideração que seu banco de dados é BDMuralRecados.mdb e a table contida dentro do mesmo é MuralRecados você tem que criar um código asp que selecione o registro que você quiser desta table e o exclua...

laugh.gif Se precisar de alguma material para consulta, entre em contato comigo ok?!

[]s Daniel

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

amigo, você tem noção do que é a função DELETE do SQL?

Veja uma referencia: Asp - DELETE - BASICO

Pois, não é bem assim, chegar e largar o codigo e dizer: "eu quero isso, isso e aquilo"

Po.. estamos aqui para lhe ajudar a aprender a fazer o que você quer.. não a dar feito!

Dá uma lida no link que lhe passei, e se surgirem duvidas de como começar, ou alguma outra coisa, estamos aqui.

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
--Ludson--

--Ludson--

Postado
Postado

tipo, você pode criar uma página tipo "delete.asp" e colocar uma função que busque a id do recado na tabela Recados através de um Request.QueryString

Na conexão com o BD em vez de colocar:

delete * from Recados where id="&Request.querystring("id")&""

não so muito bom nesses assuntos, nem sei direito se ta correto, se estiver errado alguém me corrija porque aí já aprendo direito, mas tipo acho q é por aí!.

Flows!!! ph34r.gif

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...