email_sendsave.asp

ASP数据库系统开发案例精选(光盘）中的客户关系管理系统 用户名/密码：admin/admin

<!--#include file=DataBase/conn.asp-->
<!--#include file=config.asp-->
<% 
if request("SendName")="" then '验证发件人是否为空
	response.Write("<script language=javascript>alert('发件人不能为空，请添加');location='javascript:history.go(-1)'</script>")
	response.End()
end if
'从数据库中读取发见人的信息
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Addresser where id="&request("SendName")
rs.open sql,conn,1,1
if not rs.eof then
	Emails=Split(Request("ClientName"),",") '把字符转换成数组
	for i=0 to ubound(emails)
	Set msg = Server.CreateObject("JMail.Message") 
	msg.silent = true 
	msg.Logging = true 
	msg.Charset = "gb2312" 
	msg.MailServerUserName =rs("Email")  '输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址） 
	msg.MailServerPassword = rs("EmailPwd") '输入smtp服务器验证密码 （用户Email帐号对应的密码） 
	msg.From =rs("Email")  '发件人Email 
	msg.FromName = rs("EmailName")'发件人姓名 
	msg.AddRecipient(emails(i)) '收件人Email 
	msg.Subject = request("title") '信件主题 
	msg.Body = request("content") '正文 
	msg.Send (rs("SmtpEmail")) 'smtp服务器地址（企业邮局地址） 
	set msg = nothing 
	next
	response.Write "<br>"
	response.Write "发送成功！！"
else 
	response.Write("<script languaeg=javascript>alert('发件人不存在');location='javascript:history.go(-1)'</script>")
end if
%>