Avatar billede stkol Nybegynder
16. november 2005 - 14:58 Der er 3 kommentarer og
1 løsning

Hjælp til tilføj og Fjern funktion i ASP indkøbskurv..

Hejsa

Jeg har desperat brug for hjælp til en tilføj / Fjern funktion (+/-) i en indkøbskurv som er lavet i ASP. Funktionen skal kun fjerne 1 stk af gangen eller tilføje 1 stk af gangen på en vare linie.

Den indkøbskurv som jeg bruger er den som jeg har hentet her :

http://www.organist.dk/asp/e-shop/


Jeg håber virkelig der er en der kan hjælpe mig, jeg er virkelig ved at være desperat :-)

Mange hilsner

Stig :-)
Avatar billede kratluskeren Nybegynder
16. november 2005 - 20:05 #1
Hej, hvordan ser din indkøbskurv ud?
Mener hvordan ligger dine varer gemt og hvilken struktur?
Avatar billede stkol Nybegynder
16. november 2005 - 20:42 #2
Hejsa

Jeg tror jeg vil forklare det i 3 steps:

STEP 1

Når varen smides i kurven sendes følende form afsted:

<form action="add_product.asp?a_ID=<%=prodrs("ID")%>" method="post" name="form<%=prodrs("ID")%>" target="addprod">
<input name="ProduktPris<%=prodrs("ID")%>" type="hidden" value="<%=psykPrice%>">
<input name="ProduktNummer<%=prodrs("ID")%>" type="hidden" value="<%=prodrs("VARENR")%>">
<input name="ProduktNavn<%=prodrs("ID")%>" type="hidden" value="<%=left(prodrs("VARETEKST"),35)%>..">
</form>



STEP 2

Ovenstående form bliver smidt ned i følgende side (add_product.asp) :

<%
    ID = Request.QueryString("a_ID")
    Items = Request.Form("Items"&ID)
    ProduktPris = Request.Form("ProduktPris"&ID)
    ProduktNummer = Request.Form("ProduktNummer"&ID)
    ProduktNavn = Request.Form("ProduktNavn"&ID)
    Response.Write("Session Items:" & Session("Items"))

    If isEmpty(Session("OnlineOrder")) Then
    Dim OnlineOrder(100,4)
    Session("Items") = -1
    Session("OnlineOrder") = OnlineOrder
    i = -1
    Else
    i = Session("Items")
    OnlineOrder = Session("OnlineOrder")
    End If

    If Len(ID)>0 And Len(Items)>0 Then
    If Items>0 And i <100 Then
    i = i+1
    OnlineOrder(i,0) = Items
    OnlineOrder(i,1) = ID
    OnlineOrder(i,2) = ProduktPris
    OnlineOrder(i,3) = ProduktNummer
    OnlineOrder(i,4) = ProduktNavn
    Session("Items") = i
    Session("OnlineOrder") = OnlineOrder
    Erase OnlineOrder
%>
    <script type="text/javascript">
    <!--
    parent.prodframe.location.reload();
    //-->
    </script>
<%
    End If
    End If
%>



STEP 3

Indkøbskurven som viser de produkter som er tilføjet og hvor de knapper som jeg mangler skal pladseres er (et udsnit af siden) :


<%
    OnlineOrder = Session("OnlineOrder")
    If isArray(OnlineOrder) Then
    i = Session("Items")
    For t = o To i
    If (OnlineOrder(t,0))<> "" Then
%>
<tr>
<td align="right" valign="middle" width="40"><font class="BasketItemsFont"><%=OnlineOrder(t,0)%>&nbsp;</font></td>
<td align="right" valign="left" width="120"><font class="BasketItemsFont"><%=OnlineOrder(t,3)%></font></td>
<td align="left" valign="middle" width="180"><font class="BasketItemsFont">&nbsp;<%=left(OnlineOrder(t,4),50)%></font></td>
<td align="right" valign="middle" width="80"><font class="BasketItemsFont"><%=Session("WebSiteValutaCode")%>&nbsp;<%=formatNumber(OnlineOrder(t,2),2,-2)%>&nbsp;</font></td>
<td align="right" valign="middle" width="100"><font class="BasketItemsFont"><%=Session("WebSiteValutaCode")%>&nbsp;<%
                                                                                AllTogether_PerProduct = + OnlineOrder(t,0) * OnlineOrder(t,2)
                                                                                AllTogether_AllProducts = formatNumber(AllTogether_AllProducts + AllTogether_PerProduct,2,,-2)
                                                                                trim(Response.Write(formatNumber(AllTogether_PerProduct,2,,-2)))
                                                                                %>&nbsp;</font></td>
<td align="center" valign="middle" width="40"><font class="BasketItemsFont"><b><a href="include/delete_product.asp?a_ID=<%=t%>" target="_self"><img src="<%=Session("SiteImageFolder")%>/vareminus.gif" alt="<%=Label("98")%>" border="0"></a></font></td>
</tr>
<%
    End If
    Next
%>



Håber dette forklarer lidt om strukturen :-)
Avatar billede stkol Nybegynder
28. november 2005 - 11:40 #3
Er der slet ingen der kan hjælpe mig med dette??? *SNØFT* :-)
Avatar billede stkol Nybegynder
17. marts 2006 - 00:00 #4
Jeg lukker spørgsmålet, da der åbentbart ikke er nogen som kan svare!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester