1、用ASP編寫購物車代碼 網上購物已成為生活的潮流，在網上購物之后，想要隨時查看自己已買的東西，想要隨時刪除或修改某件商品數量，要怎么做呢？下面我就來寫代碼及釋義。先來做用戶登陸頁面（login.asp）：購物車的實現用戶名：密碼：然后來寫接收用戶所填寫的信息以檢查是否存在該用戶的頁面（check.asp），如果存在該用戶，那么就跳到購物的首頁（index.asp）:alert(用戶名或密碼不正確!);history.back();那么，接下來就是購物的首頁（index.asp）了下面用css樣式表將表格里的字體統一設置為14號字做一個搜索的文本框，方便用戶搜索商品。其原理是這樣的：用戶填入要搜

2、索的商品后，通過表單提交到本頁面，從數據庫中查找像用戶填寫的字符串的商品，再顯示出來每個商品下面都有一個購買按鈕，需要做一個表單ahref=product.asp?id=imgsrc=images/width=100height=100border=0inputtype=hiddenname=idvalue=inputtype=hiddenname=pricevalue=/名稱：價格：如果用戶想要查看商品更詳細的信息，那么就應該將商品圖片做成一個超鏈接，連接到product.asp,在該頁面顯示詳細信息。在該頁面也有一個購買按鈕，點擊之后同樣跳到buy.asp:imgsrc=images/wi

3、dth=100height=100名稱：價格：inputtype=buttononclick=javascript:location.href=buy.asp?id=&price=value=購買點擊購買之后觸發一個onclick事件，跳轉到buy.asp用戶點擊了購買以后，將該商品的id傳到buy.asp,下面來寫buy.asp的代碼：將連接數據庫的字符串包含進來執行完了sql語句之后將跳轉到購物車頁面（mycar.asp），顯示出用戶所購買的商品。并且有修改數量的按鈕和刪除的超鏈接orderid商品名稱商品id單價數量刪除修改inputtype=textsize=10value=name=

4、pcountahref=delete.asp?id=刪除inputtype=buttononclick=javascript:document.form1.action=update.asp?rowcount=&pid=;document.form1.submit();value=確認修改返回繼續購物總金額為：點擊修改數量的按鈕之后，就跳到update.asp：同樣點擊刪除之后，就跳到delete.asp，在該頁面得到商品的id一個簡單的購物車做好了，它用到了連接數據庫、數據庫的增、刪、改、查。ASP購物車代碼Asp 2011-01-17 14:35:38 閱讀376 評論0 字號：大中小訂閱

5、 將以下ASP購物車代碼都保存為一個文件，如cart.asp，調用時比如加入購物車直接使用鏈接cart.asp?id=商品ID即可。本例中商品數據庫表為product，使用到商品ID，商品名稱product_name等，在實際使用ASP購物車代碼時將相關參數替換下。%簡單ASP購物車代碼原理action=request.QueryString(action)if request.QueryString(id)= thenbookid=session(productlist)/調入查詢物品的idelse if session(productlist)= thensession(productli

6、st)=request.QueryString(id)bookid=request.QueryString(id) else if instr(request.querystring(id),session(productlist)1 thenbookid=session(productlist)+,+request.QueryString(id)/把id全部存儲到bookid中類似與數組session(productlist)=bookid elsebookid=session(productlist) end if end ifend ifif session(productlist)=

7、then/若id為空，則說明用戶沒有購物bookid=0end ifif action=del then 刪除購物車中的某一件商品aProducts=split(Session(ProductList),)delid=cstr(trim(Request.QueryString(id)For i=0 To UBound(aProducts) 循環所有商品ID If trim(aProducts(i)delid then 不等于被刪除的ID時則保存進新的列表中 sNewProducts = sNewProducts & , & aProducts(i) end ifNextSession(Prod

8、uctList) = mid(sNewProducts,2) if session(ProductList)= thenbookid=0 elsebookid=Session(ProductList) end ifend if%以下是ASP購物車里的所有商品：%根據臨時存儲到SESSION里的商品ID分別從商品數據庫循環調出商品顯示到購物車頁面，遇到重復ID不顯示if bookid0 and bookid thenset rs=server.CreateObject(adodb.recordset)dim sqlsql=select id,product_name from product where id in (&bookid&) order by id 這里替換成實際的商品數據庫及字段rs.open sql,conn,1,1 dim bookscount,books 定義判斷有幾個bookid bookscount=request.QueryString(id).count aa=1 do while not rs.eof dim quatity 判斷input 名Quatity = CInt( Request( ckxp&rs(id) )If Quatity 商品ID：商品名稱：a hre