1. asp程序示例。 <% ''以下部分为系统配置，请勿更改 Set objMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\InetpubmailrootPickup" objCDOSYSCon.Fields.Update Set objMail.Configuration = objCDOSYSCon ''系统配置结束 ''以下为用户自行更改部分，请由程序员进行修改 objMail.From = "test@www.net.cn" objMail.Subject = "win2003发信组件测试" ''把下面的email改成自己的 objMail.To = "norelay@35yi.com" objMail.TextBody = "win2003测试发信组件正常" objMail.Send Set objMail = Nothing Set objCDOSYSCon = Nothing %> <%="发送成功!!!"%> 2. aspx程序示例。 <% ''以下部分为系统配置，请勿更改 dim objMail as object dim objCDOSYScon as object objMail = Server.CreateObject("CDO.Message") objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:InetpubmailrootPickup" objCDOSYSCon.Fields.Update objMail.Configuration = objCDOSYSCon ''系统配置结束 ''以下为用户自行更改部分，请由程序员进行修改 objMail.From = "test@www.yourdomain.com" objMail.Subject = "win2003发信组件测试" ''把下面的email改成自己的 objMail.To ="test@yourdomain.com" objMail.TextBody = "win2003测试发信组件正常" objMail.Send objMail = Nothing objCDOSYSCon = Nothing %> <%="发送成功, ok!!!"%>''以下部分为系统配置，请勿更改 dim objMail as object dim objCDOSYScon as object objMail = Server.CreateObject("CDO.Message") objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:InetpubmailrootPickup" objCDOSYSCon.Fields.Update objMail.Configuration = objCDOSYSCon ''系统配置结束 ''以下为用户自行更改部分，请由程序员进行修改 objMail.From = "test@www.yourdomain.com" objMail.Subject = "win2003发信组件测试" ''把下面的email改成自己的 objMail.To ="test@yourdomain.com" objMail.TextBody = "win2003测试发信组件正常" objMail.Send objMail = Nothing objCDOSYSCon = Nothing %>版权声明：本示例程序仅仅授权中国凯旋网络 ASP.NET 虚拟主机用户使用。其他任何方式的使用需经中国凯旋网络书面授权。