asp Atualizar um status sem dar Refresh

Person · Outubro 4, 2021

Estou fazendo um protótipo de e-commerce com aps clássico e sql server, na parte de administração, o usuário administrativo pode alterar o status do pedido, para isso ele clica no botão de alterar na pagina principal e é redirecionado para um formulário onde tenho as options, para que ele mude o status, coloquei um botão para que ele passe os parâmetros (id_pedido e id_status_pedido) para a pagina de manutenção, onde é feito o update e o envio de e-mail com as atualizações. Mas quero retirar esse botão e fazer com que, assim que eu clique em uma opção, ele altere, sem eu precisar ser redirecionado para a tela de manutenção, isso com o Ajax se possível.

<body>
<%
call Abredb()
cod = Request.QueryString("cod")
evt  = Request.QueryString("evt")

if cod <> "" then
   cod = cint(cod)
end if

if ucase(evt) = "ALT" then
  sql = "exec SP_TR32_status_frm_SEL"
  	'Response.Write(sql)
  	'Response.End()
	set rs = dbWeb.execute(sql)
	
	estrato = rs("id_status_pedido") 
	
   bot        = "Alterar"
end if
%>
<div class="container">
  <div class="titulo">Formulario</div>
  <form action="manu_pedido.asp" method="post" enctype="multipart/form-data">
    <div class="detalhes-formulario">
      <div class="input-box"> <span class="detalhes">status</span>
        <select class="form-control" name = "status">
          <% do while not rs.eof%>
          <option value="<%=rs("id_status_pedido")%>"><%=rs("descricao")%></option>
          <% rs.movenext
				loop
				rs.close
				set rs = nothing
				%>
        </select>
      </div>
    </div>
        <button><a href="/treinamento/Thau/mini_mercado/adm/manu_pedido.asp?evt=alt&cod="<%=cod%>"&estrato="<%rs("id_status_pedido")%>
  </form>
</div>
<br>


</body>
<%call Fechadb()%>
</html>

Abaixo está o código da minha pagina de manutenção, no qual acontece a alteração do status


<%
Function ZerosEsquerda(Num,tam)
	Dim Zero
	Num = Trim(Num)
	Zero = ""
	For i = Len(Num) To tam - 1
	    Zero = "0" & Zero
	Next
	ZerosEsquerda = Trim(Zero & Num)
End Function

byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
	
'opc = request.QueryString("opc")
'if opc = "" then	
	'cod = UploadRequest.Item("hfcod").Item("Value")
	'botao = UploadRequest.Item("botao").Item("Value")
	'estrato =      UploadRequest.Item("estrato").Item("Value")
'end if

session.LCID = 1046

call Abredb()


if botao = "Alterar" then
' ALTERANDO OS DADOS RECEBIDOS NA TABELA

sql = "exec SP_TR32_pedido_UPD "&cod&", '"&estrato&"'"
	'response.write sql
	'response.end
 	dbWeb.execute(sql)
	
 


str_html = ""
str_html = str_html & "<HTML><BODY BGCOLOR=#0000FF>"
str_html = str_html & "<h1>produtos</h1>"
sql ="SP_TR32_email__itens_sel "&cod&""	
set rs = dbWeb.execute(sql)
	str_html = str_html & "<table>"
	str_html = str_html & "<thead>"
	str_html = str_html & " <tr>"
	str_html = str_html & "<th>Produtos</th>"
	str_html = str_html & "<th>quantidade</th>"
	str_html = str_html & " <th>Total</th>"
	str_html = str_html & "</tr>"
	str_html = str_html & "  </thead>"
	str_html = str_html & "<tbody>"
do while not rs.eof
	str_html = str_html & "<tr>"
	str_html = str_html & "<td >"&rs("produto")&"</td>"
	str_html = str_html & "<td >"&rs("quantidade")&"</td>"
	str_html = str_html & "<td >"&rs("total")&"</td>"
	str_html = str_html & "</tr>"
 rs.movenext
 loop 
rs.close
set rs = nothing
str_html = str_html & " </tbody>"
str_html = str_html & "</table>"
str_html = str_html & "</BODY></HTML>"

sql = "SP_TR32_email_sel "&cod&"" 
set rs = dbWeb.execute(sql)

if estrato<>"" then 
	Set ObjMail = Server.CreateObject("Cdonts.Newmail")
        objMail.Subject     = "Atualização de pedido"
        objMail.From        = "Porto Dourado <contato@email.websupply.com.br>" 
        objMail.To          = "request("email")"
        objMail.BodyFormat  = 0
        objMail.MailFormat  = 0
        objMail.Body       = "Olá"&" "&rs("nome")&" "&rs("sobrenome")&", </br> Houve uma atualização em seu pedido pedido: "&rs("id_pedido")&" </br> o status mudou para: "&rs("descricao")&" </br> endereço de entrega: "&rs("cep")&", "&rs("rua")&", "&rs("bairro")&", "&rs("numero")&", "&rs("cidade")&", "&rs("Uf")&" </br>Total pedido: "&rs("total_pedido")&" </br> "& str_html &" </br></br>"&" Atentamente,"&" </br> "&"Equipe Porto dourado"&" </br></br> "&"Para entrar em contato com a equipe de suporte, entre em contato com o email  ou ligue para nossa central no numero "
  		
		objMail.Send
	Set objMail = nothing
	envio = true %>
<script>
		alert('email com alteração enviado com sucesso!');
	</script>
<%	
end if

if estrato = 6 then
sql = "exec SP_TR32_adm_data_envio_UPD "&cod&""
dbWeb.execute(sql)
end if

if estrato = 4 then 
sql = "exec SP_TR32_adm_data_entregue_UPD "&cod&""
dbWeb.execute(sql)
end if
%>
<script>
    alert("Dados alterado com sucesso!")
    parent.location = "cst_pedido.asp"
</script>
<%
end if
%>
<%call Fechadb()%>

Entrar

asp Atualizar um status sem dar Refresh

Pergunta

Person 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

0 respostas a esta questão

Recommended Posts

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Javascript - Calcular Valores Monetário em Tempo Real

PHP+Codeigniter - Implementar o Input CÓDIGO ou ID do Produto

Conteúdo Similar

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante