<%@language=vbscript codepage=936 %>
<!--#include file="Admin.asp"-->
<!--#include file="Conndb.asp"-->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="862" align="center" valign="top">
	<br>
      <br>
      <b>發 送 郵 件</b><br>
      <br>
      <br>
	  <% 
'發送
set rs=server.createobject("adodb.recordset") 
sql="select * from email "
rs.open sql,conn,1,3  

'讀取默認的郵件標題及內容 
set rs1=server.createobject("adodb.recordset")
sql1="select * from maildefault "
rs1.open sql1,conn,1,3  

'設置發信人
frommail=request("frommail")
if frommail="" then
frommail=rs1("frommail")
end if

'設置郵件主題
mailsubject=request("mailsubject")
if mailsubject="" then
mailsubject=rs1("mailsubject")
end if

'設置郵件內容
mailbody=request("mailbody")
if mailbody="" then
mailbody=rs1("mailbody")
end if

'判斷對誰發信
tomail=request("tomail")
'寫發信信息
response.write "發信人地址: "&frommail
response.write "<br><br><br>"
if tomail<>"" then
response.write "收信人地址："&tomail
else
response.write "正在進行郵件群發！"
end if

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

'對于在用戶數據庫中的全體用戶發信
for i=1 to rs.recordcount
tomail=rs("email")
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject  
objCDOMail.Body = mailbody   
objCDOMail.Send
Set objCDOMail = Nothing
rs.movenext
next
end if
response.write "<br><br><br>"
response.write "郵件發送成功！^&^"
'response.write "<br><br><br>"
'response.write rs1("mailsubject")
%> <a href="Sendmail.asp">返回</a>
    </td>
  </tr>
</table>