| (ASP) Code giỏ hàng đơn giản |
 |
 |
 |
|
Code giỏ hàng được đóng góp từ bạn ChipAHP Đây là đoạn code đơn giản, có chức năng Add 1 sản phẩm vào giỏ hàng. Tuy chưa có đủ chức năng của một giỏ hàng nhưng các bạn có thể dựa vào đó để phát triển thêm những chức năng tương tự. Trang Product <a href="/AddToCart.asp?MaSP=01">San pham 01</a><br> <a href="/AddToCart.asp?MaSP=02">Sản phẩm 02</a><br> <a href="/AddToCart.asp?MaSP=03">Sản phẩm 03</a><br> <a href="/AddToCart.asp?MaSP=04">Sản phẩm 04</a><br> <a href="/AddToCart.asp?MaSP=05">Sản phẩm 05</a><br> Trang ViewCart <a href="/Products.asp">San Pham</a> <% Response.Write(Session("MaSP") & "<br>") Response.Write(Session("SoLuong")) %> Trang Cart <% ' Cac ham lien quan den viec xay dung gio hang ' De cai dat gio hang ta dung 2 bien string ' Session["MaSP"] : 1 string luu tru cac ma san pham trong gio hang cach nhau boi dau ~ ' Session["SoLuong"]: 1 string luu tru so luong cac san pham tuong ung trong gio hang Sub ThemSanPhamVaoGioHang (MaSP, Soluong) ' Lay 2 chuoi chua danh sach san pham va so luong sSanPham = Session("MaSP") sSoluong = Session("SoLuong") ' Tach thanh 2 mang arrMaSP = Split(sSanPham,"~") arrSoluong = Split(sSoLuong,"~") ' Kiem tra gio hang da co san pham nao chua If sSanPham="" Then Session("MaSP") = MaSP Session("SoLuong") = SoLuong Else ' Tim xem san pham co MaSP da ton tai trong gio hang chua Pos = -1 For i=0 To UBound(arrMaSP)-1 If arrMaSP(i)=MaSP Then Pos = i Exit For End If Next ' Neu nhu san pham do da ton tai trong gio hang If Pos<>-1 Then ' Tang so luong tuong ung arrSoLuong(pos) = CInt(arrSoLuong(pos)) + CInt(SoLuong) ' Gan tro lai gio hang Session("SoLuong") = Join(arrSoLuong,"~") Else ' Them moi MaSP vao trong gio hang Session("MaSP") = sSanPham & "~" & MaSP Session("SoLuong") = sSoLuong & "~" & SoLuong End If End If End Sub %> Trang AddToCart <!--#include file="Cart.asp"--> <% MaSP = Request.QueryString("MaSP") Call ThemSanPhamVaoGioHang(MaSP,1) Response.Redirect("ViewCart.asp") %> Cảm ơn bạn ChipAHP
|
