Ce projet nécessite désormais la livraison de messagerie chronométrée en utilisant ASP, et de nombreuses personnes disent que l'ASP n'a pas une telle fonction.
En fait, je l'ai expliqué en détail dans un article précédent, mais c'est une tâche chronométrée, et l'idée de base est la même.
Référence: Méthodes pour implémenter les tâches de synchronisation dans ASP
Ici, nous utilisons le composant JMail pour le faire. Le contenu de l'e-mail est une seule page Web et peut être personnalisé librement.
Jetons un coup d'œil au code pour l'envoi de courrier chronométré:
La copie de code est la suivante:
Fonction gethttppage (URL)
DIM OBJXML
Définir objxml = createObject ("msxml2.serverxmlhttp.3.0") 'Appelez le composant XMLHTTP pour tester si l'espace prend en charge XMLHTTP
objxml.open "Get", URL, False 'False signifie obtenir du code Web de manière synchrone, vous comprenez ce qu'est la synchronisation? Qu'est-ce que l'asynchrone?
objxml.send () 'Envoyer
gethttppage = bbyTestoBstr (objxml.Responsebody) 'renvoie les informations et utilisez la fonction pour définir le codage.
définir objxml = rien'close
Fonction finale
Fonction bbytestobstr (corps)
objstream sombre
set objstream = createObject ("adodb.stream") '// appelant le composant adodb.stream
objstream.type = 1
objstream.mode = 3
objstream.open
OBJSTREAM.WRITE CORPS
objstream.position = 0
objstream.type = 2
objstream.charset = "gb2312"
«Convertissez le codage UTF-8 par défaut d'origine en codage GB2312, sinon vous obtiendrez du code brouillé en appelant directement une page Web avec des caractères chinois avec XMLHTTP.
BBYTESTOBSTR = objstream.readText
objstream.close
définir objstream = rien
fonction finale
Sub SendAction (Sujet, MailAddress, Tomail, expéditeur, Contenu, FromEmail, Fromer, Nom d'utilisateur, mot de passe)
Définir ojmail = createObject ("jmail.mesage")
ojmail.logging = false
ojmail.silent = true
ojmail.priority = 3
ojmail.fromname = Fromer
ojmail.from = fromEmail
ojmail.charset = "gb2312"
ojmail.mailServerUsername = nom d'utilisateur
ojmail.mailServerpassword = mot de passe
Ojmail.ContentTransferencoding = "Base64"
ojmail.htmlbody = Contenu du contenu du contenu
Ojmail.body = Content '"Nos e-mails sont au format HTML, mais votre logiciel de visualisation par e-mail peut ne pas les prendre en charge"
Ojmail.Addrecicipient Tomail 'Adresse du destinataire
Ojmail.Subject = Sujet 'Titre
Ojmail.send (MailAddress)
Sub-Sub
Sujet DIM, MailAddress, Toemail, expéditeur, FromEmail, Fromer, Mot de passe, Ojmail, noms d'utilisateur, Tomail