首页 用ASP编写购物车代码

用ASP编写购物车代码

举报
开通vip

用ASP编写购物车代码用ASP编写购物车代码 网上购物已成为生活的潮流,在网上购物之后,想要随时查看自己已买的东西,想要随时删除或修改某件商品数量,要怎么做呢?下面我就来写代码及释义。先来做用户登陆页面(login.asp): 购物车的实现 用户名: 密码: 然后来写接收用户所填写的信息以检查是否存在该用户的页面(check.asp),如果存在该用户,那么就跳到购物的首页(index.asp): alert("用户名或密码不正确!"); histo...

用ASP编写购物车代码
用ASP编写购物车代码 网上购物已成为生活的潮流,在网上购物之后,想要随时查看自己已买的东西,想要随时删除或修改某件商品数量,要怎么做呢?下面我就来写代码及释义。先来做用户登陆页面(login.asp): 购物车的实现 用户名: 密码: 然后来写接收用户所填写的信息以检查是否存在该用户的页面(check.asp),如果存在该用户,那么就跳到购物的首页(index.asp): <% uname=request.Form("username") upass=request.Form("userpass") sql="select*fromuserswhereuname='"&uname&"'andupass='"&upass&"'" setrs=server.CreateObject("adodb.recordset") rs.opensql,conn,3,1 ifnotrs.eofthen 用户登陆成功之后,将用户名放入session里,并给用户分配一个订单,就像去超市购物推着一个购物车,此时这个购物车是属于你的,用用户名和系统时间作为购物车的名字,然后跳转到购物首页。 session("name")=uname session("orderid")=time&uname response.Redirect("index.asp") else %> <% endif rs.close setrs=nothing conn.close setconn=nothing %> 那么,接下来就是购物的首页(index.asp)了 下面用css样式 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 将表格里的字体统一设置为14号字 <% 如果用户没登陆就直接打开购物首页,那么就跳转到登陆页面 ifsession("name")=""then response.Redirect("login.asp") endif %> 做一个搜索的文本框,方便用户搜索商品。其原理是这样的:用户填入要搜索的商品后,通过表单提交到本页面,从数据库中查找像用户填写的字符串的商品,再显示出来 <% searchname=request.Form("search")‘得到用户填写的字符串 sql="select*fromproductswherepnamelike'%"&searchname&"%'"‘写sql语句,查找出结果 setrs=server.CreateObject("adodb.recordset")‘设置一个结果集对象 rs.opensql,conn,3,1 whilenotrs.eof‘循环输出商品的相关信息 %> 每个商品下面都有一个购买按钮,需要做一个表单 ">"width="100"height="100"border="0">">"/> 名称: <%=rs(1)%> 价格:<%=rs(3)%> <% rs.movenext‘指向下一个 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 wend rs.close setrs=nothing conn.close setconn=nothing %> 如果用户想要查看商品更详细的信息,那么就应该将商品图片做成一个超链接,连接到product.asp,在该页面显示详细信息。在该页面也有一个购买按钮,点击之后同样跳到buy.asp: <% pid=request.QueryString("id") response.Write(pid) sql="select*fromproductswherepid="&pid setrs=server.CreateObject("adodb.recordset") rs.opensql,conn,3,1 ifnotrs.eofthen %> "width="100"height="100"> 名称:<%=rs(1)%> 价格:<%=rs(3)%> <%=rs(4)%> &price=<%=rs(3)%>'"value="购买">‘点击购买之后触发一个onclick事件,跳转到buy.asp <% endif rs.close setrs=nothing conn.close setconn=nothing %> 用户点击了购买以后,将该商品的id传到buy.asp,下面来写buy.asp的代码: ‘将连接数据库的字符串包含进来 <% pid=request("id")‘得到商品的id price=request("price")‘得到商品的价格 sql="select*frommrcarwherepid="&pid&"andorderid='"&session("orderid")&"'"‘写sql语句来查询 setrs=server.CreateObject("adodb.recordset") rs.opensql,conn,3,1 如果用户所要购买的商品已经买过,那么就直接在原来的基础上加1,否则的话,就插入记录 ifnotrs.eofthen sql="updatemrcarsetpcount=pcount+1wherepid='"&pid&"'andorderid='"&session("orderid")&"'" conn.executesql response.Redirect("mycar.asp") else sql="insertintomrcar(orderid,pid,price,pcount)values('"&session("orderid")&"',"&pid&","&price&",1)" conn.executesql response.Redirect("mycar.asp") endif rs.close setrs=nothing conn.close setconn=nothing %> 执行完了sql语句之后将跳转到购物车页面(mycar.asp),显示出用户所购买的商品。并且有修改数量的按钮和删除的超链接 <% sql="selecta.*,b.pnamefrommrcara,productsbwhereorderid='"&session("orderid")&"'anda.pid=b.pid" setrs=server.CreateObject("adodb.recordset") rs.opensql,conn,3,1 %> orderid 商品名称 商品id 单价 数量 删除 修改 <% sum=0 i=1‘这里的i值到后边有介绍 whilenotrs.eof‘将所购买的商品循环输出 %> <%=session("orderid")%> <%=rs("pname")%> <%=rs(1)%> <%=rs(2)%> "name="pcount"> ">删除 &pid=<%=rs(1)%>';document.form1.submit();"value="确认修改"> <% i=i+1 sum=sum+cint(rs(2))*rs(3)‘计算总价格 rs.movenext wend rs.close setrs=nothing conn.close setconn=nothing %> 返回继续购物 总金额为:<%=sum%> 点击修改数量的按钮之后,就跳到update.asp: <% 这里需要注意在上个页面,有个i值,在这里就用到了,你要指明修改的是哪一行记录 i=request.querystring("rowcount") pcount=request.form("pcount")(i) pid=request.querystring("pid")(i) sql="updatemrcarsetpcount="&pcount&"wherepid="&pid&"andorderid='"&session("orderid")&"'" conn.executesql conn.close setconn=nothing response.redirect("mycar.asp")‘执行完之后重新跳转到mycar.asp %> 同样点击删除之后,就跳到delete.asp,在该页面得到商品的id <% pid=request.QueryString("id") response.write(pid) sql="deletefrommrcarwherepid="&pid&"andorderid='"&session("orderid")&"'" conn.executesql conn.close setconn=nothing response.Redirect("mycar.asp")‘执行完之后重新跳转到mycar.asp %>一个简单的购物车做好了,它用到了连接数据库、数据库的增、删、改、查。 ASP购物车代码 Asp 2011-01-17 14:35:38 阅读376 评论0   字号:大中小 订阅 将以下ASP购物车代码都保存为一个文件,如cart.asp,调用时比如加入购物车直接使用链接cart.asp?id=商品ID即可。本例中商品数据库表为product,使用到商品ID,商品名称product_name等,在实际使用ASP购物车代码时将相关参数替换下。 <%'简单ASP购物车代码原理 action=request.QueryString("action") if request.QueryString("id")="" then bookid=session("productlist")'//////////////////////////////////调入查询物品的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全部存储到bookid中类似与数组 session("productlist")=bookid     else bookid=session("productlist")     end if   end if end if if session("productlist")="" then'////////////////////////若id为空,则说明用户没有购物 bookid=0 end if if 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 if Next Session("ProductList") = mid(sNewProducts,2)   if session("ProductList")="" then bookid=0   else bookid=Session("ProductList")   end if end if %> 以下是ASP购物车里的所有商品:

<%'根据临时存储到SESSION里的商品ID分别从商品数据库循环调出商品显示到购物车页面,遇到重复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" '这里替换成实际的商品数据库及字段 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 <=0 Then Quatity = 1 '以下为购物车每一件商品内容,包含ID、名称、数量及取消 %> 商品ID:<%=rs("id")%> 商品名称:" title="<%=rs("info")%>" target="_blank"><%=rs("product_name")%> 订购数量: 取消商品:&action=del">×
<%'循环读取ASP购物车内的商品 rs.movenext aa=aa+1 loop rs.close set rs=nothing %> <%if bookid=0 or bookid="" then%>ASP购物车内没有商品,请选择需订购的商品。<%end if%>
本文档为【用ASP编写购物车代码】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_341693
暂无简介~
格式:doc
大小:64KB
软件:Word
页数:14
分类:互联网
上传时间:2011-12-19
浏览量:32