Ir para conteúdo

POWERED BY:

Arquivado

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

kaplan

Apagando do bd

Por , em ASP Clássico

Recommended Posts

kaplan    0

kaplan
Postado

Galera eu crie um sistema que pode incluir, excluir e alterar...queria fazer isto usando a mesma pagina como eu vou fazer isto tenho q usar QueryString???

 

ASP

[*]

 

[*]<%@LANGUAGE="VBSCRIPT" %>

 

[*]<html>

 

[*]<head>

 

[*]<title>Pagina Protegida</title>

 

[*]</head>

 

[*]<body>

 

[*]<%

 

[*]If Session("logado")="" Then

 

[*]  Response.Redirect("index.htm")

 

[*]End If

 

[*]Session.Timeout = "20"

 

[*]

 

[*]Dim Conn

 

[*]Dim Rs

 

[*]Dim Sql

 

[*]Dim SqlE

 

[*]

 

[*]Set Conn = Server.CreateObject("ADODB.Connection" )

 

[*]Conn.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb")

 

[*]

 

[*]Set Rs = Server.CreateObject("ADODB.Recordset")

 

[*]Sql = "Select * From Clientes"

 

[*]Set Rs = Conn.Execute(Sql)

 

[*]

 

[*]If Session("Nivel")="3" Then

 

[*]  %>  

 

[*]  <table border="1">

 

[*] <tr>

 

[*]  <td>Nome</td>

 

[*]  <td>Endereço</td>

 

[*]  <td>E-mail</td>

 

[*]  <td>Profissão</td>

 

[*] </tr>

 

[*] <%

 

[*]  id = Request.QueryString("id")

 

[*] Do While Not Rs.EOF

 

[*] %>

 

[*] <tr>

 

[*]  <td><%=Rs("Nome")%></td>

 

[*]  <td><%=Rs("Endereço")%></td>

 

[*]  <td><%=Rs("E-mail")%></td>

 

[*]  <td><%=Rs("Profissao")%></td>

 

[*]  <td><a href="pp.asp?id=<%=Rs("id")%>">Excluir</a></td>

 

[*] </tr>

 

[*] <%

 

[*] Rs.moveNext

 

[*]  Loop

 

[*]End If  

 

[*]SqlE = "Delete * From Clientes Where id="&id

 

[*]Set Rs = Conn.Execute(SqlE)

 

[*]%>

 

[*]</table>  

 

[*]</body>

 

[*]</html>

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Eu faço da seguinte forma: Crio Funções ou Subs para Exibir, Inserir, Editar e Excluir. Normalmente recebem a Id do dado a ser alterado/excluido e executo o que quero. Para dizer ao Script qual Function ou Sub executar passo via query uma "flag" (um indicador), que recebo e seleciono usando Select Case. Tente seguir isso.

 

Qualquer coisa eu crio um pequeno exemplo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaplan    0

kaplan
Postado

E ai Salgado beleza???....tem jeito de você criar um pequeno exemplo, pq a minha cabeça ta meia confusa...vlw

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Aproveita, pois não costumo fazer essas coisas:

ASP
  1. <%Acao = Request("Act") 'Requisitando qual ação será efetuada
     
  2. ID_Usuario = FunTrataSQL(Trim(Request("Usuario")))
     
  3. Select Case Acao
     
  4. Case "Add"
     
  5. Call FunAdd
     
  6. Case "Del"
     
  7. Call FunDel(ID_Usuario)
     
  8. Case "Edt"
     
  9. Call FunEdt(ID_usuario)
     
  10. Case Else
     
  11. Call Listar()
     
  12. End Select
     

  13.  
  14. Function FunADD ' Função para adicionar novo usuário ao sistema
     
  15. If FunTrataSQL(Trim(Request("Nome"))) <> "" AND FunTrataSQL(Trim(Request("Senha"))) <> "" AND Request("Submit") = "Adicionar!" Then ' Testando se todos os campo foram preenchidos e se o botão de submeter foi clicado, para adicionar
     
  16. SQLAdd = "Insert Into Usuarios (Nome_Usuario, Senha, Liberado) Values ('"& FunTrataSQL(Trim(Request("Nome"))) &"', '"& FunTrataSQL(Trim(Request("Senha"))) &"', False);"
     
  17. Call SubAbreConn()
     
  18. ObjConn.Execute(SQLAdd)
     
  19. Call SubFechaConn
     
  20. End If
     
  21. 'Montando o formulário%>
     
  22. <FORM action="?Act=Add" method=POST id=form1 name=Adicionando>
     
  23. <INPUT type="text" id=text1 name="Nome"> Nome do Usuario.<br>
     
  24. <INPUT type="Password" id=text1 name="Senha"> Senha.<br>
     
  25. <INPUT type="reset" value="Limpar!" id=reset1 name=reset1> <INPUT type="submit" value="Adicionar!" id=submit1 name=submit>
     
  26. </FORM><BR><%
     
  27. Call Listar()
     
  28. End Function
     

  29.  
  30. Function FunDel(ID_Usuario) ' Função excluir usuário
     
  31. If ID_Usuario <> "" AND IsNumeric(ID_Usuario) Then 'Testando se foi corretamente passado o dado, caso positivo exclui o usuário
     
  32. SQL_Del = "Select ID_Usuario From Usuarios Where ID_Usuario = "& ID_Usuario &";"
     
  33. Call SubAbreConn()
     
  34. Set RSDel = ObjConn.Execute(SQL_Del)
     
  35. If Not RSDel.EOF Then
     
  36. DelSQL = "Delete * From Usuario Where ID_Usuario = "& ID_usuario &";"
     
  37. ObjConn.Execute(DelSQL)
     
  38. End If
     
  39. End If
     
  40. RSDel.Close
     
  41. Set RSDel = Nothing
     
  42. Call SubFechaConn()
     
  43. Call Listar()
     
  44. End Function
     

  45.  
  46. Function FunEdt(ID_Usuario) ' Função para edição de usuário
     
  47. If ID_Usuario <> "" AND FunTrataSQL(Trim(Request("Nome"))) <> "" AND Request("Submit") = "Ok!" Then ' teste para se os campos foram preenchidos e o Submit foi clicado
     
  48. EditSQL = "Select * From Usuarios Where ID_Usuario = "& ID_Usuario &";"
     
  49. Call SubAbreConn()
     

  50.  
  51. Set RSEdit = Server.CreateObject("ADODB.RECORDSET")
     
  52. RSEdit.Open EditSQL,ObjConn,3,3
     
  53. If Not RSEdit.EOF Then
     
  54. Liberado = FunTrataSQL(Trim(Request("Liberado")))
     
  55. If Liberado = "True" Then
     
  56. Liberado = True
     
  57. Else
     
  58. Liberado = False
     
  59. End If
     
  60. RSEdit("Nome_Usuario") = FunTrataSQL(Trim(Request("Nome")))
     
  61. RSEdit("Liberado") = Liberado
     
  62. RSEdit.Update
     
  63. End If
     
  64. RSEdit.Close
     
  65. Set RSEdit = Nothing
     
  66. Call SubFechaConn()
     
  67. ID_Area = 0
     
  68. End If
     
  69. ' Montando a lista de usuários e vifaose algum foi selecionado para edição, se foi será colocado um formulário no lugar do nome.
     
  70. SQL = "Select * From Usuarios Order By ID_Usuario Desc;"
     
  71. Call SubAbreConn()
     

  72.  
  73. Set RS = Server.CreateObject("ADODB.RecordSet")
     
  74. RS.Open SQL,ObjConn
     

  75.  
  76. If Not RS.EOF Then
     
  77. While Not RS.EOF
     
  78. If Not CInt(RS("ID_Usuario")) = CInt(ID_Usuario) Then%>
     
  79. <P><b><%=RS("Nome_Usuario")%></b> <A class="style2" HREF="?Act=Del&Usuario=<%=RS("ID_Usuario")%>">Apagar?</A> <A HREF="?Act=Edt&Usuario=<%=RS("ID_Usuario")%>Editando">Editar?</A></P>
     
  80. <% Else%>
     
  81. <a Name="Editando"></a><FORM action="?Act=Edt&Usuario=<%=ID_Usuario%>" method=POST id=form1 name=Update>
     
  82. <INPUT type="text" id=text1 name="Nome" Value="<%=RS("Nome_Usuario")%>"> Nome do Usuario.<br>
     
  83. <INPUT type="checkbox" name="Liberado" Value="True" <%If RS("Liberado") = True Then %>Checked<%End If%>>Permitir acesso à Administração?.<br>
     
  84. <INPUT type="reset" value="Limpar!" id=reset1 name=reset1> <INPUT type="submit" value="Ok!" id=submit1 name=submit>
     
  85. </FORM>
     
  86. <% End If
     
  87. RS.MoveNext
     
  88. Wend
     
  89. RS.Close
     
  90. Set RS = Nothing
     
  91. Call SubFechaConn()
     
  92. Else
     
  93. %>
     
  94. <P>Indisponivel</P>
     
  95. <%End If
     
  96. End Function
     

  97.  
  98. Function Listar() ' Função para listar os usuários
     
  99. SQL = "Select ID_Usuario, Nome_Usuario From Usuarios Order By ID_Usuario Desc;"
     
  100. Call SubAbreConn()
     

  101.  
  102. Set RS = Server.CreateObject("ADODB.RecordSet")
     
  103. RS.Open SQL,ObjConn
     

  104.  
  105. If Not RS.EOF Then
     
  106. While Not RS.EOF%>
     
  107. <P><b><%=RS("Nome_Usuario")%></b> <A class="style2" HREF="?Act=Del&Usuario=<%=RS("ID_Usuario")%>">Apagar?</A> <A HREF="?Act=Edt&Usuario=<%=RS("ID_Usuario")%>Editando">Editar?</A></P>
     
  108. <% RS.MoveNext
     
  109. Wend
     
  110. RS.Close
     
  111. Set RS = Nothing
     
  112. Call SubFechaConn()
     
  113. Else
     
  114. %>
     
  115. <P>Indisponivel</P>
     
  116. <%End If
     
  117. End Function%>

Só acrescentando: FunTrataSQL, é uma função que criei para tratar e evitar erros de SQLInjection. SubAbreConn e SubFechaConn, são Subs que criei para abrir e fechar conexão com o Banco de Dados.

 

Ajuste para seu caso, trocando nomes de campos e tabelas e teste.

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaplan    0

kaplan
Postado

...mto brigado Salgado, vlw pela força mano

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