步骤三 建立订单邮件自动回复
（ 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 ”。
本实例详细解析了产品如何确定下订单。至于在线付款部分，则通常是通过跟银行机构合作，获得它们提供的接口程序后，再进行相关数据绑定来实现的。当然也有的人自己开发应用，但其开发过程较复杂，这里就不作介绍。本实例操作完毕。
打印文档
推荐好友 
返回顶部
增大字体 
减少字体