用Dreamweaver制作产品订单动态网页

最新推荐文章于 2024-07-03 21:45:00 发布

weng11111

最新推荐文章于 2024-07-03 21:45:00 发布

阅读量2.6k

点赞数 1

文章标签： dreamweaver 产品 dataset session access integer

本文链接：https://blog.csdn.net/weng11111/article/details/6464419

版权

本文介绍如何使用Dreamweaver制作一个产品订单系统，包括从购物车添加产品到订单数据库，发送订单确认邮件给客户。通过OleDbDataAdapter与Access数据库交互，实现订单数据的保存，并利用System.Web.Mail发送邮件。详细步骤包括订单数据的插入和表间联接，以及创建订单邮件的自动回复功能。

摘要由CSDN通过智能技术生成

上一个实例中讲解了如何在线购物。当完成了在线购物后，就可以给产品下订单了，下订单时需要将产品发给客户以备核对，本实例就来讲解其实现过程。

　　效果说明

　　在“ index.apx ”中浏览公司产品，然后单击【购买】按钮将产品添加到购物车中，当订购完毕后，单击购物车中的【确定下订单按钮】，将购物车中的产品添加到订单数据库中，再用邮件将订单自动发给客户，并显示出如图 84-1 所示的订单效果。

　　创作构思

　　单击购物车中的【确定下订单按钮】，将购物车中临时表“ Cpdat ”里的所有记录添加到“ CPDD ”（产品订单）表中，再通过 System.Web.Mail 对象完成电子邮件的发送。

　　操作步骤

　　步骤一　给产品下订单

　　（ 1 ）打开“ CPBY.aspx ”页面，在 <script runat="server"> 中添加过程“ NewOrder_Click ”，其代码如下所述。

Sub NewOrder_Click(sender As object, e As EventArgs)
Dim cpConn,Cpstring AS String
Dim conn AS OleDbConnection
Dim Cpadapter AS new OleDbDataAdapter
Dim Cpdat AS DataSet
Dim dt AS DataTable
Dim Newnow
Dim Tystring as string
cpConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("dat/dwdat.mdb")
conn = New OledbConnection(cpConn)
Cpstring = "SELECT * from CPDD"
Cpadapter = new OleDbDataAdapter(Cpstring,conn)
Dim yy as OleDbCommandBuilder=new OleDbCommandBuilder (Cpadapter)
Cpdat = New DataSet()
Cpadapter.Fill(Cpdat,"CPDD")
Dim i as integer
Newnow=now
Tystring=session("USENAME")+Cstr(year(Newnow))+iif(len(month(Newnow))=2,cstr(month(Newnow)),"0"+cstr(month(Newnow)))+iif(len(day(Newnow))=2,cstr(day(Newnow)),"0"+cstr(day(Newnow)))+cstr(hour(Newnow))+cstr(Minute(Newnow))+cstr(second(Newnow))
For i=0 to Cpbt.Rows.Count-1
Dim dr As DataRow = Cpdat.Tables("CPDD").NewRow()
dr(0) = Tystring
dr(1) = Cpbt.Rows(i)("CPID")
dr(2) = session("USENAME")
dr(3) = Cpbt.Rows(i)("SL")
dr(4) = Newnow
Cpdat.Tables("CPDD").Rows.Add(dr)
next
Cpadapter.Update(Cpdat, "CPDD")
session("Cpshop")=nothing
Cpbt=nothing
Cpview=nothing
Cpdat=nothing
conn.close
response.Redirect(&