用ASP編寫購(gòu)物車代碼.doc

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

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

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

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

5、 將以下ASP購(gòu)物車代碼都保存為一個(gè)文件，如cart.asp，調(diào)用時(shí)比如加入購(gòu)物車直接使用鏈接cart.asp?id=商品ID即可。本例中商品數(shù)據(jù)庫(kù)表為product，使用到商品ID，商品名稱product_name等，在實(shí)際使用ASP購(gòu)物車代碼時(shí)將相關(guān)參數(shù)替換下。%簡(jiǎn)單ASP購(gòu)物車代碼原理action=request.QueryString(action)if request.QueryString(id)= thenbookid=session(productlist)/調(diào)入查詢物品的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全部存儲(chǔ)到bookid中類似與數(shù)組session(productlist)=bookid elsebookid=session(productlist) end if end ifend ifif session(productlist)=

7、then/若id為空，則說(shuō)明用戶沒有購(gòu)物bookid=0end ifif action=del then 刪除購(gòu)物車中的某一件商品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 ifNextSession(Prod

8、uctList) = mid(sNewProducts,2) if session(ProductList)= thenbookid=0 elsebookid=Session(ProductList) end ifend if%以下是ASP購(gòu)物車?yán)锏乃猩唐罚?根據(jù)臨時(shí)存儲(chǔ)到SESSION里的商品ID分別從商品數(shù)據(jù)庫(kù)循環(huán)調(diào)出商品顯示到購(gòu)物車頁(yè)面，遇到重復(fù)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 這里替換成實(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 商品ID：商品名稱：a hre