if Request.ServerVariables("REQUEST_METHOD") = "POST" then strSubject = Request.Form("txtSubject") strBody = Request.Form("txtBody") strFrom = Request.Form("txtFrom") ' 從數據庫選取收件人記錄 strSQL_SelectEmail = "SELECT Guests.Guest_ID, Guests.Guest_Email " & _ " FROM Guests WHERE ((Guests.Mail_List)=-1);" Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open strDSNPath Set rsMail = oConn.Execute(strSQL_SelectEmail) if rsMail.BOF = True and rsMail.EOF = True then ...數據庫為空提示,略... else rsMail.MoveFirst Do While Not rsMail.EOF ' 創建對象 Set Mailer = Server.CreateObject("SMTPsvg.Mailer") ' 填寫其它郵件標題信息 Mailer.FromName = strFrom Mailer.FromAddress = strEmailFrom Mailer.RemoteHost = strHost Mailer.Subject = strSubject Mailer.BodyText = ...設置郵件內容,略... strTo = rsMail.Fields("Guest_Email").Value If strTo < > "" then Mailer.Recipient = strTo if Mailer.SendMail then ...發送成功提示,略... else ...發送失敗提示,略... end if 'Mailer.SendMail end if 'strTo < > "" rsMail.MoveNext Set Mailer = Nothing Loop end if 'rsMail.BOF = True and rsMail.EOF = True rsMail.Close Set rsMail = Nothing oConn.Close Set oConn = Nothing end if 'REQUEST_METHOD = "POST"
