购物全站ASP程序电子商务系统

<% set jmail=Server.CreateObject ("JMail.SMTPMail") 'This is my local SMTP server JMail.ServerAddress ="210.74.232.213:25" 'This is my infromation JMail.Sender =Request.Form("yemail") 'JMail.logging = true JMail.Subject =Request.Form ("subject") JMail.AddRecipient Request.Form ("femail") JMail.Body = Request.Form ("content") JMail.Priority =1 'JMail.AddHeader "Originating-IP","210.74.232.213" JMail.Execute 'On Error Resume Next 'Response.write jmail.log 'set cdo=server.CreateObject ("CDONTS.NewMail") 'cdo.From=Request.Form("yemail") 'cdo.to=Request.Form ("femail") 'cdo.subject=Request.Form ("subject") 'cdo.Body=Request.Form ("content") 'cdo.MailFormat=0 'cdo.BodyFormat=0 'cdo.Importance=0 'cdo.send 'set cdo=Nothing ' Response.Write "发送成功" ' this is a AspMail ' Set Mail = Server.CreateObject("Persits.MailSender") ' Mail.Host = "localhost" ' Mail.Port = 25 ' Mail.From = "sales@mycompany.com" ' Mail.FromName = "Sales Department" ' Mail.AddAddress "xuxingming2000@sina.com" ' Mail.Subject = "Sales Receipt" ' Mail.Body = "Dear John:" & chr(13) & chr(10) & "Thank you for your 'business. Here is your receipt." 'On Error Resume Next ' Mail.Send ' If Err <> 0 Then ' Response.Write "An error occurred: " & Err.Description ' End If %>