<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('網絡超時或您還沒有登陸！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您沒有此項目管理權限！</b></font></div>"
response.End
end if
if qx16<>1 then
response.Write "<div align=center><font size=80 color=red><b>您沒有此項目管理權限！</b></font></div>"
response.End
end if
%>
<%
Server.ScriptTimeout=999999
fwq=Request.form("fwq")
passname=request.form("passname")
password=request.form("password")
title=Request.form("title")
txt=request.form("txt")
name=request.form("name")
radiobutton=request.form("radiobutton")
fa=request.form("fa")
faemail=request.form("faemail")
hjf=request.form("hjf")
session("fwq")=fwq
session("passname")=passname
session("password")=password
session("title")=title
session("txt")=txt
session("name")=name
session("radiobutton")=radiobutton
session("fa")=fa
session("faemail")=faemail
session("hjf")=hjf
If fwq = "" then
Response.Write "沒有填寫郵件服務器,將無法發送"
Response.End 
End If
If title="" Then
Response.Write ("<script>alert('郵件標題沒有填寫，將無法發送信息');javascript:history.back(1)</script>")
response.end
end if
if txt="" then
Response.Write ("<script>alert('郵件內容沒有填寫，將無法發送信息');javascript:history.back(1)</script>")
response.end
end if
if name<>"" then
set jmail=server.createobject("jmail.message")
jmail.charset="gb2312"
jmail.silent=true
jmail.addrecipient name
jmail.subject=title
if radiobutton="text" then
jmail.appendtext txt
elseif radiobutton="html" then
jmail.appendtext "這是一封html格式的郵件"
jmail.appendhtml txt
end if
if fa<>"" then
jmail.fromname = fa
end if
if faemail<>"" then
jmail.from=faemail
end if
jmail.priority = hjf
if passname<>"" then
jmail.MailServerUserName =passname
end if
if password<>"" then
jmail.MailServerPassWord =password
end if
err=jmail.send(fwq)
jmail.close
set jmail=nothing 
if err then
Response.Write ("<script>alert('郵件內容已經發送到指定的郵箱地址了，請確定返回！');javascript:history.back(1)</script>")
else
response.write ("<script>alert('由于系統錯誤，郵件未能正常發送，請確定返回檢查各項數據是否錯誤！');javascript:history.back(1)</script>")
end if
response.end
end if
'----------------------------------------------------------
if name="" then
set jmail = server.createobject("jmail.message")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * from shop_user order by userid DESC",conn,1,1
do while not rs.eof
jmail.charset="gb2312"
jmail.Silent=true
jmail.addrecipient rs("useremail")
jmail.subject = title
if radiobutton="text" then
jmail.appendtext txt
elseif radiobutton="html" then
jmail.appendtext "這是一封html格式的郵件"
jmail.appendhtml txt
end if
if fa<>"" then
jmail.fromname = fa
end if
if faemail="" then
jmail.from=faemail
end if
jmail.priority = hjf
if passname<>"" then
jmail.MailServerUserName =passname
end if
if password<>"" then
jmail.MailServerPassWord =password
end if
err=jmail.send(fwq)
jmail.clear
rs.movenext
loop 
jmail.close
set jmail=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
if err then
Response.Write ("<script>alert('郵件內容已經發送到指定的郵箱地址了，請確定返回！');javascript:history.back(1)</script>")
else
response.write ("<script>alert('由于系統錯誤，郵件未能正常發送，請確定返回檢查各項數據是否錯誤！');javascript:history.back(1)</script>")
end if
response.end
end if
%>