< % Const SMTPServerIP = " mail.idg-rbi.com.cn " Dim strFrom, strTo,strSuject, strBody strFrom = " webmaster@idg-rbi.com.cn " strTo = " kong123@citiz.net " strSubject = " test " strBody = " test " Dim sch, cdo, cdoConfig sch = " http://schemas.microsoft.com/cdo/configuration/ " Set cdoConfig = Server.CreateObject( " CDO.Configuration " ) cdoConfig.Fields.Item(sch & " sendusing " ) = 2 cdoConfig.Fields.Item(sch & " smtpserver " ) = SMTPServerIP cdoConfig.Fields.Item(sch & " smtpauthenticate " ) = 1 cdoConfig.Fields.Item(sch & " sendusername " ) = strFrom cdoConfig.Fields.Item(sch & " sendpassword " ) = " 8888 " cdoConfig.Fields.Update Set cdo = Server.CreateObject( " CDO.Message " ) Set cdo.Configuration = cdoConfig cdo.From = strFrom cdo.To = strTo cdo.subject = strSubject cdo.TextBody = strBody ' session.Timeout=600 cdo.Send Set cdoConfig = Nothing Set cdo = Nothing % >