用个组件。(我用的是www.chinaasp.com提供的免费组件)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") rem change this RemoteHost to a valid SMTP address before testing
mailer.RemoteHost = application("mailserver")
mailer.FromName = application("recievername")
mailer.FromAddress = application("recieveraddress")