โครงการนี้ต้องใช้การส่งอีเมลที่กำหนดเวลาโดยใช้ ASP และหลายคนบอกว่า ASP ไม่มีฟังก์ชั่นดังกล่าว
ที่จริงแล้วฉันได้อธิบายรายละเอียดในบทความก่อนหน้า แต่นั่นเป็นงานที่กำหนดเวลาและความคิดพื้นฐานเหมือนกัน
การอ้างอิง: วิธีการใช้งานเวลาในการใช้งานใน ASP
ที่นี่เราใช้องค์ประกอบ JMail เพื่อทำ เนื้อหาของอีเมลเป็นหน้าเว็บเดียวและสามารถปรับแต่งได้อย่างอิสระ
มาดูรหัสสำหรับการส่งจดหมายที่กำหนดเวลา:
การคัดลอกรหัสมีดังนี้:
ฟังก์ชั่น gethttppage (url)
สลัว objxml
ตั้งค่า objxml = createObject ("msxml2.serverxmlhttp.3.0") 'เรียกส่วนประกอบ xmlhttp เพื่อทดสอบว่าพื้นที่รองรับ xmlhttp
objxml.open "รับ", url, เท็จ 'วิธีการที่ผิดพลาดในการรับรหัสเว็บในแบบซิงโครนัสเข้าใจว่าการซิงโครไนซ์คืออะไร? แบบอะซิงโครนัสคืออะไร?
objxml.send () 'ส่ง
gethttppage = bbytestobstr (objxml.responsebody) 'ส่งคืนข้อมูลและใช้ฟังก์ชั่นเพื่อกำหนดการเข้ารหัส
ตั้งค่า objxml = ไม่มีอะไรเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น bbytestobstr (ร่างกาย)
สลัว objstream
ตั้งค่า objstream = createObject ("adodb.stream") '// เรียกองค์ประกอบ adoDB.stream
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write ร่างกาย
objstream.position = 0
objstream.type = 2
objstream.charset = "GB2312"
'แปลงการเข้ารหัส UTF-8 เริ่มต้นดั้งเดิมเป็นการเข้ารหัส GB2312 มิฉะนั้นคุณจะได้รับรหัสที่อ่านไม่ออกโดยเรียกเว็บเพจโดยตรงด้วยอักขระภาษาจีนด้วย XMLHTTP
bbytestobstr = objstream.readText
objstream.close
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
Sub SendAction (หัวเรื่อง, Mailaddress, Tomail, ผู้ส่ง, เนื้อหา, FromEmail, Fromer, ชื่อผู้ใช้, รหัสผ่าน)
ตั้งค่า ojmail = createObject ("jmail.message")
ojmail.logging = false
ojmail.silent = true
ojmail.priority = 3
ojmail.FromName = fromer
ojmail.from = fromEmail
ojmail.charset = "GB2312"
ojmail.mailserverusername = ชื่อผู้ใช้
ojmail.mailserverpassword = รหัสผ่าน
ojmail.ContentTransferencoding = "base64"
ojmail.htmlbody = เนื้อหา 'เนื้อหาอีเมล
ojmail.body = content '"อีเมลของเราอยู่ในรูปแบบ HTML แต่ซอฟต์แวร์การดูอีเมลของคุณอาจไม่รองรับ"
Ojmail.addrecipient ที่อยู่ผู้รับของ Tomail
ojmail.subject = หัวเรื่อง '
ojmail.send (mailaddress)
สิ้นสุดย่อย
หรี่