当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在ＡＳＰ中用集合成批操作数据库(二)

ASP
asp获取客户端某一个图片的x,y坐标的代码
asp编程中常用的javascript辅助代码
asp下生成目录树结构的类
[原创]站长感慨asp编程究竟何去何从
asp水印组件之AspJpeg的结合代码实例
asp实现dig功能的js代码
[原创]asp下用实现模板加载的的几种方法总结
asp常用函数集合，非常不错以后研究
一个asp替换函数img里面多余的代码
检查上传图片是否合法的函数,木马改后缀名、图片加恶意代码均逃不过
一想千开PJblog审核功能补丁 v2.0版 发布
asp汉字中文图片验证码
用asp实现网页调用doc附Response.ContentType 详细列表
利用MSXML2.XmlHttp和Adodb.Stream采集图片
[原创]asp获取URL参数的几种方法分析总结
asp实现的可以提醒生日的几种方法附代码
Asp无组件生成缩略图的代码
功能不错的asp模板类代码附下载
不用WinRar只有asp将网络空间上的文件打包下载
AJAX简单应用实例-弹出层

No. « 105 106 107 108 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 240 ::
收藏到网摘: n/a

二、ＨＴＭＬ的集合属性的应用
　　下面我们结合一个实际的例子，讨论一下如何在ＡＳＰ页面中利用ＨＴＭＬ的集合属性来成批操作数据库。现在我们有一个记录客户电子信箱的ＡＣＣＥＳＳ数据库EMail，其中有一个数据表EmailList，包含CustomerId、CustomerName、CustomerEmail三个字段，分别表示客户编号、客户名称、客户电子信箱。在ＡＳＰ页面SelectId.ASP中，我们采用CheckBox列出所有客户的客户名称（各个CheckBox的值为对应的客户编号），让用户选择给哪些客户发送电子邮件。当用户选择了客户并提交数据后，SendMail.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:\inetpub\wwwroot\test\Email.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>

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<!-- 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:\inetpub\wwwroot\test\Email.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 = "[email protected]"
myMail.value("Reply-To") = "[email protected]"
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>

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

列出你的所有Session变