ASP購(gòu)物車(chē)代碼超級(jí)簡(jiǎn)單

發(fā)布日期：[2010/10/28] 編輯：奇億廣州網(wǎng)站建設(shè)

將以下ASP購(gòu)物車(chē)代碼都保存為一個(gè)文件，如cart.asp，調(diào)用時(shí)比如加入購(gòu)物車(chē)直接使用鏈接cart.asp?id=商品ID即可。本例中商品數(shù)據(jù)庫(kù)表為product，使用到商品ID，商品名稱(chēng)product_name等，在實(shí)際使用ASP購(gòu)物車(chē)代碼時(shí)將相關(guān)參數(shù)替換下。
<%'簡(jiǎn)單ASP購(gòu)物車(chē)代碼原理
action=request.QueryString("action")
if request.QueryString("id")="" then
bookid=session("productlist")'//////////////////////////////////調(diào)入查詢(xún)物品的id
else
if session("productlist")="" then
session("productlist")=request.QueryString("id")
bookid=request.QueryString("id")
else
    if instr(request.querystring("id"),session("productlist"))<1 then
bookid=session("productlist")+","+request.QueryString("id")'//////////////把id全部存儲(chǔ)到bookid中類(lèi)似與數(shù)組
session("productlist")=bookid
    else
bookid=session("productlist")
    end if
end if
end if

if session("productlist")="" then'////////////////////////若id為空，則說(shuō)明用戶(hù)沒(méi)有購(gòu)物
bookid=0
end if

if action="del" then '刪除購(gòu)物車(chē)中的某一件商品
aProducts=split(Session("ProductList"),",")
delid=cstr(trim(Request.QueryString("id")))
For i=0 To UBound(aProducts)    '循環(huán)所有商品ID
    If trim(aProducts(i))<>delid then
        '不等于被刪除的ID時(shí)則保存進(jìn)新的列表中
        sNewProducts = sNewProducts & "," & aProducts(i)
    end if
Next
Session("ProductList") = mid(sNewProducts,2)
if session("ProductList")="" then
bookid=0
else
bookid=Session("ProductList")
end if
end if
%>

以下是ASP購(gòu)物車(chē)?yán)锏乃猩唐罚?lt;br><br>
<%'根據(jù)臨時(shí)存儲(chǔ)到SESSION里的商品ID分別從商品數(shù)據(jù)庫(kù)循環(huán)調(diào)出商品顯示到購(gòu)物車(chē)頁(yè)面，遇到重復(fù)ID不顯示
if bookid<>0 and bookid<>"" then
set rs=server.CreateObject("adodb.recordset")
dim sql
sql="select id,product_name from product where id in ("&bookid&") order by id" '這里替換成實(shí)際的商品數(shù)據(jù)庫(kù)及字段
rs.open sql,conn,1,1
   dim bookscount,books '定義判斷有幾個(gè)bookid
   bookscount=request.QueryString("id").count
   aa=1
   do while not rs.eof
   dim quatity '判斷input 名
Quatity = CInt( Request( "ckxp"&rs("id")) )
If Quatity <=0 Then Quatity = 1
'以下為購(gòu)物車(chē)每一件商品內(nèi)容，包含ID、名稱(chēng)、數(shù)量及取消
%>

商品ID：<%=rs("id")%>
商品名稱(chēng)：<a href="showproduct.asp?id=<%=rs("id")%>" title="<%=rs("info")%>" target="_blank"><%=rs("product_name")%></a>
訂購(gòu)數(shù)量：<input name="sl<%=aa%>" type="text" Ｖalue="1" size="3">
取消商品：<a href="?nav=m&id=<%=rs("id")%>&action=del"><font color="#FF0000" size="4" style="font-weight:bold">×</font></a>
<br>

<%'循環(huán)讀取ASP購(gòu)物車(chē)內(nèi)的商品
rs.movenext
aa=aa+1
loop
rs.close
set rs=nothing
%>
<%if bookid=0 or bookid="" then%>ASP購(gòu)物車(chē)內(nèi)沒(méi)有商品，請(qǐng)選擇需訂購(gòu)的商品。<%end if%>