<!--#include file="conn.asp"--> <% '2001/10/27 dim sql dim rs dim email dim tilte dim content dim supporthtml if title = "" then response.write"ÄãµÄ±êÌâ²»ÄÜΪ¿Õ" else title = request("title") end if if content = "" then response.write"ÄãµÄÄÚÈݲ»¿ÉÒÔΪ¿Õ" else content = request("content") end if supporthtml = request("supporthtml") if supporthtml = 1 then content = server.htmlencode(request("content")) else content = request("content") end if if request("email")="" then email = rs("email") sql = "select * from email order by eid desc" set rs = server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof and rs.bof then alluser = rs.recordcount do while not rs.eof call jmail(email,title,content) i = i + 1 rs.movenext loop else response.write"ÏÖÔÚÊý¾Ý¿âÀïûÓмǼ£¬ÇëÌí¼Ó" end if else email = request("email") call jmail(email,title,content) end if
rs.close set rs=nothing conn.close set conn=nothing
sub Jmail(email,title,content) Dim JMail,SendMail Set JMail=Server.CreateObject("JMail.SMTPMail") JMail.Logging=True JMail.Charset="gb2312" JMail.ContentType = "text/html" JMail.ServerAddress=SMTPServer JMail.Sender=SystemEmail JMail.Subject=title JMail.Body=content JMail.AddRecipient email JMail.Priority=3 JMail.Execute Set JMail=nothing if err then SendMail=err.description err.clear else SendMail="OK" end if end sub %>写过的用asp的
<%
'2001/10/27
dim sql
dim rs
dim email
dim tilte
dim content
dim supporthtml
if title = "" then
response.write"ÄãµÄ±êÌâ²»ÄÜΪ¿Õ"
else
title = request("title")
end if
if content = "" then
response.write"ÄãµÄÄÚÈݲ»¿ÉÒÔΪ¿Õ"
else
content = request("content")
end if
supporthtml = request("supporthtml")
if supporthtml = 1 then
content = server.htmlencode(request("content"))
else
content = request("content")
end if
if request("email")="" then
email = rs("email")
sql = "select * from email order by eid desc"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof and rs.bof then
alluser = rs.recordcount do while not rs.eof
call jmail(email,title,content)
i = i + 1
rs.movenext
loop
else
response.write"ÏÖÔÚÊý¾Ý¿âÀïûÓмǼ£¬ÇëÌí¼Ó"
end if
else
email = request("email")
call jmail(email,title,content)
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
sub Jmail(email,title,content)
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SystemEmail
JMail.Subject=title
JMail.Body=content
JMail.AddRecipient email
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>写过的用asp的
有什么好的方法把我的MAIL早点送出/