搞了一天的东西 有关ASP中发送邮件的问题 CDO组件，JMAIL组件

 CDO组件的：如果你的系统是2003的，那你就可以用CDO组件在ASP代码中发送邮件，如果不是，你就下载个JMAIL组件，有关它的用法，往下查看。。

<%

 Const   cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"  
  Const   cdoSendUsingPort=2  
  Const   cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"  
  Const   cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"  
  Const   cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"  
  Const   cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"  
  Const   cdoBasic=1  
  Const   cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"  
  Const   cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"  
   
  Dim   objConfig   '   As   CDO.Configuration  
  Dim   objMessage   '   As   CDO.Message  
  Dim   Fieldss  '   As   ADODB.Fields  
   
  Set   objConfig   =   Server.CreateObject("CDO.Configuration")  
  Set   Fieldss  =   objConfig.Fields  
   
  With   Fieldss  
  .Item(cdoSendUsingMethod)   =   cdoSendUsingPort  
  .Item(cdoSMTPServer)   =   "smtp.sina.com"   'Your   SMTP   Server  
  .Item(cdoSMTPServerPort)   =   25  
  .Item(cdoSMTPConnectionTimeout)   =   10  
  .Item(cdoSMTPAuthenticate)   =   cdoBasic  
  .Item(cdoSendUserName)   =   "success01234"   'User   name   at   SMTP   Server  
  .Item(cdoSendPassword)   =   "*******"   'Password   at   SMTP   Server  
  .Update  
  End   With  
   
   
  Set   objMessage   =   Server.CreateObject("CDO.Message")  
  Set   objMessage.Configuration   =   objConfig  
   
  With   objMessage  
  .To   =   "[e-mail]"   '改成接收者的邮件地址  
  .From   =   "[e-mail]"   '改成发送人的邮件地址  
  .Subject   =   "第一次"   '标题  
  .TextBody   =   "这是一封HTML格式的邮件，请切换到HTML方式查看该邮件。"  
  .Send  
  End   With  
 
  Set   Fieldss   =   Nothing  
  Set   objMessage   =   Nothing  
  Set   objConfig   =   Nothing

%>

 

有关JMAIL组件的: 下载了JMAIL组件之后，找到它的JMAIL.DLL文件，然后在进入命令提示符后 regsvr32.exe jmail.dll 注册他 在打该命令前，必须让他先进入JMAIL.DLL所在的目录。。

<%
Server.ScriptTimeOut=5000000
dim  jmail 
Set  jmail=Server.CreateObject("JMAIL.Message")  '建立发送邮件的对象
jmail.silent = true

jmail.logging =true  '启用邮件日志 
jmail.Charset = "GB2312  "  '邮件的文字编码为国标 
jmail.ContentType= "text/plain"  '邮件的格式为HTML格式
jmail.AddRecipient "[e-mail]" '邮件收件人的地址 
jmail.From  = "[e-mail]"  '发件人的E-MAIL地址 
jmail.MailServerUserName  = "success01234"  '登录邮件服务器所需的用户名 
jmail.MailServerPassword  = "*********"  '登录邮件服务器所需的密码 
jmail.Subject  =    "Mail  Subject "  '邮件的标题   
jmail.Body  =    "Mail  Body  "  '邮件的内容 
jmail.Priority  =  5  '邮件的紧急程序，1  为最快，5  为最慢，  3  为默认值 
jmail.Send("smtp.sina.com")  '执行邮件发送（通过邮件服务器地址）
jmail.Close()  '关闭对象
%>