注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

金奇点菜网的博客

饭店酒店点菜好帮手,操作简单快捷。

 
 
 

日志

 
 

【转载】ASP中简单购物车的实现  

2017-08-15 09:07:43|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文转载自春风化雨《ASP中简单购物车的实现》

购物车要实现的功能:

1、 用户查询商品的价格,以及查询商品的名称

2、 同一用户实现添加商品,去收银台结账等

3、 购物车实现功能:

4、 1.   订购。即把所选物品添加到购物车。

5、 2.   修改。根据自己的需求可以修改已购物品的数量。也可以删除已选商品。

6、 3.   显示购物车内所选的物品及单价。

7、 4.   结帐。到结帐出进行结帐。

8、 5.   清空购物车。

9、 具体实现:

10、                      1。Index:商品选购页面。点击提交到数据库。

11、                      2.用户注册。用户登入。

12、                      3,查看购物车。其中包括修改商品数量和删除商品。

13、                      4.进入结帐页面。同时清空购物车。

14、              数据库实现:

15、              表一:个人信息:info1.

16、              admin .pass . name. e-mail 等

17、              表二:商品列表 shop

18、              字段: id name money number residual(剩余)

19、              表三:购物车 car

20、              字段: id name money(单价) number(数量) total(总价)

====================================================================

用户登陆的代码

<!--#include file=conn.asp-->

<%

user=request("name")

pwd=request("pass")

if user="" then

response.redirect "reguser.asp"

end if

set rs=server.createobject("adodb.recordset")

sql="select * from admin where admin='"&user&"'"

rs.open sql,conn,1,1

   if not rs.eof then

        if pwd=rs("pass") then

   response.write("登陆成功")

   session("xm")=user////////////////////////////////////////把用户的信息写入到session变量中以后调用

%>

<a href="gwc.asp">购物</a>

<%

   else

   response.write("登陆不成功")

        end if

else

   response.write("用户不存在")

   end if

%>

gwc.asp//////////////////////////////////////////////显示所有商品列表

<!--#include file="conn.asp"-->

<%

set rs=server.createobject("adodb.recordset")

sql="select * from shop"

rs.open sql,conn,1,1

do while not rs.eof

%>

商品名称是:<%=rs("name")%><br>

商品单价:<%=rs("money")%><br>商品数量:<%=rs("number")%>

<br>商品剩余量:<%=rs("residual")%><br>

<a href="gw.asp?id=<%=rs("id")%> ">购买</a><br><br /><%

rs.movenext

loop

%>

=================================================================

gw.asp///////////////////////////////////显示购买物品的列表

<!--#include file="conn.asp"-->

<%

xm=session("xm")

action=request.QueryString("action")

if request.QueryString("id")="" then

bookid=request("bookid")//////////////////////////////////调入购买物品的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 bookid="" then////////////////////////若id为空,则说明用户没有购物

response.write "<script language=javascript>alert('对不起,您没有选择商品!');window.close();</script>"

response.End

end if

select case action

'//////////////////////////////////

case ""

set rs=server.CreateObject("adodb.recordset")

dim sqlmendation

sqlmendation="select id,name,money ,number from shop where id in ("&bookid&") order by id"

rs.open sqlmendation,conn,1,1

%>

<form id="form1" name="form1" method="post" action="">

<%

dim iii '定义总价

   iii=0

   dim bookscount,books '定义判断有几个bookid

   bookscount=request.QueryString("id").count

   do while not rs.eof

   dim quatity '判断input 名

Quatity = CInt( Request( "ckxp"&rs("id")) )

If Quatity <=0 Then Quatity = 1

%>

<table width="833" height="54" border="1" cellpadding="0" cellspacing="0" bordercolor="#3399FF">

<tr>

    <td width="93">商品名称</td>

    <td width="114">商品价格</td>

    <td width="141">商品数量</td>

    <td width="397">小计</td>

    <td width="76">修改数量</td>

</tr>

<tr>

    <td><%=trim(rs("name"))%> </td>

    <td><%=formatnumber(rs("money"),2)&"元"%></td>

    <td><input name="<%="ckxp"& rs("id")%>" type="text" size="3" value="<%=Quatity%>" onkeypress= "return regInput(this, /^[0-9]*$/, String.fromCharCode'////////////////////判断用户输入数量的正确性(event.keyCode))"onpaste = "return regInput(this,/^[0-9]*$/, window.clipboardData.getData('Text'))"ondrop= "return regInput(this,/^[0-9]*$/,event.dataTransfer.getData('Text'))" /></td>

    <td><%

if quatity<=1 then

response.write formatnumber(rs("money")*1,2)&"元"

else

response.write formatnumber(rs("money")*quatity,2)&"元"

end if

iii=formatnumber(rs("money")*Quatity+iii,2 )////////////////////判断总价格

%></td>

    <td><input type="image" name="submit" src="images/xg.gif" onclick="this.form.action='gw.asp?id=<%=bookid%>';this.form.submit" /></td>

</tr>

<tr>

    <td>&nbsp;</td>

    <td>&nbsp;</td>

    <td>&nbsp;</td>

    <td>&nbsp;</td>

    <td>

</label></td></tr>

</table>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

<%

rs.movenext

loop

rs.close

   set rs=nothing%>

总计:<%=iii%>元

<%

session("iii")=iii%><input type="image" border="0" name="submit2" src="images/xyb.gif" width="54" height="18" onClick="this.form.action='gw.asp?action=ckxp1&id=<%=bookid%>';this.form.submit()" >

<label>

<%if request.querystring("id")<>"" then%>

<a href="gwc.asp"><img src="images/cg.gif" border="0" /></a>

<%end if%>

</form>

<%

case "ckxp1"

response.Write(iii)

myorder=cstr(year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now()))

dim mysql,myrs

set myrs=server.CreateObject("adodb.recordset")

mysql="select * from shop_action "

myrs.open mysql,conn,1,3

    myrs.addnew()

myrs("userid")=xm

myrs("bookid")=bookid

myrs("actiondate")=myorder

myrs("number")=quatity

myrs("total")=session("iii")

myrs.update

   myrs.close

set myrs=nothing

session("productlist")=""

%>  

<% response.write("<table width=602 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=e8e8e>")

response.write(" <tr bgcolor=#FFFFFF>" )

             response.Write("<td width=199 style=PADDING-LEFT: 20px>")%><%response.write ("您的订 单号是:")%>

     <%   response.write("</td>")

                      response.Write(" <td width=771 height=28 style=PADDING-LEFT: 20px> ")%><b>

                      <%=myorder%>

                      </b>

      <% response.Write("</td>")

                 response.Write("   </tr>")

response.Write("<tr bgcolor=#FFFFFF>")

                   response.Write("   <td width=199 style=PADDING-LEFT: 20pxcolspan=2 align=center>")

                     

                    response.Write("请记住您的订 单号以方便查询")

                  response.Write("</td>")

                   response.Write(" </tr>")    

response.Write("</table>")

%>   

<%end select%>

  评论这张
 
阅读(5)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017