Ir para conteúdo

POWERED BY:

Arquivado

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

williamds

Scripting.Dictionary

Por , em ASP Clássico

Recommended Posts

williamds    0

williamds
Postado

Ola pessoal.

Estou fzendo um carrinho de compras e usado o Scripting.Dictionary para isso e não estou conseguindo o retorno dos dados veja oma parte do codigo

 

Este seria apenas para os produtos

produtos.asp

<html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><p align="center">	<a href="carrinho.asp?cod=1">Item 1</a><br>	<a href="carrinho.asp?cod=2">Item 2</a><br>	<a href="carrinho.asp?cod=3">Item 3</a><br>	<a href="carrinho.asp?cod=4">Item 4</a><br>	<a href="carrinho.asp?cod=5">Item 5</a></p></body></html>
este codigo acrescenta os itens no carrinho

carrinho.asp

<%codigo = request.QueryString("cod")if Session("Pedido").Exists(codigo) then	Response.Write "Produto ja se encontra no carrinho"	response.End()else	Session("Pedido").Add codigo , 1end ifresponse.Redirect("Lista_Carrinho.asp")%>
e este lista os produtos que estão nos carrinhos

Lista_Carrinho.asp

<html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%if Session("Pedido").count = 0 then	response.Write "Seu carrinho esta vazio"else	for each Produto in Session("Pedido")  response.Write (Session("Pedido").Item(Produto) &" - "& Session("Pedido").keys())	nextend if%></body></html>

os itens eu consegui retornar mas os Key's tá dificil

ah o codigo do Scripting.Dictionary esta em um global.asa

<script LANGUAGE="VBSCRIPT" RUNAT="server">Sub Session_OnStart	Set Session("Pedido")=Server.CreateObject("Scripting.Dictionary")End sub</SCRIPT>

Compartilhar este post

Link para o post
Compartilhar em outros sites

williamds    0

williamds
Postado

Beleza,

Consegui achar a resposta pro meu problema. eu substitui alterei a pagina lista_carrinho.asp por este codigo e ficou joia

 

<html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%chaves = Session("Pedido").Keys()valores = Session("Pedido").Items()if Session("Pedido").count = 0 then	response.Write "Seu carrinho esta vazio"else	for i = 0 to Session("Pedido").count - 1  response.Write valores(i) &" - "& chaves(i) &"<br>"	nextend if%></body></html>
, agora vou implementa-lo para alterar, excluir os registros

Compartilhar este post

Link para o post
Compartilhar em outros sites

williamds    0

williamds
Postado

Modifiquei mais um pouco e tó postando aqui.

Os campos posteriormente tem que vir do BD`

É um começo para se fazer um carrinho de compras, quando terminar por completo eu posto aqui.

 

global.asp

<script LANGUAGE="VBSCRIPT" RUNAT="server">Sub Session_OnStart	Set Session("Pedido")=Server.CreateObject("Scripting.Dictionary")End sub</SCRIPT>
produtos.asp

<html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body>	<form method="post" action="carrinho.asp">   <div align="center">Manga   <input name="Quantidade" type="text" size="3" maxlength="3">  <input type="hidden" name="Produto" value="manga">   </div>	</form></body></html>
carrinho.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%codigo = request.Form("Produto")quantidade = request.Form("quantidade")if Session("Pedido").Exists(codigo) then	Session("Pedido").Item(codigo) = quantidade	response.Redirect("Lista_Carrinho.asp")else	Session("Pedido").Add codigo , quantidade	response.Redirect("Lista_Carrinho.asp")end if%>
lista_carrinho.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%chaves = Session("Pedido").Keys()valores = Session("Pedido").Items()if Session("Pedido").count = 0 then	response.Write "Seu carrinho esta vazio"else	for i = 0 to Session("Pedido").count - 1  response.Write valores(i) &" - "& chaves(i) &"<br>"	nextend if%></body></html>
E isso ai pessoal

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