• λ我爱Aspx >> Asp.Net >> 在servlet中直接写端口发送邮件的例子
  • 在servlet中直接写端口发送邮件的例子

  • :未知  Դ:internet  :2007-5-5 19:50:08  ؼ:
  • /**

    *Class TestEmail

    *@author yancheng(j-share.onchina.net)

    *@version 1.0.0

    *

    * use write socket to send email.

    */

    import javax.servlet.*;

    import javax.servlet.http.*;

    import java.io.*;

    import java.util.*;

    import java.net.*;

    public class TestEmail extends HttpServlet

    {

    private static final String CONTENT_TYPE = "text/html";

    public void init(ServletConfig config) throws ServletException

    {

    super.init(config);

    }

    public void doGet(HttpServletRequest request, HttpServletResponse response)

    throws ServletException, IOException

    {

    response.setContentType(CONTENT_TYPE);

    PrintWriter out = response.getWriter();

    Socket s = new Socket("smtp.163.net",25);

    PrintWriter ou = new PrintWriter(s.getOutputStream(),true);

    BufferedReader in = new BufferedReader(new InputStreamReader(s.getInputStream()));

    out.println("<html>");

    out.println("<head><title>TestEmail</title></head>");

    out.println("<body>");

    String instr = null;

    boolean isOk = false;

    try{

    ou.println("HELO:smtp.163.net");

    out.println(in.readLine());

    ou.println("MAIL FROM:showtop@163.net");

    instr = in.readLine();

    out.println(instr);

    if(instr.startsWith("250")) isOk = true;

    else isOk=false;

    Ҷƪл˵?
  • һƪDelphi中布尔类型辨析
    һƪ一种新颖的技术:Delphi for DOS!!!