ASP用简单方法发邮件

阅读更多

    首先,要安装IIS,以及IIS里面得STMP服务组件,然后打开IIS,把STMP启动,下面就开始写代码了,很简单:

 

    这个是主要代码:

  1. SUB   sendmail(fromwho,towho,subject,body)      
  2.       dim   mymail      
  3.       set   mymail=server.createobject("cdonts.newmail")      
  4.       mymail.from   =fromwho      
  5.       mymail.to=towho      
  6.       mymail.subject   =subject      
  7.       mymail.body=body      
  8.       mymail.send      
  9.       set   mymail=nothing      
  10. end   sub      
  11.       fromwho=trim(request.form("fromwho"))      
  12.       towho=trim(request.form("towho"))      
  13.       subject=trim(request.form("subject"))      
  14.         body=trim(request.form("body"))      
  15.   if   towho<>""   then      
  16.   sendmail   fromwho,towho,subject,body      
  17.   end   if   

 

下面看整个.asp叶面代码:

  1. <%   
  2. SUB   sendmail(fromwho,towho,subject,body)      
  3.       dim   mymail      
  4.       set   mymail=server.createobject("cdonts.newmail")      
  5.       mymail.from   =fromwho      
  6.       mymail.to=towho      
  7.       mymail.subject   =subject      
  8.       mymail.body=body      
  9.       mymail.send      
  10.       set   mymail=nothing      
  11. end   sub      
  12.       fromwho=trim(request.form("fromwho"))      
  13.       towho=trim(request.form("towho"))      
  14.       subject=trim(request.form("subject"))      
  15.         body=trim(request.form("body"))      
  16.   if   towho<>""   then      
  17.   sendmail   fromwho,towho,subject,body      
  18.   end   if      
  19.        
  20.   %>      
  21.   >      
  22.   <HTML>      
  23.   <HEAD>      
  24.   <TITLE>   New   Document   TITLE>      
  25.   <META   NAME="Generator"   CONTENT="EditPlus">      
  26.   <META   NAME="Author"   CONTENT="">      
  27.   <META   NAME="Keywords"   CONTENT="">      
  28.   <META   NAME="Description"   CONTENT="">      
  29.   HEAD>      
  30.        
  31.   <BODY   bgcolor="#eeeeee">      
  32.   <FORM   METHOD=POST   ACTION="<%=request.servervariables("script_name")%>">      
  33.   <BR>发送给:<INPUT   TYPE="text"   NAME="towho"   size=40>      
  34.   <BR>从:<INPUT   TYPE="text"   NAME="fromwho"   size=40>      
  35.   <BR>主题:<INPUT   TYPE="text"   NAME="subject"   size=40>      
  36.   <BR><TEXTAREA   NAME="body"   ROWS="5"   COLS="40">TEXTAREA>      
  37.   <BR><INPUT   TYPE="submit"   value="send   mail">      
  38.   FORM>      
  39.        
  40.   BODY>      
  41.   HTML>      

    据说这样就可以了,但我还没尝试过,总之先记下来吧

 

 --------------------------------------------

更完整的,加上操作系统判断的:

 

  1. <%SUB   sendmail()    
  2.      
  3.       dim   mymail   
  4.       dim fromwho   
  5.       dim subject   
  6.       dim body   
  7.       fromwho="[email protected]"  
  8.       subject=""  
  9.       body=""    
  10.       Set mymail = CreateObject("CDO.Message")     
  11.       'set   mymail=Server.CreateObject("CDO.Message")   
  12.       thesoft=Request.ServerVariables("HTTP_USER_AGENT")   
  13.       if instr(thesoft,"Windows NT 5.0") then   
  14.       Set mymail = Server.CreateObject("CDONTS.NewMail")   
  15.       end if   
  16.       if instr(thesoft,"Windows NT") then   
  17.       Set mymail = Server.CreateObject("CDO.Message")   
  18.       end if   
  19. 'response.write ("操作系统:"&vOs)   
  20.   
  21.   
  22.   
  23.       if trim(request.form("fromwho")) <> null then   
  24.          
  25.       fromwho=trim(request.form("fromwho"))    
  26.       end if   
  27.          
  28.            
  29.       towho="[email protected]"     
  30.       subject=trim(request.form("subject"))      
  31.        body=trim(request.form("body"))        
  32.       mymail.from   =fromwho      
  33.       mymail.To = towho      
  34.       mymail.subject   =subject      
  35.       mymail.TextBody=body      
  36.       mymail.send      
  37.       set   mymail=nothing     
  38.           
  39.       end   sub      
  40.      ' fromwho=trim(request.form("fromwho"))      
  41.      ' towho="[email protected]"     
  42.       'subject=trim(request.form("subject"))      
  43.       ' body=trim(request.form("body"))     
  44.            
  45.       'thesoft = Request.ServerVariables("HTTP_USER_AGENT")   
  46.       'if instr(thesoft,"Windows NT 5.0") then   
  47. vOS="Win 2000"  
  48.  'end if   
  49.     '  if instr(thesoft,"Windows NT") then   
  50.     '  vOS="Win 2003"  
  51.       'Set mymail = CreateObject("CDO.Message")   
  52. ' end if   
  53.   
  54. 'response.write ("操作系统:"&vOs)          
  55.            
  56.            
  57.         
  58.     
  59.      
  60.        
  61.   %>      
  62.   >      
  63.   <HTML>      
  64.   <HEAD>      
  65.   <TITLE>欢迎使用邮件发送系统TITLE>      
  66.   <META   NAME="Generator"   CONTENT="EditPlus">      
  67.   <META   NAME="Author"   CONTENT="">      
  68.   <META   NAME="Keywords"   CONTENT="">      
  69.   <META   NAME="Description"   CONTENT="">      
  70.   HEAD>      
  71.        
  72.   <BODY   bgcolor="#eeeeee">      
  73.   <FORM   METHOD=POST   ACTION="<%sendmail()%>">  
  74.   <table align="center"><tr><td><div align="center" style="font-size:30px;  font-weight:600">欢迎使用邮件发送系统div>td>tr><tr><td>    
  75.   <INPUT   TYPE="hidden"   NAME="towho"   size=40>      
  76.   您的email地址:<INPUT   TYPE="text"   NAME="fromwho"   size=45>      
  77.   <BR>主         题:<INPUT   TYPE="text"   NAME="subject"   size=45> td>tr>  
  78.   <tr><td align="center">  <div align="left" >内         容:div>  
  79.   <TEXTAREA   NAME="body"   ROWS="10"   COLS="62">TEXTAREA>td>tr>  
  80.   <tr><td align="center">      
  81.   <BR><INPUT   TYPE="submit"   value="发 送"  onClick="javascript:alert('发送成功!谢谢!')">      
  82.   td>tr>table>  
  83.   FORM>     
  84.       
  85.        
  86.   BODY>      
  87.   HTML>      

 

你可能感兴趣的:(ASP,IIS,Windows,QQ,Yahoo)