(ASP)Code giỏ hàng

Chia sẻ: Han Quyet | Ngày: | Loại File: DOC | Số trang:8

Thêm vào BST

Báo xấu

254
lượt xem 69
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Đây là tài liệu lập trình - (ASP)Code giỏ hàng gửi đến các bạn độc giả tham khảo.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: (ASP)Code giỏ hàng

(ASP)Code giỏ hàng Dau tien la include cua shoppingcar : de shoppingcart su dung ma thuc hien cac cau lenh File: include-shoppingcart: 0 and flag=false then 'lam sao de refresh k bi tang arrCounts(i)=CStr(Cint(arrCounts(i))+1) flag=true exit for end if
Next session("ProductList")=join(arrProducts,",") session("ProductCount")=join(arrCounts,",") end if end if end sub public Sub xoasp(pid) strList=Session("ProductList") countList=Session("ProductCount") if trim(pid)"" then if inStr(strList,pid)=0 then exit sub else arrProducts=split(session("ProductList"),",") arrCounts=split(session("ProductCount"),",") For i=0 To uBound(arrProducts) If inStr(arrProducts(i),pid)>0 Then arrCounts(i)="0" arrProducts(i)="0" Exit For End If Next session("ProductList")=join(arrProducts,",") session("ProductCount")=join(arrCounts,",") 'Loai bo cac product co so luong 0 session("ProductList")=Replace(session("ProductList"), "0,", "")
session("ProductCount")=Replace(session("ProductCount"), "0,", "") end if end if end Sub Public Sub xoatatca session("ProductList")="" session("ProductCount")="" end Sub Sub UpdateQuantity(pid,Qty) arrProducts=split(session("ProductList"),",") arrCounts=split(session("ProductCount"),",") For j = 0 to UBound(arrProducts) if inStr(arrProducts(j),pid)>0 then arrCounts(j)=trim(Cstr(Qty)) exit for end if Next session("ProductList")=join(arrProducts,",") session("ProductCount")=join( arrCounts,",") End Sub closeconn %>
con day la code cua shoppingcart #a:hover{ text-decoration:underline} Untitled Document
for i=0 to ubound(Qty_arr) UpdateQuantity id_arr(i),Qty_arr(i) Next strList=session("ProductList") strList=Left(strList,(len(strList)-1)) strListArray=split(strList,",") countList=session("ProductCount") countListArray=split(countList,",") end if if(action="xoasp") then xoasp id end if if(action="xoatatca") then RemoveAll end if %> GIO HANG STT TEN SAN PHAM DON GIA SO LUONG THANH TIEN (VND)
Tiep tuc mua hang
Xoa Tong tien (VND): Co san pham trong gio hang cua ban!