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

日光不再温度

日光不再温度

2016-01-29 20:12

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

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

 

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问https://m.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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)(本文来源于图老师网站,更多请访问https://m.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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

列出你的所有Session变

展开更多 50%)
分享

猜你喜欢

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

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

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

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

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

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

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

在ASP中操作数据库的方法

ASP
在ASP中操作数据库的方法

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

操作数据库结构Sql语句

SQLServer
操作数据库结构Sql语句

ASP中使用SQL语句操作数据库

ASP
ASP中使用SQL语句操作数据库

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Photoshop鼠绘系列教程:打造唯美插画

Photoshop鼠绘系列教程:打造唯美插画

创建一个ASP通用分页类(一)

创建一个ASP通用分页类(一)
下拉加载更多内容 ↓