首頁 > 產品介紹 > 商品明細

 

<%=Head%> <% Sub PutToShopBag( productID,quantity, productList ,quantityList) If Len(productList) = 0 Then productList = "" & productID & "" quantityList="" & quantity & "" ElseIf InStr( productList&",", productID&"," ) <= 0 Then productList = productID & ""& ", " &productList quantityList = quantity & ", " &quantityList End If session("productList")=productList session("quantityList")=quantityList End Sub productList = session("productList") quantityList = session("quantityList") if Request("productID")<>"" then PutToShopBag Request("productID"), "1",productList,quantityList end if session("productList")=productList session("quantityList")=quantityList Head="以下是您選購商品明細" If Request("clear") = "yes" Then productList = "" quantityList = "" session("productList") = productList session("quantityList") = quantityList End If If Request("MySelf") = "Yes" Then productList = "" quantityList = "" products = Split(Request("productID"), ", ") For I=0 To UBound(products) j=UBound(products)-i tempQuantity=Request("quantity"&products(j)) if tempQuantity="" then tempQuantity=1 ' j=i PutToShopBag products(j), tempQuantity,productList,quantityList Next session("productList") = productList session("quantityList") = quantityList End If 'If Len(productList) = 0 Then ' Response.Redirect "Nothing.asp" ' response.end 'end if %>

<% Sum = 0 ' response.write session("quantityList")&"quantityList
" ' response.write session("productList")&"productList
" If Len(productList) <>0 Then ' response.End quantityArray = Split(session("quantityList"), ", ") productArray = Split(session("productList"), ", ") for i=0 to UBound(productArray) set rs=server.createobject("adodb.recordset") sql = "Select * From product where id="&productArray(i) rs.open sql,conn,1,1 if Not rs.EOF or err then quantity = quantityArray(i) ' quantity = cstr(quantityArray(i)) ' response.write quantity&"quantity" ' response.End If quantity <= 0 Then quantity = 1 Sum = Sum + rs("memberPrice") * quantity %> <% end if next rs.close conn.close canPay="" else canPay="disabled" end if %>
購買 商品編號 商品名稱 商品價格 商品數量 總額
" checked> <%=rs("id")%>   <%=rs("name")%>   <%=rs("memberPrice")%>  " value="<%=quantity%>" size="4" onKeyUp="checknum(quantity<%=rs("id")%>)"> <%=rs("memberPrice")*quantity%>元
總額: <%=Sum%> 元   

>       >    >

請注意,若您要更改商品數量,在您填寫新的數量後,
您必須按下"確認更改"按鈕,才會順利完成變更。


 

| 守護天使 | 飛鷹產品 | 飛鷹專櫃 | 客服中心 | 關於我們 | 聯絡我們 | 訪客留言 | 購物車 |
飛鷹人
版權所有© 2007