這個是我以前用去年用ASP寫的一個購物車主體,已經功過測試,運行良好,希望能給ASP的愛好者帶來益處

<%@ Language=VBScript %>
<%Response.Expires=0%>
<%
'寫入COOKIE
'Response.Write Request.Cookies("warebuycount")
sub setcookie(Aname,warenum,warename,price,warecount,pricelow)
    Response.Cookies(Aname).domain=application("wareurl") 'wareurl代表網域名稱
    Response.Cookies(Aname).expires=date()+30 'COOKIE到期日期
    Response.Cookies(Aname).path="/"
    Response.Cookies(Aname).Secure = FALSE
    Response.Cookies(Aname)("warenum")=warenum '商品編號
    Response.Cookies(Aname)("warename")=warename '商品名稱
    Response.Cookies(Aname)("price")=price '價格
    Response.Cookies(Aname)("warecount")=warecount '購買的數量
    Response.Cookies(Aname)("pricelow")=pricelow '會員價格
end sub
sub setcount(warebuycount) '用於計算客戶購買的商品種類
    Response.Cookies("warebuycount").domain=application("wareurl")
    Response.Cookies("warebuycount").expires=date()+30
    Response.Cookies("warebuycount").path="/"
    Response.Cookies("warebuycount").secure=false
    Response.Cookies("warebuycount")=warebuycount
end sub
'寫入COOKIES
sub setcookies(warenum,warename,price,warecount,pricelow,warebuycount)
    setcookie "warenum"+Cstr(warebuycount),warenum,warename,price,warecount,pricelow
end sub
sub delcookies(delwarenum)
    warebuycount=Request("warebuycount")-1
    while Cint(delwarenum)<=Cint(warebuycount)
        setcookies Request.Cookies("warenum"+Cstr(delwarenum+1))("warenum"),Request.Cookies("warenum"+Cstr(delwarenum+1))("warename"),Request.Cookies("warenum"+Cstr(delwarenum+1))("price"),Request.Cookies("warenum"+Cstr(delwarenum+1))("warecount"),Request.Cookies("warenum"+Cstr(delwarenum+1))("pricelow"),delwarenum