试过没有?行不行大盖是300个EMAIL

解决方案 »

  1.   

    <!--#include file="conn.asp"-->
    <%
    '2001/10/27
    dim sql
    dim rs
    dim email
    dim tilte
    dim content
    dim  supporthtml
      if title = "" then
      response.write"&Auml;&atilde;&micro;&Auml;±ê&Igrave;&acirc;&sup2;&raquo;&Auml;&Uuml;&Icirc;&ordf;&iquest;&Otilde;"
      else 
      title = request("title")
      end if
        if content = "" then
        response.write"&Auml;&atilde;&micro;&Auml;&Auml;&Uacute;&Egrave;&Yacute;&sup2;&raquo;&iquest;&Eacute;&Ograve;&Ocirc;&Icirc;&ordf;&iquest;&Otilde;"
        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"&Iuml;&Ouml;&Ocirc;&Uacute;&Ecirc;&yacute;&frac34;&Yacute;&iquest;&acirc;&Agrave;&iuml;&Atilde;&raquo;&Oacute;&ETH;&frac14;&Ccedil;&Acirc;&frac14;&pound;&not;&Ccedil;&euml;&Igrave;í&frac14;&Oacute;"
    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的
      

  2.   

    我写好了一个,但服务器那边今天发的MAIL是后天才收到..:(
      

  3.   

    但我只要结果啊。:(
    有什么好的方法把我的MAIL早点送出/
      

  4.   

    我记得好像以前是有个可以通过别的SMTP送MAIL的。
      

  5.   

    去看看你的PHP包中所带的宝贝吧!