shibai.asp

网上商城的设计与实现

<!--本邮件列表系统由雷の龙独立制作，版权所有。http://gamewu.126.com-->
<!--#include file="conn.asp"-->
<%
set jmail = server.createobject("jmail.message")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From email where fs=0 Order By date"
rs.open sql,conn,3,2
do while not rs.eof
jmail.charset="gb2312"
jmail.Silent=true
jmail.addrecipient rs("email")
jmail.subject = session("title")
if radiobutton="text" then
jmail.appendtext session("txt")
elseif radiobutton="html" then
jmail.appendtext "这是一封html格式的邮件"
jmail.appendhtml session("txt")
end if
if session("fa")<>"" then
jmail.fromname = session("fa")
end if
if session("faemail")="" then
jmail.from=session("fwq")
else
jmail.from=session("faemail")
end if
jmail.priority = session("hjf")
if session("fujian")<>"" then
jmail.addattachment(session("fujian"))
end if
if passname<>"" then
jmail.MailServerUserName =passname
end if
if password<>"" then
jmail.MailServerPassWord =password
end if
err=jmail.send(session("fwq"))
if err then
rs("fs")=1
rs.update
else
rs("fs")=0
rs.update
end if
jmail.clear
rs.movenext
loop 
jmail.close
set jmail=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "result.asp"
response.end
%>