ใช้ส่วนประกอบ EasyMailObject เพื่อประมวลผลซอร์สโค้ดอีเมลแลกเปลี่ยนใน ASP-ส่งจดหมาย (P_SENDMAIL.ASP)
< %@ language = vbscript %>
-
-
'ไฟล์นี้ใช้เพื่อส่งอีเมล
'ผู้แต่ง: Awayeah
'อีเมล: [email protected]
-
ถ้าเซสชัน ("straccount") = "" หรือเซสชัน ("strpassword") = "" แล้ว
Response.end
สิ้นสุดถ้า
-
<html>
<head>
<meta name = "generator" content = "Microsoft Visual Studio 6.0">>
</head>
<style>
-
A {การตกแต่งข้อความ: ไม่มี}
-
</style>
<body>
<%set smtp = createObject ("easymail.smtp.5")
smtp.licensekey = "AWA/S19I500R1AX30C0R3100"
smtp.mailserver = "192.9.200.89"
smtp.subject = request.form ("หัวเรื่อง")
smtp.bodytext = request.form ("bodytext")
smtp.from = request.form ("จาก")
smtp.fromaddr = request.form ("fromaddr")
smtp.addrecipient request.form ("จาก"), request.form ("รับ 1"), 1
'เพิ่มไฟล์แนบ
ถ้า request.form ("att") = "" แล้ว
Response.write ""
อื่น
x = smtp.addattachment (request.form ("att"), 0)
ถ้าไม่ใช่ x = 0 แล้ว
Response.write "แทรกข้อผิดพลาดสิ่งที่แนบมา:" + CSTR (x) + "กรุณาติดต่อผู้ดูแลระบบ"
สิ้นสุดถ้า
สิ้นสุดถ้า
x = smtp.send
ถ้า x = 0 แล้ว
'response.write ("<p allign = center> <br> <br>")
'response.write ("<font size =")
response.write "<p allign = 'center'> <br> <br> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'พื้นหลังสี: # 000080 '> อีเมลถูกส่งเรียบร้อยแล้ว! </font> </span> </b> "
'เซสชัน ("ส่ง") = "y"
อื่น
ถ้า x = 7 หรือ x = 5 แล้ว
Response.write "<br> <br> <p allign = 'center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'พื้นหลังสี: # 000080 '> ข้อผิดพลาดที่เกิดขึ้นในการส่งอีเมล (" + CSTR (x) +")
<br> <br> <input type = "ปุ่ม" value = "back">
<%response.end
อื่น
Response.write "<br> <br> <p allign = 'center'> <b> <font face = 'zongyi' size = '5' color = ' #00ffff'> <span style = 'พื้นหลังสี: # 000080 '> เกิดข้อผิดพลาดเมื่อส่งอีเมล: "+ CSTR (x)+" </span> </font> </b> "%>
<br> <br> <input type = "button" value = "return" id = button1 name = button1>
<%response.end
สิ้นสุดถ้า
สิ้นสุดถ้า
ตั้งค่า smtp = ไม่มีอะไร
-
<p allign = "center"> <a href = "JavaScript: window.close ();">
<font face = "宋体" size = "5"> <b> <span style = "พื้นหลังสี: #ffff00"> return </span> </b> </font> </a> </p>
</body>
</html>