asp+ajax版的购物车

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

</head>

<body>

<div class="gouwuchebt">我的购物车</div>

<tr>

</tr>

dim proId,act,qty,k,rs

act=Request.QueryString("act")

proId=Request.QueryString("proId")

qty=Request.QueryString("qty")

if act<>"" then

If uCart.CheckItem(proId)=False Then

set rs = Server.CreateObject("adodb.recordset")

rs.open "select productName,discount_price,pic from Product where id="&proId,conn,1,1

if not rs.eof then

call uCart.AddItem(proId,rs("productname"),rs("discount_price"),rs("pic"))

end if

rs.close

set rs=nothing

else

call uCart.ModifItem(proId,2)

end if

if uCart.CheckEmtpy=False Then

myCart=uCart.ViewCart()

k=0

For i=LBound(myCart,2) To UBound(myCart,2)

If myCart(0,i)<>"" Then '以前的判断语句

</tr>

k=k+1

end if

myprice=uCart.TPrice()

else

Response.Write("<td colspan='7' align='center' height='32'>暂无购买商品,请继续 <a href='product.asp' color:red'>购物</a></td>")

end if

</table>

<tr>

<input type="checkbox" class="btn_checkbox check-all cur" checked="checked" /> 全选

<td width="62%" align="right" bgcolor="#f2f2f2" class="gouwu14">商品总价（不含运费和优惠扣减）：<strong id="totalPrice">

<span class="total_pri_blod">¥<%

if uCart.CheckEmtpy then

Response.Write(0)

else

Response.Write(FormatNumber(myprice(0),-1))

end if

%></span>

</strong></td>

</td>

</tr>

</table>

</div>

</div>

</body>

</html>

cart.js

$(function(){

//getTotalPrice();

//手动修改商品数量

var regNum = /^d+$/;

$(".changeNum").unbind("blur").bind("blur",function () {

var obj = $(this);

var product_num = obj.val();

if(regNum.test(product_num) && product_num > 0){

var buy = parseInt($(this).data("buy"));

product_num = parseInt(product_num);

changeProductNum(obj,product_num - buy,'input');

}else{

alert("商品数量格式不正确");

$(this).val($(this).data("buy"));

return;

}

});

//增加商品数量

$('.addNum').unbind("click").bind("click",function () {

var obj = $(this);

changeProductNum(obj,'add');

});

//减少商品数量

$('.minusNum').unbind("click").bind("click",function () {

var obj = $(this);

var $itemNum = $(this).closest("tr").find("input[name='pro_num']").val();

if(parseInt($itemNum) > 1){

changeProductNum(obj,-1,'add');

}

});

//删除商品展示弹框

$('.btn_del').click(function(){

$(this).next().show();

var url = $(this).attr('href');

});

//取消删除商品

$(".reset_delete").unbind("click").bind("click",function () {

$(this).parents(".pop_box").hide();

});

//执行删除商品

$(".do_delete").unbind("click").bind("click",function () {

//$(this).parents(".pop_box").hide();

var parent = $(this).parents('tr');

parent.remove();

getTotalPrice();

});

//批量删除购物车商品

$('#del-all').click(function(){

var product_id=[];

$('.product_select').each(function(index,element){

if($(this).prop("checked")){

product_id.push($(this).closest("tr").attr('rel'));

}

});

if(product_id.length == 0){

alert('请先选择商品');

return false;

}

if(confirm("确认删除商品")){

var del_confirm = function(product_id){

$("tr[rel='"+product_id+"']").remove();

getTotalPrice();

};

for(var i in product_id){

del_confirm(product_id[i]);

}

return false;

});

//勾选计算

$('.check-product').unbind("click").bind("click",function () {

$(this).toggleClass('cur');

var tmp=$('.check-product');

if(tmp.length==tmp.filter('.cur').length){

$('.check-all').addClass('cur');

$('.check-all').prop("checked",true);

}else{

$('.check-all').removeClass('cur');

$('.check-all').prop("checked",false);

}

getTotalPrice();

});

//全选/全不选计算

$('.check-all').click(function(){

$(this).toggleClass('cur');

if($(this).hasClass('cur')){

$('.check-product').addClass('cur');

$('.check-all').addClass('cur');

$('.check-product').prop("checked",true);

}else{

$('.check-product').removeClass('cur');

$('.check-all').removeClass('cur');

$('.check-product').prop("checked",false);

}

getTotalPrice();

});

//结算

$("#settlement").click(function(e){

e.stopPropagation();

e.preventDefault();

var product_ids=[],num_ids=[];

$('.check-product').each(function(index,element){

if($(this).prop('checked')){

var $tr2=$(this).closest("tr");

product_ids.push($tr2.attr("rel"));

num_ids.push($tr2.find("input[name='pro_num']").val());

}

});

if(product_ids.length < 1){

alert("请选择商品");

return ;

}

else{

$.post("changeProductNum.asp",{"act":"settlement","productIds":product_ids.toString(),"numIds":num_ids.toString(),rnd:new Date().getTime()},function(msg){window.location.href='shop.asp';});

}

});

});//the end of window.onload by quwei

function checkBtn(){

var tmp=$('.check-product');

if(tmp.length==tmp.filter('.cur').length){

$('.check-all').addClass('cur');

}else{

$('.check-all').removeClass('cur');

}

//商品数量变更

function changeProductNum(obj,inputVal,type){

var $tr = obj.closest("tr"),product_id=$tr.attr("rel");

var $itemNum = $tr.find("input[name='pro_num']");

if($tr.size() > 0){

$itemNum.val(parseInt($itemNum.val()) + inputVal);

var itemPrice = parseFloat($tr.find("td.td4 .c_red").attr("value"));

$tr.find("td.td6 p").text("¥ "+ (parseFloat($itemNum.val())*itemPrice).toFixed(2));

}

getTotalPrice();

}

//价格计算

function getTotalPrice(){

var total_price = total_number = 0;

$('.check-product').each(function(index,element){

if($(this).prop('checked')){

var $tr2=$(this).closest("tr");

total_price += parseFloat($tr2.find("td.td4 .c_red").attr("value")) * parseInt($tr2.find("input[name='pro_num']").val());

total_number += parseInt($tr2.find("input[name='pro_num']").val());

}

});

if($(".CartNum").size() > 0)$(".CartNum").html(total_number);

$('#totalPrice .total_pri_blod').html(total_price.toFixed(2));

}

changeProductNum.asp

dim act

act=Request.Form("act")

if act="settlement" then

call order_settlement()

end if

sub order_settlement()

productIds=Request.Form("productIds")

numIds=Request.Form("numIds")

uCart.RemoveAll()

Set rs = Server.CreateObject("ADODB.Recordset")

if InStr(productIds,",")>0 then

arrPro=split(productIds,")

arrNum=split(numIds,")

For i=0 To UBound(arrPro)

rs.open "select productName,pic from Product where id="&arrPro(i),1

if not rs.eof then

if uCart.CheckItem(arrPro(i))=False then

call uCart.AddItem(arrPro(i),arrNum(i),rs("pic"))

else

call uCart.ModifItem(arrPro(i),2)

end if

rs.close

Else

rs.Open "select productName,pic from Product where id="&productIds,1

If Not rs.EOF Then

if uCart.CheckItem(productIds)=False then

call uCart.AddItem(productIds,numIds,rs("pic"))

else

call uCart.ModifItem(productIds,2)

end if

End If

rs.Close

End If

Set rs=Nothing

end sub

closeconn

cart.asp

Class UserCart

'建立购物车

Sub CreateCart()

Dim CFlag

dim mCart(6,0)

CFlag=CheckCart()

if CFlag=false then

For iCount =LBound(mCart,2) to UBound(mCart,2)

mCart(0,iCount)=""

Session("UserCart")=mCart

end if

End Sub

'检查购物车

Public Function CheckCart()

IF IsArray(Session("UserCart")) THEN

CheckCart = true

ELSE

CheckCart = false

END IF

End Function

'检查购物车是否为空

Function CheckEmtpy()

dim mCart

mCart=Session("UserCart")

For i =LBound(mCart,2)

if mCart(0,i)<>"" then

CheckEmtpy=false

Exit Function

end if

CheckEmtpy=True

End Function

'添加商品

Function AddItem(aID,aName,aPrice1,aPrice2,aPrice3,aCount,aImage) '2008-12-25改进 by tommy 商品增加在最后

dim mCart

AddItem=false

if CheckItem(aID)=false then

'无此商品

mCart=Session("UserCart")

i =UBound(mCart,2)

i=i+1

Redim preserve mCart(6,i)

mCart(0,i)=aID 'productID

mCart(1,i)=aName '产品名称

mCart(2,i)=aPrice1 '产品原价

mCart(3,i)=aPrice2 '会员价

mCart(4,i)=aPrice3 'VIP价

mCart(5,i)=aCount '购买数量

mCart(6,i)=aImage '产品图片

session("UserCart")=mCart

AddItem=True

Else

'有此商品,则商品数量+1

ModifItem aID,0

AddItem=True

End if

End Function

'删除商品数量

Sub DelItem(mID) '改进2008-12-25by tommy 增加删除商品过程

dim mCart

'Response.Write(mID)

mCart = Session("UserCart")

mount=UBound(mCart,2)

If mID=mount Then

mount=mount-1

mCart(0,mount+1)=""

ReDim Preserve mCart(6,mount)

Else

mount=mount-1

For i=mID To mount

For j=0 To 6

mCart(j,i)=mCart(j,i+1)

mCart(0,mount)

End If

Session("UserCart")=mCart

End Sub

'修改商品数量

Sub ModifItem(mID,mCount,mFlag)

'mFlag－标志 0－添加 1－删除,2-修改 3-清空

'mID-商品ID

'mCount－修改商品的数量

dim mCart

mCart = Session("UserCart")

For i =LBound(mCart,i)=mID then

select case mFlag

case 1

mCart(0,i)=Int(mCart(5,i))-Int(mCount)

case 0

mCart(5,i)= Int(mCart(5,i))+Int(mCount)

case 2

if mCount=0 then

mCart(5,i)=0

mCart(0,i)=""

else

mCart(5,i)=mCount

end if

case 3

mCart(5,i)=0

mCart(0,i)=""

end select

session("UserCart")=mCart

exit Sub

end if

End Sub

'查看推车

Function ViewCart()

dim mCart

mCart=session("UserCart")

ViewCart=mCart

End Function

'检查商品

Function CheckItem(cID)

dim mCart

mCart =Session("UserCart")

For i =LBound(mCart,i)=cID then

CheckItem=True

exit Function

end if

CheckItem=false

End Function

'清空购物车

Sub RemoveAll()

dim mCart

mCart = Session("UserCart")

For i =LBound(mCart,2)

mCart(0,i)=""

Session("UserCart")=mCart

End Sub

'商品总价值

Function TPrice()

dim mCart,i

dim OutPrice(3)

mCart=session("UserCart")

for i=LBound(mCart,i)<>"" then

Outprice(0) = Int(Outprice(0)) + Int(mCart(2,i))*Int(mCart(5,i))

Outprice(1) = Int(Outprice(1)) + Int(mCart(3,i))

Outprice(2) = Int(Outprice(2)) + Int(mCart(4,i))

Outprice(3) = Int(OutPrice(3)) + Int(mCart(5,i))

end if

TPrice=OutPrice

End Function

End Class

'=================================================

'建立购物车对象,该对象用于直接在程序中调用

'来自QQ:1984756933

'=================================================

Dim uCart

Set uCart= new UserCart

uCart.CreateCart()

asp+ajax版的购物车

相关推荐