在ASP中用集合成批操作数据库(二)

2016-01-29 20:12 5 1 收藏

在ASP中用集合成批操作数据库(二),在ASP中用集合成批操作数据库(二)

【 tulaoshi.com - ASP 】

二、HTML的集合属性的应用
  下面我们结合一个实际的例子,讨论一下如何在ASP页面中利用HTML的集合属性来成批操作数据库。现在我们有一个记录客户电子信箱的ACCESS数据库EMail,其中有一个数据表EmailList,包含CustomerId、CustomerName、CustomerEmail三个字段,分别表示客户编号、客户名称、客户电子信箱。在ASP页面SelectId.ASP中,我们采用CheckBox列出所有客户的客户名称(各个CheckBox的值为对应的客户编号),让用户选择给哪些客户发送电子邮件。当用户选择了客户并提交数据后,SendMail.ASP将检索到这些客户的电子信箱,并给这些客户发送电子邮件。具体的信息请参见下面ASP程序代码和注释信息。

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)
<!-- SelectId.ASP:列出所有客户的客户名称 --
<html<head<title所有客户的客户名称</title</head<body
<p align=center<font style="font-family:宋体;font-size:9pt"
请选择要给哪些客户发送“新年问候”的电子邮件
<form method="POST" action="SendMail.asp"
<%'建立与ACCESS数据库的连接
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.open "Driver={Microsoft Access Driver (*.mdb)};"&_
"DBQ=C:inetpubwwwroottestEmail.mdb"
'获取所有客户的客户编号、客户名称
Set rsCustomers = Server.CreateObject("ADODB.RecordSet")
rsCustomers.Open "Select CustomerId,CustomerName,CustomerEmail From EmailList",_
dbConnection,1,3,1
'显示所有客户的客户名称
while not rsCustomers.eof
%
<br<input type="checkbox" name="CustomerId" value="<%=rsCustomers("CustomerId")%"
<a href="mailto:<%=rsCustomers("CustomerEmail")%"
<%=rsCustomers("CustomerName")%</a
<%rsCustomers.MoveNext
wend
rsCustomers.close
set rsCustomers = nothing
dbConnection.close
set dbConnection = nothing
%
<br<input type="submit" value="给客户发送电子邮件" name="B1"
style="font-family:宋体;font-size:9pt"
</form</body</html

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)
<!-- SendMail.ASP:给所选择客户发电子邮件 --
<html<head<title给所选择客户发电子邮件</title</head<body
<p align=center<font style="font-family:宋体;font-size:9pt"
正在给下面客户发送电子邮件
<%'建立与ACCESS数据库的连接
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.open "Driver={Microsoft Access Driver (*.mdb)};"&_
"DBQ=C:inetpubwwwroottestEmail.mdb"
'获取所选择客户的电子信箱
Set rsCustomers = Server.CreateObject("ADODB.RecordSet")
rsCustomers.Open "Select CustomerName,CustomerEmail From EmailList where CustomerId in ("&_
Request("CustomerId")&")",dbConnection,1,3,1
while not rsCustomers.eof
'给一个客户发电子邮件
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "sales@test.com"
myMail.value("Reply-To") = "sales@test.com"
myMail.To = rsCustomers("CustomerEmail")
myMail.Subject = "来自王发军的新年问候"
myMail.BodyFormat = 1
myMail.MailFormat = 1
myMail.Body = "王发军向"&rsCustomers("CustomerName")&"问好!"
myMail.Send
Set myMail = Nothing
%
<br给<a href="mailto:<%=rsCustomers("CustomerEmail")%"<%=rsCustomers("CustomerName")%</a
发送电子邮件成功!
<%
rsCustomers.MoveNext
wend
rsCustomers.close
set rsCustomers = nothing
dbConnection.close
set dbConnection = nothing
%
<br在所选择的客户发送电子邮件完毕!
</body</html

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

列出你的所有Session变

来源:http://www.tulaoshi.com/n/20160129/1510842.html

延伸阅读
标签: SQLServer
在SQL结构化查询语言中,LIKE语句有着至关重要的作用。 LIKE语句的语法格式是:select * from 表名 where 字段名 like 对应值(子串),它主要是针对字符型字段的,它的作用是在一个字符型字段列中检索包含对应子串的。 假设有一个数据库中有个表table1,在table1中有两个字段,分别是name和sex二者全是字符型数据。现在我们要在姓名字...
标签: vb
DAO(Data Access Object)全称为数据访问对象,它是数据库编程的重要方法之一。DAO的一种面向对象的界面接口,特色为它不是可视化的对象,使用它全部都要靠编码来完成,DAO是设计关系型数据库系统结构的对象类的集合。它提供了完成管理这样一个系统所需的全部操作的属性和方法,包括创建数据库,定义表、字段和索引,建立表间的关系,定位...
标签: ASP
  前段日子发表的文章,数据库的连接代码可以直接在ASP文件中显示出来。这次又进行了一次封装。 打开vb,新建Activex控件,工程名称为WebDb,类模块名称为GetInfomation 引用”Microsoft Activex Data Object 2.6 Library ” Private Conn As ADODB.Connection Private Rs As ADODB.Recordset ‘作用:判断数据库是否正确连结 '自...
如何操作access数据库 一、查找记录 find.htm 请输入您要查找的人的姓名: find.asp 二、过滤记录 filter.asp 三、添加记录 add.asp 四、更新记录 和上面的“添加记录”一样,只需把“添加”命令改做“更新”就可以了: objrs.update 五、删除记录 本文来自学习网(www.gzu521.com),原文地址:http://www.gzu521.com/campus/artic...
       在VC或VB中需要耗时的查询时,  客户一般需要等待很长一段时间, 这种情况客户是无法容忍而且也无法取消, 那么怎样么办呢.           1.首先采用多线程的方式, 工作线程与UI线程分开, 工作线程处理完毕时向主线程发消处理完毕的消息;另一种方法采用向...

经验教程

868

收藏

9
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部