DW MX实例：给产品下订单

来源：eNet硅谷动力 作者： 出处：巧巧读书 2006-04-26 进入讨论组

• 关 键 词：
• dreamweaver
• windows xp
• sql server
• microsoft
• asp.net

上一页 1 2 3 

步骤三　建立订单邮件自动回复

　　（ 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 ”。

　　本实例详细解析了产品如何确定下订单。至于在线付款部分，则通常是通过跟银行机构合作，获得它们提供的接口程序后，再进行相关数据绑定来实现的。当然也有的人自己开发应用，但其开发过程较复杂，这里就不作介绍。本实例操作完毕。保留地址 http://www.qqread.com/dreamweaver/q324104022.html进入讨论组讨论。

上一页 1 2 3 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：DW网页设计100例55：随机播放背景音乐

较新的文章：DW MX实例：实现电子商务购物车