<%
if request("action") = "send" then
frommail = Trim(Request.Form("frommail"))
tomail = Trim(Request.Form("tomail"))
if Trim(Request.Form("mailsubject"))<>"" then
mailsubject = Trim(Request.Form("mailsubject"))
else
mailsubject = Trim(Request.Form("mailsubject1"))
end if
mailbody = Trim(Request.Form("mailbody"))
if tomail<>"" then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject
objCDOMail.Body = mailbody
objCDOMail.Send
Set objCDOMail = Nothing
else
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
sql="select mail from mail"
set rs=conn.execute(sql)
Response.Write("正在邮件群发.................." )
do while not rs.eof
objCDOMail.To = rs(0)
RS.MoveNext
Loop
rs.close
objCDOMail.Subject = mailsubject
objCDOMail.Body = mailbody
objCDOMail.Send
Set objCDOMail = Nothing
end if
Response.Write ""
Response.End
end if
%>
