Ir para conteúdo

POWERED BY:

Arquivado

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

Evilkenzera

é como se fosse um carrinho de compras

Recommended Posts

Preciso de Ajuda com Atualizar carrinhoPreciso de ajuda!É uma tela de Ordem de serviço, onde o usuario vai adicionando produtos como se fosse um carrinho de compras.Até aí tudo bem, só que o problema é que não vai só o campo quantidade, vai + 6 campos além da quantidade. Ex: (altura, largura, comprimento, metro cúbico, valor, total)Eu não consigo atualizar esses campos, só consigo se for 1 campo (quantidade), com + 6 não consigo.Eu procurei na internet tudo sobre carrinho de compras, o problema é que não tem nenhum exemplo com mais campos além da quantidade, e tentei de tudo mesmo, más está além do meu conhecimento.Alguém pode me ajudar com isso.Eu disponibilizei os arquivos compactados para facilitar.os_passo5.asp --> inicia com esse --> lista produto e envia para os_passo6.aspos_passo6.asp --> é esse que tem de acertarO banco de dados MySQL -->com nome de isoporwww.saulofernandes.cjb.net/isopor.rarou Segue os códigos abaixo:************** os_passo5.asp ******************************<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="bib.asp" --><%Dim varNumero_OS, varCodClienteDim rsDim rs_numRows'varNumero_OS = Request.QueryString("os")'varCodCliente = Request.QueryString("codcli")Set rs = Server.CreateObject("ADODB.Recordset")rs.ActiveConnection = MM_bib_STRINGrs.Source = "SELECT * FROM isopor.produto"rs.CursorType = 0rs.CursorLocation = 2rs.LockType = 1rs.Open()rs_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = 10Repeat1__index = 0rs_numRows = rs_numRows + Repeat1__numRows%><%' *** Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim rs_totalDim rs_firstDim rs_last' set the record countrs_total = rs.RecordCount' set the number of rows displayed on this pageIf (rs_numRows < 0) Then rs_numRows = rs_totalElseif (rs_numRows = 0) Then rs_numRows = 1End If' set the first and last displayed recordrs_first = 1rs_last = rs_first + rs_numRows - 1' if we have the correct record count, check the other statsIf (rs_total <> -1) Then If (rs_first > rs_total) Then rs_first = rs_total End If If (rs_last > rs_total) Then rs_last = rs_total End If If (rs_numRows > rs_total) Then rs_numRows = rs_total End IfEnd If%><%' *** Recordset Stats: if we don't know the record count, manually count themIf (rs_total = -1) Then ' count the total records by iterating through the recordset rs_total=0 While (Not rs.EOF) rs_total = rs_total + 1 rs.MoveNext Wend ' reset the cursor to the beginning If (rs.CursorType > 0) Then rs.MoveFirst Else rs.Requery End If ' set the number of rows displayed on this page If (rs_numRows < 0 Or rs_numRows > rs_total) Then rs_numRows = rs_total End If ' set the first and last displayed record rs_first = 1 rs_last = rs_first + rs_numRows - 1 If (rs_first > rs_total) Then rs_first = rs_total End If If (rs_last > rs_total) Then rs_last = rs_total End IfEnd If%><%Dim MM_paramName %><%' *** Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim MM_indexSet MM_rs = rsMM_rsCount = rs_totalMM_size = rs_numRowsMM_uniqueCol = ""MM_paramName = ""MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")End If%><%' *** Move To Record: handle 'index' or 'offset' parameterif (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End IfEnd If%><%' *** Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 WendEnd If%><%' *** Move To Record: update recordset stats' set the first and last displayed recordrs_first = MM_offset + 1rs_last = MM_offset + MM_sizeIf (MM_rsCount <> -1) Then If (rs_first > MM_rsCount) Then rs_first = MM_rsCount End If If (rs_last > MM_rsCount) Then rs_last = MM_rsCount End IfEnd If' set the boolean used by hide region to check if we are on the last recordMM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)%><%' *** Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem' create the list of parameters which should not be maintainedMM_removeList = "&index="If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="End IfMM_keepURL=""MM_keepForm=""MM_keepBoth=""MM_keepNone=""' add the URL parameters to the MM_keepURL stringFor Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End IfNext' add the Form variables to the MM_keepForm stringFor Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End IfNext' create the Form + URL string and remove the intial '&' from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormIf (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)End IfIf (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)End IfIf (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)End If' a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End IfEnd Function%><%' *** Move To Record: set the strings for the first, last, next, and previous linksDim MM_keepMoveDim MM_moveParamDim MM_moveFirstDim MM_moveLastDim MM_moveNextDim MM_movePrevDim MM_urlStrDim MM_paramListDim MM_paramIndexDim MM_nextParamMM_keepMove = MM_keepBothMM_moveParam = "index"' if the page has a repeated region, remove 'offset' from the maintained parametersIf (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End IfEnd If' set the strings for the move to linksIf (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"End IfMM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="MM_moveFirst = MM_urlStr & "0"MM_moveLast = MM_urlStr & "-1"MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0"Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)End If%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--body { margin-left: 0px; margin-top: 0px;}.form { border: 1px solid #990000; background-color: #FFFFFF; font-family: verdana; font-size: 12px; color: #000000;}.style7 {font-size: 9pt; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }.style8 {color: #FFFFFF}.style16 {font-size: 9pt; font-family: Verdana, Arial, Helvetica, sans-serif;}.style18 { font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 14pt; font-weight: bold; color: #FFFFFF;}.style19 {font-size: 9pt; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; color: #FFFFFF; }--></style><link href="isoestilo.css" rel="stylesheet" type="text/css" /><style type="text/css"><!--.style20 { font-family: ta; font-size: 8pt;}.style21 {font-family: tahoma; font-size: 8pt; }--></style></head><body><table width="750" border="0" align="center" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="750" height="400" valign="top"><br><table width="600" border="0" align="center" bgcolor="#0066CC"> <tr> <td height="48"><div align="center" class="style18">ESCOLHA O PRODUTO </div></td> </tr> </table> <table width="600" border="0" align="center" bgcolor="#E5E5E5"> <tr> <td height="32" valign="top"><form method="post"> <table width="75%" border="0" align="center"> <tr> <td><span class="style16">Código/Produto</span> <label> <input name="Pesquisa1" type="text" autocomplete="off" class="form" id="Pesquisa1" />     <input type="submit" name="Submit" value="Pesquisar" />      <input type="button" value="Zerar" onclick="document.location='lista_produto.asp'" name="button2" /> </label></td> </tr> </table> </form></td> </tr> </table> <table width="600" border="0" align="center" bgcolor="#E5E5E5"> <tr> <td width="50%"> </td> <td width="50%"><div align="right"> <input type="button" value="Abandonar OS" onclick="document.location='lista.asp'" name="button23" /> </div></td> </tr> </table> <br> <table width="600" border="0" align="center"> <tr> <td width="16%" height="25" bgcolor="#0066CC"><div align="center" class="style8"><span class="style7">Código</span></div></td> <td width="60%" bgcolor="#0066CC"><div align="center" class="style8"><span class="style7">Produto</span></div></td> </tr> </table> <% While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) %> <table width="600" border="0" align="center"> <tr> <td width="16%" bgcolor="#E9E9E9" class="style16"><div align="center" class="style16"><%=(rs.Fields.Item("COD_PRODUTO").Value)%></div></td> <td width="60%" bgcolor="#E9E9E9"><span class="style16">   <A HREF="os_passo6.asp?os=3030&<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "prod=" & rs.Fields.Item("COD_PRODUTO").Value %>"><%=(rs.Fields.Item("PRODUTO").Value)%></A></span></td> </tr> </table> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs.MoveNext()Wend%><table width="600" border="0" align="center"> <tr> <td bgcolor="#000000"><div align="center" class="style16 style8"><%=(rs_last)%> de <%=(rs_total)%> </div></td> </tr> </table><table border="0" width="50%" align="center"> <tr> <td width="23%" align="center"><% If MM_offset <> 0 Then %> <a href="<%=MM_moveFirst%>"><img src="First.gif" border=0></a> <% End If ' end MM_offset <> 0 %> </td> <td width="31%" align="center"><% If MM_offset <> 0 Then %> <a href="<%=MM_movePrev%>"><img src="Previous.gif" border=0></a> <% End If ' end MM_offset <> 0 %> </td> <td width="23%" align="center"><% If Not MM_atTotal Then %> <a href="<%=MM_moveNext%>"><img src="Next.gif" border=0></a> <% End If ' end Not MM_atTotal %> </td> <td width="23%" align="center"><% If Not MM_atTotal Then %> <a href="<%=MM_moveLast%>"><img src="Last.gif" border=0></a> <% End If ' end Not MM_atTotal %> </td> </tr></table></td> </tr></table></body></html><%rs.Close()Set rs = Nothing%>-----------------------------------------------------------------------------------------------------------------------------********************* os_passo6.asp ************************<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="bib_conexao.asp"--><%Dim Conexao, rsMax, rsPedidoItem, strSQL, novo_codPedido, sub_total, field_name, strSQLPedDim rsCategoria, strSQL2, varIDDim QTD, varNumero_OS, varCliente, varCodCliente, varQTDEcall abre_conexaovarNumero_OS = Request.QueryString("os")Session("codPed") = varNumero_OSvarCodCliente = Request.QueryString("codcli")'----------------------------------------------------------------------------------------------Set rsPedidoItem = Server.CreateObject("ADODB.Recordset")If Request.QueryString("prod") <> "" Then rsPedidoItem.Open "SELECT * FROM Pedido_Item WHERE COD_Pedido = " & Session("codPed") & " AND COD_Produto = " & Request.QueryString("prod"), Conexao If rsPedidoItem.EOF Then Conexao.Execute "INSERT INTO Pedido_Item (cod_Pedido, cod_Produto, qtd_Pedido, altura, largura, comprimento, m3, valor, total) VALUES (" & Session("codPed") & ", " & Request.QueryString("prod") &",1,1,1,1,1,1,1)" End If rsPedidoItem.CloseEnd IfIf Request.Form <> "" Then Conexao.Execute "DELETE FROM Pedido_Item WHERE COD_Pedido = " & Session("codPed") For Each field_name In Request.Form If field_name <> "B1" And Request.Form(field_name) <> "0" And Trim(Request.Form(field_name)) <> "" Then strSQL = "INSERT INTO Pedido_Item (COD_Pedido, COD_Produto, QTD_Pedido, altura, largura, comprimento, m3, valor, total) VALUES ("& Session("codPed") & ", " & field_name & ", " & Request.Form(field_name) & ")" Conexao.Execute strSQL End If NextEnd If%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--body { margin-left: 0px; margin-top: 0px;}.style41 {font-weight: bold; color: #FFFFFF; font-family: Verdana, Arial, Helvetica, sans-serif;}.style45 {font-size: 9px; }.style48 {font-weight: bold; color: #0066CC; font-family: Verdana, Arial, Helvetica, sans-serif; }--></style><link href="isoestilo.css" rel="stylesheet" type="text/css" /><style type="text/css"><!--.style49 {font-size: 8pt; font-family: Verdana, Arial, Helvetica, sans-serif; }.style50 {font-family: Verdana, Arial, Helvetica, sans-serif}.style52 {color: #000000; border: 1px solid #990000; background-color: #FFFFFF;}.style54 {font-size: 8pt}.style46 {font-size: 9pt; font-family: Verdana, Arial, Helvetica, sans-serif;}--></style></head><body><table width="750" border="0" align="center" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr><%strSQLPed = "SELECT Pedido_Item.*, Produto.Produto "'strSQLPed = strSQLPed & "Produto.VLR_Unitario, Produto.URL_Imagem " strSQLPed = strSQLPed & "FROM Produto INNER JOIN Pedido_Item "strSQLPed = strSQLPed & "ON Produto.COD_Produto = Pedido_Item.COD_Produto"strSQLPed = strSQLPed & " WHERE Pedido_Item.COD_Pedido = " & Session("codPed") & " AND Produto.COD_Produto = Pedido_Item.COD_Produto"Set rsPedidoItem = Conexao.Execute(strSQLPed)If rsPedidoItem.EOF = True then Response.write ("<br><br><div align=center><b>Não há produtos em sua cesta.</b>")%><br><br><input type="button" value="Continuar Compras" onclick="document.location='index.asp'" name="ped" /><%Else%> <td width="750" height="400" valign="top"><form method="post" action="<%= Request.ServerVariables("SCRIPT_NAME") %>"> <table width="100%" border="0"> <tr> <td width="10" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Código </span></div></td> <td width="28%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Descrição</span></div></td> <td width="5%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Qtde</span></div></td> <td width="6%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Altura</span></div></td> <td width="6%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Largura</span></div></td> <td width="5%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Comp</span></div></td> <td width="7%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Qtde M3 </span></div></td> <td width="10%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Valor Venda </span></div></td> <td width="11%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Total</span></div></td> <td width="13%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Fornecedor</span></div></td> <td width="4%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center"><span class="style45"><span class="style48">D</span></span></div></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF"> <% If not rsPedidoItem.EOF then rsPedidoItem.MoveFirst sub_total = 0 While Not rsPedidoItem.EOF %> <tr align="center"> <td width="34" align="left" bgcolor="#EEEEEE" class="style49"><div align="center" class="style49"><font color="#000000"><%= rsPedidoItem("cod_Produto") %></font></div></td> <td width="203" align="left" bgcolor="#EEEEEE" class="style49"><span class="style50 style54"><font color="#000000"> <%= rsPedidoItem("Produto") %> </font> </span></td> <td width="37" align="right" bgcolor="#EEEEEE" class="style49"><div align="center" class="style50 style54"> <input name="<%= rsPedidoItem("cod_Produto") %>" type="text" class="style52" id="<%= rsPedidoItem("cod_Produto") %>" value="<%= rsPedidoItem("QTD_Pedido") %>" size="1" maxlength="2" autocomplete="off" /> </div></td> <td width="41" align="center" bgcolor="#EEEEEE" class="style49"><span class="style50 style54"><input name="altura" type="text" class="style52" id="altura" value="<%= rsPedidoItem("altura") %>" size="1" maxlength="2" autocomplete="off" /> </span></td> <td width="41" height="13" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtLargura" type="text" class="form" id="txtLargura" value="<%= rsPedidoItem("largura") %>" size="1" maxlength="5" /> </span></div></td> <td width="34" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtComprimento" type="text" class="form" id="txtComprimento" value="<%= rsPedidoItem("comprimento") %>" size="1" maxlength="5" /> </span></div></td> <td width="49" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtM3" type="text" class="form" id="txtM3" value="<%= rsPedidoItem("m3") %>" size="2" maxlength="5" /> </span></div></td> <td width="71" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtValor" type="text" class="form" id="txtValor" value="<%= rsPedidoItem("valor") %>" size="6" maxlength="10" /> </span></div></td> <td width="86" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtTotal" type="text" class="form" id="txtTotal" value="<%= rsPedidoItem("total") %>" size="7" maxlength="10" /> </span></div></td> <td width="94" align="right" bgcolor="#EEEEEE" class="style49"> </td> <td width="26" height="13" align="center" bgcolor="#EEEEEE" class="style49"><a href="ExcluiItem.asp?os=<%=varNumero_OS%>&prod=<%= rsPedidoItem("cod_Produto")%>"><img src="lixeira.jpg" width="15" height="20" border="0" /></a> </td> </tr> <% 'Calcula subtotal e peso total' sub_total = sub_total + rsPedidoItem("QTD_Pedido") * rsPedidoItem("VLR_Unitario") rsPedidoItem.MoveNext Wend rsPedidoItem.Close ' Session("sub_total") = sub_total ' sub_total = replace(sub_total, ",",".") ' Conexao.Execute "UPDATE Pedidos SET sub_total = " & sub_total & " WHERE cod_Pedido = " & Session("codPed") 'Conexao.Close %> </table> <table width="605" border="0" align="center"> <tr> <td height="31"><div align="center"> <input name="button22" type="button" id="button2" onclick="document.location='os_passo5.asp'" value="Inserir Produtos" />      <input type="submit" value="Recalcular" name="B1" /> </div></td> </tr> </table> <table width="605" border="0" align="center"> <tr> <td><label></label></td> </tr> <tr> <td><div align="center"></div></td> </tr> </table> </form><%End If%> </td> </tr></table><% Conexao.Close%></body></html>-------------------------------------------------------------------------------------------------------------------------------- *********** bib.asp ********************<%' FileName="Connection_ado_conn_string.htm"' Type="ADO" ' DesigntimeType="ADO"' HTTP="false"' Catalog=""' Schema=""Dim MM_bib_STRINGMM_bib_STRING = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=isopor;USER=root;PASSWORD=;OPTION=3;"%>----------------------------------------------------------------------------------------------------***************** bib_conexao.asp ************************<%sub abre_conexaoset Conexao = CreateObject("ADODB.Connection")Conexao.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=isopor;USER=root;PASSWORD=;OPTION=3;"end subsub fecha_conexao Conexao.close Set Conexao =nothingend sub%>--------------------------------------------------------------------------------------------------------**************** ExcluiItem.asp *******************<%Option Explicit%><!--#include file="bib_conexao.asp"--><%'Exclui o produto selecionado no carrinhoDim Conexao, rs, strSQL, varItemvarItem = Request("prod")strSQL = "DELETE FROM Pedido_Item WHERE Cod_Pedido = " & Session("codPed") & " AND Cod_Produto = " & varItemCall abre_ConexaoSet rs = Conexao.Execute(strSQL)Call fecha_ConexaoSet rs = NothingResponse.Redirect "os_passo6.asp?os=3030"%>---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------# Banco MySQL# isopor.sql# EMS MySQL Manager 2.7.0.1# ---------------------------------------# Host : localhost# Port : 3306# Database : isoporSET FOREIGN_KEY_CHECKS=0;CREATE DATABASE `isopor`;USE `isopor`;## Structure for the `admin` table : #CREATE TABLE `admin` ( `CODIGO` tinyint(3) NOT NULL auto_increment, `LOGIN` varchar(30) default NULL, `SENHA` varchar(30) default NULL, `NOME` varchar(30) default NULL, `URL` varchar(50) default NULL, `NIVEL` varchar(20) default NULL, `CHAVE` varchar(100) default NULL, PRIMARY KEY (`CODIGO`)) TYPE=MyISAM;## Structure for the `cliente` table : #CREATE TABLE `cliente` ( `COD_CLIENTE` int(3) NOT NULL auto_increment, `NOME` varchar(150) default NULL, `FANTASIA` varchar(80) default NULL, `ENDERECO` varchar(150) default NULL, `BAIRRO` varchar(100) default NULL, `CIDADE` varchar(80) default NULL, `TELEFONE` varchar(20) default NULL, `ENDERECO_ENTREGA` varchar(150) default NULL, `BAIRRO_ENTREGA` varchar(100) default NULL, `CIDADE_ENTREGA` varchar(80) default NULL, PRIMARY KEY (`COD_CLIENTE`), CONSTRAINT `cliente_ibfk_1` FOREIGN KEY (`COD_CLIENTE`) REFERENCES `cliente` (`COD_CLIENTE`)) TYPE=InnoDB;## Structure for the `fornecedor` table : #CREATE TABLE `fornecedor` ( `COD_FORNECEDOR` int(3) NOT NULL auto_increment, `FORNECEDOR` varchar(150) default NULL, PRIMARY KEY (`COD_FORNECEDOR`)) TYPE=InnoDB;## Structure for the `ordem` table : #CREATE TABLE `ordem` ( `Codigo` int(4) NOT NULL auto_increment, `numeroOS` varchar(50) NOT NULL default '', `cliente` varchar(150) default NULL, `fantasia` varchar(100) default NULL, `endereco` varchar(200) default NULL, `cidade` varchar(100) default NULL, `bairro` varchar(100) default NULL, `telefone` varchar(50) default NULL, `fornecedor` varchar(50) default NULL, `ordem` mediumtext, `data` varchar(50) default NULL, PRIMARY KEY (`Codigo`), UNIQUE KEY `Codigo` (`Codigo`)) TYPE=MyISAM;## Structure for the `produto` table : #CREATE TABLE `produto` ( `COD_PRODUTO` int(11) default NULL, `PRODUTO` varchar(100) default NULL, `VRL_UNITARIO` varchar(10) default NULL, `URL_IMAGEM` varchar(50) default NULL, KEY `PRODUTO` (`PRODUTO`), KEY `COD_PRODUTO` (`COD_PRODUTO`)) TYPE=InnoDB;## Structure for the `pedidos` table : #CREATE TABLE `pedidos` ( `COD_Pedido` int(11) NOT NULL default '0', `COD_CLIENTE` int(11) default NULL, `CLIENTE` varchar(200) default NULL, `DATA_ENTREGA` varchar(10) default NULL, `FORMA` varchar(50) default NULL, `DEP_CONTA` varchar(50) default NULL, `PAGO` varchar(5) default NULL, `TIPO` varchar(50) default NULL, `RECORTE` char(3) default NULL, `VENDEDOR` varchar(50) default NULL, `OBSERVACAO` text, `DATA` varchar(20) default NULL, `sub_total` varchar(10) default NULL, `total` varchar(10) default NULL, KEY `COD_Pedido` (`COD_Pedido`)) TYPE=InnoDB;## Structure for the `pedido_item` table : #CREATE TABLE `pedido_item` ( `COD_Pedido` int(11) default NULL, `COD_PRODUTO` int(11) default NULL, `qtd_Pedido` varchar(11) default NULL, `ALTURA` int(11) default NULL, `LARGURA` int(11) default NULL, `COMPRIMENTO` int(11) default NULL, `M3` int(11) default NULL, `VALOR` varchar(11) default NULL, `TOTAL` varchar(11) default NULL, KEY `NUMERO_OS` (`COD_Pedido`), KEY `COD_PRODUTO` (`COD_PRODUTO`), CONSTRAINT `pedido_item_ibfk_3` FOREIGN KEY (`COD_PRODUTO`) REFERENCES `produto` (`COD_PRODUTO`) ON DELETE CASCADE ON UPDATE CASCADE, CONSTRAINT `pedido_item_ibfk_4` FOREIGN KEY (`COD_Pedido`) REFERENCES `pedidos` (`COD_Pedido`) ON DELETE CASCADE ON UPDATE CASCADE) TYPE=InnoDB;## Structure for the `status` table : #CREATE TABLE `status` ( `COD_Pedido` int(11) default NULL, `STATUS` varchar(100) default NULL, `EM` varchar(20) default NULL, `OBS` text, `EFETUADO` char(1) default NULL, KEY `COD_Pedido` (`COD_Pedido`), CONSTRAINT `status_ibfk_1` FOREIGN KEY (`COD_Pedido`) REFERENCES `pedidos` (`COD_Pedido`) ON DELETE CASCADE ON UPDATE CASCADE) TYPE=InnoDB;## Structure for the `tipo` table : #CREATE TABLE `tipo` ( `COD_TIPO` int(4) NOT NULL auto_increment, `TIPO` varchar(50) default NULL, PRIMARY KEY (`COD_TIPO`)) TYPE=MyISAM;## Structure for the `vendedor` table : #CREATE TABLE `vendedor` ( `COD_VENDEDOR` int(4) NOT NULL auto_increment, `VENDEDOR` varchar(20) default NULL, PRIMARY KEY (`COD_VENDEDOR`)) TYPE=MyISAM;## Data for the `admin` table (LIMIT 0,500)#INSERT INTO `admin` (`CODIGO`, `LOGIN`, `SENHA`, `NOME`, `URL`, `NIVEL`, `CHAVE`) VALUES (1,'admin','admin','Saulo','lista.asp','Administrador','pc52e5c5Ñ??¦O¸??ÙÙÍΧA¦AAaÌÞÞ'), (5,'ed','ed','Ednaldo','lista2.asp','Usuário','llvjd54des'), (6,'ric','ric','Ricardo','lista2.asp','Usuário','llvjd54des'), (8,'se','se','Sergio','','Usuário','llvjd54des');COMMIT;## Data for the `cliente` table (LIMIT 0,500)#INSERT INTO `cliente` (`COD_CLIENTE`, `NOME`, `FANTASIA`, `ENDERECO`, `BAIRRO`, `CIDADE`, `TELEFONE`, `ENDERECO_ENTREGA`, `BAIRRO_ENTREGA`, `CIDADE_ENTREGA`) VALUES (1,'Saulo Fernandes','Vision Ltda.','Rua Angela R S Moraes, 141','Potiguara','Itu','11-40234407','Rua da Varzea','Centro','Itu'), (2,'Ricardo Oliveira','Oliver','rua da varzea','centro','Itu','11 4025-4587',NULL,NULL,NULL), (3,'Daniel Almeida',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL), (4,'Juliana',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL), (5,'Patricia','super pat','','','','','','',''), (7,'Jerundio','jeres','Rua da Varzea, 545','Cento','Salto','40280567',NULL,NULL,NULL), (9,'Lourdes','lu','rua do potiguara','vila mariana','são paulo','40280567',NULL,NULL,NULL), (10,'Arnold Shwarzenegger','Terminator 3','Rua de hollywood','potiguara','Los Angeles','5454545','o mesmo','',''), (11,'Metalurgica Convenção de Itu S/A.','MCI','Rua Ângela Regina Silveira Moraes, 141','Residencial Potiguara','Itu','11 40234407',NULL,NULL,NULL);COMMIT;## Data for the `fornecedor` table (LIMIT 0,500)#INSERT INTO `fornecedor` (`COD_FORNECEDOR`, `FORNECEDOR`) VALUES (1,'Mabe'), (2,'Elma Chips'), (3,'Schincariol'), (4,'Petrobras'), (5,'Ingram Micro');COMMIT;## Data for the `ordem` table (LIMIT 0,500)#INSERT INTO `ordem` (`Codigo`, `numeroOS`, `cliente`, `fantasia`, `endereco`, `cidade`, `bairro`, `telefone`, `fornecedor`, `ordem`, `data`) VALUES (31,'404070','Dona Florinda','','','','','','','Produto: Isopor altura = 50 largura = 20 comprimento = 60 metro cúbico = 1,800\r\nProduto Isopor 3G altura = 20 largura = 2512','22/12/2006 10:03:03'), (32,'606095','Chaves','','','','','','','blah','12/12/2006 16:52:43'), (20,'505050','Giovani','','','','','','','Volei Ball','8/12/2006 21:14:08'), (21,'202020','João Carlos','','','','','','','legal','8/12/2006 21:23:08'), (22,'101010','Claudia','','','','','','','TEste','9/12/2006 10:37:01'), (7,'5647414','Sergio','','','','','','','','8/12/2006 16:03:47'), (8,'521410','André','','','','','','','','8/12/2006 16:03:59'), (9,'365847','Marcio','','','','','','','','8/12/2006 16:04:13'), (10,'585747','Vanessa','','','','','','','','8/12/2006 16:04:24'), (11,'454141','Reinaldo','','','','','','','','8/12/2006 16:04:32'), (12,'5268547','Tiago','','','','','','','','8/12/2006 16:04:51'), (13,'525252','mercedez','','','','','','','','8/12/2006 16:15:17'), (14,'101020','julio','','','','','','','','8/12/2006 16:15:26'), (15,'547474','fabiano','','','','','','','','8/12/2006 16:15:36'), (16,'412565','vagner','','','','','','','','8/12/2006 16:15:51'), (23,'101515','Major','','','','','','','teste','9/12/2006 10:38:00'), (18,'256541','Lourdes','','','','','','','','8/12/2006 20:03:28'), (24,'606060','Frederico','','','','','','','jornal','9/12/2006 11:01:01'), (25,'404040','Celso','','','','','','','Teste do Celso','9/12/2006 11:25:09'), (26,'202010','Sergio','','','','','','','dkjfdkfja sdfkasdf asdf','9/12/2006 16:14:21'), (27,'605090','Luiz','','','','','','','teste','12/12/2006 14:09:42'), (28,'506080','Luizinho','','','','','','','teste','12/12/2006 14:12:24'), (29,'707070','Paulo Silveira','','','','','','','Outro teste','12/12/2006 20:08:22'), (30,'696969','Ednaldo Raimundo da Silva','','','','','','','Teste','12/12/2006 16:15:10');COMMIT;## Data for the `produto` table (LIMIT 0,500)#INSERT INTO `produto` (`COD_PRODUTO`, `PRODUTO`, `VRL_UNITARIO`, `URL_IMAGEM`) VALUES (5025,'ISOPOR A3','2,50',NULL), (5026,'ISOPOR SINTETICO S7','3,20',NULL), (5027,'ISOPOR VERMELHO TECNIQUE','1,99',NULL), (5029,'Isopor da cor preta A7','5,60',NULL);COMMIT;## Data for the `pedidos` table (LIMIT 0,500)#INSERT INTO `pedidos` (`COD_Pedido`, `COD_CLIENTE`, `CLIENTE`, `DATA_ENTREGA`, `FORMA`, `DEP_CONTA`, `PAGO`, `TIPO`, `RECORTE`, `VENDEDOR`, `OBSERVACAO`, `DATA`, `sub_total`, `total`) VALUES (3030,10,'Arnold Shwarzenegger','02/02/2007','A VISTA','58414528','SIM','DINHEIRO','SIM','BATISTA','teste','2/1/2007 20:15:57',NULL,NULL);COMMIT;## Data for the `tipo` table (LIMIT 0,500)#INSERT INTO `tipo` (`COD_TIPO`, `TIPO`) VALUES (1,'BOLETO'), (2,'CHEQUE'), (3,'DINHEIRO');COMMIT;## Data for the `vendedor` table (LIMIT 0,500)#INSERT INTO `vendedor` (`COD_VENDEDOR`, `VENDEDOR`) VALUES (1,'WILLIAN'), (2,'EDNALDO'), (3,'ALGNALDO'), (5,'BATISTA');COMMIT;

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha, 1a dica: não use o código pronto do Dreaweaver!! ele usa muito lixo e deixa pagina mto mais suja e carregadaem relação ao seu problema, normalmente a galera usa Sessions..... dah uma pesquisada nissomas se você quiser usar banco de dados, use uma tabela apenas para transferências.... a medida q o cara vai selecionando, vai adicionando na tabela, sempre colocando algum código que identifique o usuário, para controle.No final, qdo for efetuar e/ou modificar a compra, você puxa todos os produtos que estiverem com o nº do controleBem simples de fazer!!Espero ter ajudado!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Usar session eu sei, só não sei como fazer carrinho de compras usando session. rsMás valeuUsar session eu sei, só não sei como fazer carrinho de compras usando session. rsMás valeu

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.