ASPCode 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
Trang 1(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
Trang 2Next
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,", "")
Trang 3session("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
%>
Trang 4con 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,",")
Trang 5for 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>
Trang 6<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>
Trang 7<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>
Trang 8</table> </form> <%
end if
%>
</div>
</div>
</div>
</body>
</html>