Dieses Projekt erfordert jetzt eine zeitgesteuerte E -Mail -Zustellung mit ASP, und viele Leute sagen, dass ASP keine solche Funktion hat.
Eigentlich habe ich es in einem früheren Artikel ausführlich erklärt, aber das ist eine zeitgesteuerte Aufgabe, und die Grundidee ist gleich.
Referenz: Methoden zur Implementierung von Zeitaufgaben in ASP
Hier verwenden wir die Jmail -Komponente, um dies zu tun. Der Inhalt der E -Mail ist eine einzelne Webseite und kann frei angepasst werden.
Schauen wir uns den Code zum Senden von zeitgesteuerten E -Mails an:
Die Codekopie lautet wie folgt:
Funktion Gethttppage (URL)
Dimer objxml
Setzen Sie objxml = createObject ("msxml2.serverxmlhttp.3.0") 'rufen Sie die XMLHTTP -Komponente auf, um zu testen, ob der Speicherplatz XMLHTTP unterstützt
objxml.open "Get", URL, Falsch 'Falsches Mittel, um Webcode auf synchrone Weise zu erhalten, verstehen Sie, was Synchronisation ist? Was ist asynchron?
objxml.send () 'send
Gethttppage = BByTestObstr (objxml.ResponseBody) 'gibt Informationen zurück und verwenden die Funktion, um die Codierung zu definieren.
Setzen Sie objxml = nichts
Endfunktion
Funktion BByTestObstr (Körper)
Dimer Objstream
Setzen Sie objstream = createObject ("adodb.stream") '// Aufrufen der adodb.stream -Komponente
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Body
objstream.position = 0
objstream.type = 2
objstream.charset = "gb2312"
'Konvertieren Sie die ursprüngliche Standard-UTF-8-Codierung in GB2312-Codierung. Andernfalls erhalten Sie einen verstümmelten Code, indem Sie direkt eine Webseite mit chinesischen Zeichen mit XMLHTTP anrufen.
bbyTestObstr = objstream.readText
objstream.close
objstream einstellen = nichts
Endfunktion
Sub -SendAction (Betreff, Mailaddress, Tomail, Absender, Inhalt, Fromail, Fromer, Benutzername, Passwort)
Setzen Sie ojmail = createObject ("jmail.message")
ojmail.logging = false
ojmail.Silent = true
ojmail.priority = 3
ojmail.fromname = fromer
ojmail.from = from email
ojmail.charset = "gb2312"
Ojmail.MailServerusername = Benutzername
ojmail.mailserverpassword = Passwort
ojmail.contentTransferencoding = "Base64"
ojmail.htmlbody = content 'Mail -Inhalt
ojmail.body = content '"Unsere E -Mails befinden sich im HTML -Format, aber Ihre E -Mail -Anzeige -Software unterstützt sie möglicherweise nicht."
Ojmail.Addrecipient Tomail 'Empfängeradresse
ojmail.subject = Subjekt 'Titel'
ojmail.send (mailaddress)
Ende sub
DIM -Betreff, Mailaddress, Toemail, Absender, Fromemail, Fromer, Passwort, Ojmail, Benutzernamen, Tomail