打印本文 
关闭窗口 效果说明 在“ 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("ReEmail.aspx?DDID="+Tystring)
End Sub
（读者可打开【光盘】｜【源文件】｜【实例 84 】｜【 84.1.txt 】文件，直接复制）
提示： OleDbDataAdapter 对象是 DataAdapter 对象的一种。 DataAdapter 对象是用于充当 DataSet 与实际数据源之间的对象， DataSet 可以通过 OleDbDataAdapter 对象来更新实际数据源，同样，实际数据源也可以通过 DataAdapter 更新 DataSet 对象。 DataAdapter 对象分为 SQLDataAdapter 对象和 OleDbDataAdapter 对象两种。 SQLDataAdapter 对象用于访问 SQL Server 等数据库， OleDbDataAdapter 对象用于访问使用 OLE DB 链接的数据库，如 Access 。如果代码使用了 OleDbCommandBuilder 对象，通过该对象就可以自动生成 InserCommand 、 DeleteCommand 、 UpdateCommand 属性所需要的 Command 对象，本例就是用它生成 InserCommand 的 Command 对象。
图 84-2 所示是 CPDD 表（产品订单）在 Access 中的数据结构。
这里需要特别说明的是，订单编号（ DDID ）是由用户的登录名、年、月、日、小时、分钟、秒组成的（以上时间参数都是用户下订单时的时间参数），所以代码为 Newnow=now ，首先取得下订单时的时间。代码 iif(len(month (Newnow)) =2,cstr(month(Newnow)), "0"+cstr(month(Newnow)) ，表示当前月份的位数小于 2 时，在其上面加上“ 0 ”，如目前月份为“ 5 ”时，则显示为“ 05 ”，所以代码为 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")
表示每读取购物车临时表 Cpbt 中的一行数据，就为 Cpdat.Tables("CPDD") 对象添加新行，并将临时表 Cpbt 中的相关字段数据添加到 Cpdat.Tables("CPDD") 新行中。当把临时表 Cpbt 中的所有行都添加到 Cpdat.Tables("CPDD") 对象中时，通过 Cpadapter.Update(Cpdat, "CPDD") 把 Cpdat.Tables("CPDD") 对象更新到数据源中的“ CPDD ”表中。
最后的代码 response.Redirect("ReEmail.aspx?DDID="+Tystring) 就是将页面指向“ ReEmail.aspx ”，并传递订单编号（ Tystring ）给参数 DDID 。
（ 2 ） 通过步骤一已将订单添加到 CPDD 表中，接下来应该把订单作为邮件发给用户了。但 CPDD 表只包括“ DDID ”、“ CPID ”、“ USENAME ”、“ SL ”、“ DDTIME ” 5 个字段，没有关于产品单价和产品合计的数据，也没用户的电子邮箱，那怎么发邮件呢？其产品单价可以通过 DreamweaverCP 表中的“ CPDJ ”字段找到，而产品合计则通过将 CPDD 表中的“ SL ”与 DreamweaverCP 表中的“ CPDJ ”相乘得出，用户的电子邮箱可由 DreamweaverKH 表中的“ USEEMAIL ”字段找到。所有这些都需要表与表的联接。
| 热门推荐： | 控制电脑时间 定时关机我可以 | SQL注入漏洞初级应用之Access篇 |
步骤二 表与表之间的联接
（ 1 ）新建数据查询。运行 Access ，打开数据库“ dwdat.mdb ”，新建数据查询，如图 84-3 所示。
（ 2 ） 接下来建立表与表之间的联接。“ CPDD ”表与“ DreamweaverKH ”表联接的关键字段为“ USENAME ”，由于“ DreamweaverKH ”表的字段“ USENAME ”本身是主键，所以在上一步操作中会自动建立两表之间的联系。“ CPDD ”表与“ DreamweaverCP ”表联接的关键字段为“ CPID ”，因此要建立两表之间的联系，就要拖拉“ CPDD ”表中的字段“ CPID ”到“ DreamweaverKH ”表中的字段“ CPID ”上，如图 84-4 所示。
（ 3 ） 设置查询显示字段分别为“ CPDD ”表中的字段“ DDID ”、“ CPID ”、“ SL ”、“ DDTIME ”，还有“ DreamweaverCP ”表中的字段“ CPDJ ”和“ DreamweaverKH ”表中的字段“ USEEMAIL ”，如图 84-5 所示。
（ 4 ）选择【视图】｜【 SQL 视图】菜单命令，弹出【查询 1 ：选择查询】窗口，在窗口中显示如下所述的 SQL 代码。
SELECT CPDD.DDID, CPDD.CPID, CPDD.SL, CPDD.DDTIME, Dreamweaver CP.CPDJ, DreamweaverKH.USEEMAIL
FROM DreamweaverCP, CPDD INNER JOIN DreamweaverKH ON CPDD. USENAME = DreamweaverKH.USENAME;
将 SQL 代码改为
SELECT CPDD.DDID, CPDD.CPID, CPDD.SL, CPDD.DDTIME, DreamweaverCP. CPDJ, DreamweaverKH.USEEMAIL, CPDD.SL*DreamweaverCP.CPDJ AS CPSUM FROM DreamweaverCP, CPDD INNER JOIN DreamweaverKH ON CPDD. USENAME = DreamweaverKH.USENAME;
（读者可打开【光盘】｜【源文件】｜【实例 84 】｜【 84.2.txt 】文件，直接复制）
即添加代码 , CPDD.SL*DreamweaverCP.CPDJ AS CPSUM ，这是给原来的查询表添加一个新的字段“ CPSUM ”，其值是由“ CPDD ”表中的字段“ SL ”乘以“ DreamweaverCP ”表中的字段“ CPDJ ”得出来的。
（ 5 ）保存该查询为“ NewEmail ”，关闭 Access 。
| 热门推荐： | 控制电脑时间 定时关机我可以 | SQL注入漏洞初级应用之Access篇 |
步骤三 建立订单邮件自动回复
（ 1 ）新建一个空白的 ASP.NET 文档，在代码视图中添加 4 个命名空间，分别为“ System.Data ”、“ System.Data.OleDb ”、“ System.Web.Mail ”和“ System.Math ”。
提示：“ System.Web.Mail ”命名空间包含了与 CDOSYS 组件交互而创建和发送信息的类。使用互联网信息服务（ IIS ）和 SMTP 服务时，为了能从应用程序中利用 CDOSYS 发送电子邮件，必须确认 IIS 服务器列表中已经安装了 SMTP 服务。如果没有安装，在 Windows XP 中可以通过单击【控制面板】｜【添加 / 删除程序】｜【添加 / 删除 Windows 组件】命令进行设置。
（ 2 ）接着添加如下所述的代码。
＜SCRIPT RUNAT="server"＞
Sub Page_Load(Sender As Object,e As EventArgs)
Dim cpConn,Cpstring AS String
Dim conn AS OleDbConnection
Dim Cpadapter AS OleDbDataAdapter
Dim Cpdat AS DataSet
Dim dt AS DataTable
Dim MailObject As New MailMessage
Dim MailString(3) As String
cpConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("dat/dwdat.mdb")
conn = New OledbConnection(cpConn)
Cpstring = "SELECT * FROM NewEmail WHERE DDID='" &Trim(Request. QueryString("DDID")) & "'"
Cpadapter = new OleDbDataAdapter(Cpstring,conn)
Cpdat = New DataSet()
Cpadapter.Fill(Cpdat,"NewEmail")
dt = Cpdat.Tables("NewEmail")
MailString(0)="＜html＞＜body style='font-size: 9pt '＞＜table width='100%' style='font -size: 9pt '＞" _
+"＜tr＞＜td height='22' colspan='3'＞ 订单编号： "+dt.Rows(0) ("DDID")+"＜/td＞" _
+"＜td colspan='2'＞ 订单时间： "+dt.Rows(0)("DDTIME")+"＜/td＞＜/tr＞"
MailString(1)="＜tr bgcolor='#CCCCCC'＞＜td width='20%' align='center'＞ 产品编号 ＜/td＞" _
+"＜td width='20%' align='center'＞ 产品名 ＜/td＞" _
+"＜td width='20%' align='center'＞ 产品单价 ＜/td＞" _
+"＜td width='20%' align='center'＞ 订购数量 ＜/td＞" _
+"＜td width='20%' align='center'＞ 合计 ＜/td＞ ＜/tr＞"
Dim i As Integer
Dim CpTotal
For i=0 to dt.Rows.Count-1
MailString(2)=MailString(2)+"＜tr＞＜td align='center'＞" _
+ dt.Rows(i)("CPID")+ "＜/td＞＜td align='center'＞" _
+dt.Rows(i)("CPNAME") + "＜/td＞＜td align='center'＞" _
+Cstr(Math.Round(dt.Rows(i)("CPDJ"),2))+ " 元 ＜/td＞＜td align='center'＞" _
+Cstr(dt.Rows(i)("SL"))+ "＜/td＞＜td align='center'＞" _
+Cstr(Math.Round(dt.Rows(i)("CPSUM"),2))+ " 元 ＜/td＞＜/tr＞"
Next
For i=0 to dt.Rows.Count-1
CpTotal=CpTotal+dt.Rows(i)("CPSUM")
Next
MailString(3)="＜tr＞＜td colspan='2'＞ 合计金额： "+Cstr(Math.Round(CpTotal,2))+" 元 ＜/td＞＜td colspan='3' ＞＜/td＞ ＜/tr＞＜/table＞＜/body＞＜/html＞"
MailObject.to=dt.Rows(0)("USEEAMIL")
MailObject.From="zsm@4u2v.com"
MailObject.Subject=" 你在本公司下的订单 "
MailObject.Body=MailString(0)+MailString(1)+MailString(2)+MailString(3)
MailObject.BodyFormat=MailFormat.HTML
MailObject.Priority=MailPriority.High
SMTPMail.Send(MailObject)
response.Write(MailString(0)+MailString(1)+MailString(2)+MailString(3))
response.Write(" 我们已将订单发到你的邮箱，请确认！我们会尽快与你联系，把货物发到你的手中。 ")
conn.close
End Sub
＜/SCRIPT＞
（读者可打开【光盘】｜【源文件】｜【实例 84 】｜【 84.3.txt 】文件，直接复制）
（ 3 ）保存文件为“ ReEmail.aspx ”。
本实例详细解析了产品如何确定下订单。至于在线付款部分，则通常是通过跟银行机构合作，获得它们提供的接口程序后，再进行相关数据绑定来实现的。当然也有的人自己开发应用，但其开发过程较复杂，这里就不作介绍。本实例操作完毕。
| 热门推荐： | 控制电脑时间 定时关机我可以 | SQL注入漏洞初级应用之Access篇 |
打印本文 关闭窗口