如何在页面中对不同的数据进行相同的处理.docVIP

如何在页面中对不同的数据进行相同的处理？ selectId.asp 列出所有客户的客户名称 精彩春风之客户名单 p align center font style font-family:宋体;font-size:9pt 请选择要给发送的电子邮件的客户: form method POST action SendMail.asp  % Set dbConnection Server.CreateObject ADODB.Connection dbConnection.open Driver Microsoft Access Driver *.mdb ;_DBQ C:\inetpub\wwwroot\test\Email.mdb 建立与Access数据库的连接Set rsCustomers Server.CreateObject ADODB.RecordSet rsCustomers.Open Select CustomerId,CustomerName,CustomerEmail From EmailList,_ 获取所有客户的客户编号、客户名称 dbConnection,1,3,1while not rsCustomers.eof 显示所有客户的客户名称%  input type checkbox name CustomerId value % rsCustomers CustomerId %  a href mailto: % rsCustomers CustomerEmail %  % rsCustomers CustomerName %  %rsCustomers.MoveNextwendrsCustomers.closeset rsCustomers nothingdbConnection.closeset dbConnection nothing%  input type submit value 发信 name B1 style font-family:宋体;font-size:9pt sendmail.asp 给所选择客户发电子邮件 精彩春风之发送邮件 p align center 邮件正在发送中!请稍候... % Set dbConnection Server.CreateObject ADODB.Connection dbConnection.open Driver Microsoft Access Driver *.mdb ;_DBQ C:\inetpub\wwwroot\test\Email.mdb 建立与Access数据库的连接Set rsCustomers Server.CreateObject ADODB.RecordSet rsCustomers.Open Select CustomerName,CustomerEmail From EmailList 获取所选择客户的电子信箱where CustomerId in _ Request CustomerId ,dbConnection,1,3,1while not rsCustomers.eof Set myMail CreateObject CDONTS.NewMail myMail.From chunfeng@myMail.value Reply-To chunfeng@myMail.To rsCustomers CustomerEmail myMail.Subject 来自随风起舞的问候! myMail.BodyFormat 1myMail.MailFormat 1? myMail.Body 精彩春风恭祝rsCustomers CustomerName 幸福平安,工作顺利！myMail.Send 给客户发邮件Set myMail Nothing % ahref 恭喜,已成功给: % rsCustomers CustomerEmail % % rsCustomers CustomerName % 发送电子邮件！ %rsCustomers.MoveNextwendrsCustomers.closeset rsCustomers nothingdbConnection.closeset dbConnection nothing%  恭喜,已成功给所有选择的客户发送邮件完毕！