Ir para conteúdo

POWERED BY:

Arquivado

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

alexandroferreira

Deletando com AJAX

Por , em ASP Clássico

Recommended Posts

alexandroferreira    0

alexandroferreira
Postado

É o seguinte:

 

Peguei esse código na net e o mesmo faz o cadastro (funcionando perfeitamento) e deleta o registro (dando pau). Fiz algumas modificações para trabalhar em access, mas quando tento excluir um registro ele não vai.

 

Seguem os códigos:

 

ajaxCarregar.js

 

function GetXMLHttp() {
	var xmlHttp;
	try {
		xmlHttp = new XMLHttpRequest();
	}
	catch(ee) {
		try {
			xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");
		}
		catch(e) {
			try {
				xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
			}
			catch(e) {
				xmlHttp = false;
			}
		}
	}
	return xmlHttp;
}

var Enviar = GetXMLHttp();

// Início - Cadastro
function CadastrarDados() {
	var Nome = document.getElementById("Nome");
	var EMail = document.getElementById("EMail");

	var URL = "Cadastro.asp?Cadastrar=Ok&Nome="+Nome.value+"&EMail="+EMail.value+"";
	Enviar.open("GET", URL, true);
	Enviar.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
	document.getElementById("Resposta").innerHTML = "Cadastrado com Sucesso!!!";

	Nome.value = "";
	EMail.value = "";

	Enviar.send(null);
	Enviar.onload = lerTexto;
}
// Final - Cadastro

// Início - Deletar
function apagar(id, rowIndex) {
    if (confirm('Tem certeza que deseja excluir este registro?')) {
        document.getElementById("tabela").deleteRow(rowIndex);

        Enviar.open("GET",'Cadastro.asp?Deletar=Ok&id='+id,false);
		Enviar.send(null);
    }
}
// Final - Deletar

// Início - Carregar Página
function lerTexto() {
	var URLler = "Ler.asp";
	Enviar.onreadystatechange = stateChanged;
	Enviar.open("GET", URLler, true);
	Enviar.send(null);
}

function stateChanged() {
	if (Enviar.readyState==4) {
		document.getElementById("ler_Dados").innerHTML = Enviar.responseText;
	}
}

window.onload = lerTexto;
// Final - Carregar Página
===============================================================================================

 

ler.asp

 

<!--#include file="bib_conexao.asp"-->
<%
Dim Conexao, rs, sqldel, id

sqldel = "select * from teste"

Call abre_conexao

Set rs = Conexao.Execute(sqldel)
%>
<table width="407" border="1" cellspacing="0" cellpadding="0" id="tabela">
<tr>
<td width="164"><strong>NOME</strong></td>
<td width="159"><strong>EMAIL</strong></td>
<td width="76"><strong>Acionar</strong></td>
</tr>
<% While Not rs.EOF %>
<tr>
<td><%=rs("Nome")%></td>
<td><%=rs("EMail")%></td>
<td><a href="#" onClick="apagar('<%=rs("codigo")%>', this.parentNode.parentNode.rowIndex);">deletar</a></td>
</tr>
<%
		rs.MoveNext
		Wend
		%>
		<%
		rs.close
		conexao.close
		set rs= nothing
		set conexao = nothing
%>
</table>

===============================================================================================================

 

cadastro.asp

 

<!--#include file="bib_conexao.asp"-->
<%
Dim Conexao, rsca, sqlca, id

sqlca = "select * from teste"

Call abre_conexao

Set rs = Conexao.Execute(sqlca)
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Cadastrar</title>
<script language="javascript" src="ajaxCarregar.js"></script>
</head>
<body>
<div id="Resposta"></div><br>
<form id="Form">
Nome: <input type="text" id="Nome" name="Nome" value=""><br>
E-Mail: <input type="text" id="EMail" name="EMail" value=""><br>
<input type="button" id="Cadastrar" value="Cadastrar" name="Cadastrar" onClick="CadastrarDados();">
</form><br>
<br>
<br>
<div id="ler_Dados"></div>
</body>
</html>
<%
if (Request.QueryString("Cadastrar") = "Ok") then
Conexao.Execute("Insert Into Teste (Nome, EMail) Values ('"+Request.QueryString("Nome")+"', '"+Request.QueryString("EMail")+"')")
Response.Write("")
End If

if (Request.QueryString("Deletar") = "Ok") then
Conexao.Execute("Delete From Teste Where Codigo = '"+Request.QueryString("id")+"'")
Response.Write("")
End If
%>
==========================================================================================================

 

Alguém pode me ajudar a resolver esse problema?

 

Grato,

 

Alexandro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

RonaldoSV    0

RonaldoSV
Postado

Não teria algum script que voce esqueceu de colocar no cabeçalho da pagina pra ele pegar a id que voce quer pegar no onclick="apagar('<%=rs("codigo")%>? uma function 'apagar' não sei se to bem certo mas acho que tenque ter isso no cabeçalho.

Linha que pega a id -><a href="#" onclick="apagar('<%=rs("codigo")%>', this.parentNode.parentNode.rowIndex);">deletar</a></td>

abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele exibe algum número de erro, se sim poste número e linha....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Acrescente essa linha no HEAD do arquivo ler.ASP:

<script language="javascript" src="ajaxCarregar.js"></script>

E teste novamente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

existe um exemplo tipo explorer, onde você terá mais controle nos arquivos....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

A linguagem que você usou para deletar nao foi JScript, e sim vbScript, adapte seu codigo para essa linguagem

 

Veja o exemplo com ASP / JScript

http://tedk.com.br/blog/index.php/2008/08/13/cadastrando-com-ajax-asp/

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