Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

[Resolvido] Editar / Excluir...

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

olha este exemplo:

 

form_atualizar.asp

<%  'aplicaçaun para atua;izar os dados do usuário na base de dados do access
	'onde através do request.querystring do código ,faremos uma SELECT (SQL)
	'e jogaremos no value do form ,sendo postado através do post pra
	'atualizar_action.asp k fará o UPDATE
	
	Option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo
	'recupero a var
	varcodigo=request.querystring("codigo")
	
	'crio a conexao %>
	<!--#include file="conn/conexao1.asp"-->
	<%call abreconexao
	'crio o recordset
	set rs=Server.CreateObject("ADODB.Recordset")
	SQL="SELECT * FROM login WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
	'crio o form para jogar os rs'z no value %>	
<html>
<head>
<title>Atualização de Usuários</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
body {SCROLLBAR-FACE-COLOR: #336699; SCROLLBAR-HIGHLIGHT-COLOR: #8080FF; SCROLLBAR-SHADOW-COLOR: #FFFFFF; SCROLLBAR-3DLIGHT-COLOR: #ffff99; SCROLLBAR-ARROW-COLOR: #FFFFFF; SCROLLBAR-TRACK-COLOR: #E6E6E6; FONT-FAMILY: Arial, Verdana; SCROLLBAR-DARKSHADOW-COLOR: #008080 }
input {  font-size: 10px; font-style: normal; color: #0000FF; background: #CCCCCC}
</style>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#0000FF" alink="#FF0000">
<table width="75%" border="0" cellpadding="0" cellspacing="0" align="center">
  <tr> 
	<td width="2%" bgcolor="#666666"> 
	  <div align="center"><b><img src="imgs/curva.gif" width="10" height="19"></b></div>
	</td>
	<td width="98%" bgcolor="#336699"> 
	  <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">Atualizar 
		Dados do Usuário</font></b></div>
	</td>
  </tr>
  <tr bgcolor="#336699"> 
	<td colspan="2" height="19"> </td>
  </tr>
  <tr bgcolor="#336699"> 
	<td height="72" colspan="2"> 
	  <form name="form1" method="post" action="atualizar_action.asp">
		<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Login:</font></b> 
		  <input type="text" name="login" size="12" maxlength="12" value="<%=rs("login")%>">
		  <input type="hidden" name="codigo" value="<%=rs("codigo")%>">
		</p>
		<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Email:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
		  <input type="text" name="email" size="48" maxlength="48" value="<%=rs("email")%>">
		  </font></b></p>
		<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6">Senha:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
		  <input type="password" name="senha" size="8" maxlength="8" value="<%=rs("senha")%>">
		  </font></b></p>
		<p align="center"> 
		  <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22">
		</p>
	  </form>

action_atualizar

<%	'aplicacaun para fazer o update dos dados do form atualizar_form.asp
	  'onde recupero todos os dados dos campos do form,dou um replace nos ' por ""
	'e crio a SQL para efetuar o update depois redireciono p/ administracao.asp
	' com passagem de parametro na URL msg=2
	
	option explicit
	'declaro as var
	dim conexao, conDBQ, constring, rs, SQL, varcodigo, varlogin, varsenha, varemail
	'recupero as var
	varcodigo=trim(request.form("codigo"))
	varlogin=trim(request.form("login"))
	varsenha=trim(request.form("senha"))
	varemail=trim(request.form("email"))
	' retiro qqer erro de digitaçao do user ,no caso ( aspas simples ')
	varlogin=replace(varlogin,"'","")
	varsenha=replace(varsenha,"'","")
	varemail=replace(varemail,"'","")
	'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="UPDATE login SET login='"&varlogin&"',senha='"&varsenha&"',email='"&varemail&"' WHERE codigo="&varcodigo&""
	rs.open SQL,conexao,1,3
		if session("login") = "admin" then
			response.redirect("administracao.asp?msg=2")
		else
			response.redirect("administracao1.asp?msg=2")
		end if
	'fecho o rs
	set rs=nothing
	'fecho a conexao
	call fechaconexao%>

excluir_form.asp

<%	'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>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
body {SCROLLBAR-FACE-COLOR: #336699; SCROLLBAR-HIGHLIGHT-COLOR: #8080FF; SCROLLBAR-SHADOW-COLOR: #FFFFFF; SCROLLBAR-3DLIGHT-COLOR: #ffff99; SCROLLBAR-ARROW-COLOR: #FFFFFF; SCROLLBAR-TRACK-COLOR: #E6E6E6; FONT-FAMILY: Arial, Verdana; SCROLLBAR-DARKSHADOW-COLOR: #008080 }
</style>

</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="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.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>

excluir_action.asp

<%	'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.asp?msg=3")
		set rsdel=nothing
	end if
	'fecha a conexao
	call fechaconexao %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ola xanburzum boa noite...

 

Cara encontrei este codigo e achei mais facil de mexer do q este q você me postou. http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

só q este q estou usando naun quer alterar ocorre td certinho só naun altera

você pode me dar uma ajuda ?????

 

altera.asp

<%
'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis
Option Explicit

'Não deixa informações no Cache
Response.Expires = 0

'Declaração das variáveis
Dim objConn, strQuery, sql_query, RsQuery, campo, sql, id
Dim nome, descricao, ObjRs

'Atrubuição dos valores as respectivas variáveis
nome = Request.Form("nome")
descricao = Request.Form("descricao")

if nome = "" then
	descricao = " "
end if
id = Request.Form("id")

'Cria o objeto RecordSet e atribui a variável 
Set objConn =  Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("../../dados/cadastro.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "UPDATE temas SET nome = '"&nome&"', descricao='"&descricao&"' WHERE id ="&id&"'"

'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa inserção no Banco de Dados 
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"Zera" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing 
if err = 0 Then
end if
%>	

<head>
<meta http-equiv="refresh" content="3;url=form.asp">
</head>

<p align="center"><img border="0" src="../imagens/carregando.gif"></p>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

é gerado algum erro ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

use o FF ou libere erros do IE pois deu esse erro aqui:

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

 

[Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression 'id =30''.

 

/admin/temas/altera_dados.asp, line 33

 

parece ser SQL, reparei que uso aspas simples, faça isso aqui:

 

strQuery = "UPDATE temas SET nome = '"&nome&"', descricao='"&descricao&"' WHERE id ="&id

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