用ASP编写购物车代码.doc

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