(ASP)Code giỏ hàng Dau tien la include cua shoppingcar : de shoppingcart su dung ma thuc hien cac cau lenh File: include-shoppingcart: <! #include file="connections/config.asp" > <% openconn Public Sub themsp(pid) strList=Session("ProductList") countList=Session("ProductCount") if (trim (pid)<>"") then if (instr(strList,pid)=0) then'neu khong co ma san pham trong list thi them strList=strList+pid+"," Session("ProductList")=strList CountList=CountList+"1"+"," Session("ProductCount")=CountList else 'co san pham do trong gio hang roi arrProducts=split(Session("ProductList"),",") arrCounts=split(Session("ProductCount"),",") For i = 0 to uBound(arrProducts) if (inStr(arrProducts(i),pid))>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 <! #include file="include-shoppingcart.asp" > <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <link href="/css-pro1.css" media="all" rel="stylesheet" type="text/css" /> <link href="/Picture 037.png" rel="stylesheet" media="all" /> <style type="text/css" media="all"> #a:hover{ text-decoration:underline} </style> <title>Untitled Document</title> </head> <body> <% openconn id = request.querystring("id") action=request.querystring("action") if action="add" then themsp id end if if action="update" then str_qty=request.form("Qty") Qty_arr=split(str_qty,",") str_id=Session("ProductList") id_arr=split(str_id,",") 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 %> <form name="form1" method="post" action="shoppingcart.asp? action=update"> <table width="100%" border="1" cellpadding="1" cellspacing="0"> <tr style=" height:50px"><td>GIO HANG</td></tr> </table> <table width="100%" border="1" cellpadding="1" cellspacing="0"> <tr align="center" class="tr2"> <td>STT</td> <td>TEN SAN PHAM</td> <td>DON GIA</td> <td>SO LUONG</td> <td>THANH TIEN (VND) </td> <td> </td> </tr> <% dim rs set rs=server.CreateObject("adodb.recordset") if (session("ProductList")="") then response.write("<tr><td colspan=6>Ban chua dat mua mat hang nao</td></tr></table>")%> <br><a href="/phantrang1.asp">Tiep tuc mua hang</a> <% else strList=session("ProductList") strList=left(strList,len(strList)-1) strListArray=split(strList,",") countList=session("ProductCount") countListArray=split(countList,",") set rs=server.CreateObject("ADODB.RecordSet") totalPrice=0 for i=0 to ubound(strListArray) rs.open "select * from sanpham where Madongho='"&strListArray(i)&"'",conn %> <tr> <td><%=i+1%></td> <td><%=rs("Tendongho")%></td> <td><%=rs("Gia")%></td> <td><input type="text" name="Qty" value="< %=countListArray(i)%>" size="10" /></td> <td><%=(Cint(countListArray(i))*rs("Gia"))%></td> <td id="a"><a href="/shoppingcart.asp?id=< %=strListArray(i)%>&action=xoasp">Xoa</a></td> </tr> <% totalPrice=totalPrice+Cint(countListArray(i))*rs("Gia") rs.close next %> <tr> <td colspan="4">Tong tien (VND): </td> <td><%=totalPrice%></td> <td> </td> </tr> <tr> <td colspan="6">Co <strong><%=ubound(strListArray)+1%></strong> san pham trong gio hang cua ban!</td> </tr> <tr> <td colspan="7" align="center"> <input type="submit" name="submit" value="Cap nhat gio hang"/> <input type="button" value="Xoa gio hang" onclick='window.location="shoppingcart.asp?action=removeAll"'/> <input type="button" value="Dat hang" onclick='window.location="Dathang.asp"'/> <input type="button" value="Tiep tuc mua hang" onclick='window.location="phantrang_product.asp"'/> </td> </tr> </table> </form> <% end if %> </div> </div> </div> </body> </html> . (ASP)Code giỏ hàng Dau tien la include cua shoppingcar : de shoppingcart su dung ma thuc hien cac cau lenh File: