أجهزة الكمبيوتر

إرسال صديق - إرسال الرسالة

شهر نوفمبر 2021

لقد قمت بإعداد زر لتشجيع الزوار على إرسال عنوان URL لصديق ، وقمت بجمع المعلومات منهم. الآن حان الوقت لإرسال الرسالة.

الخطوة الأخيرة هي في جوهرها نص بريدي. إذا لم تكن قد قمت بتنفيذ البرامج النصية لإرسال بريد ASP من قبل ، فاقرأ "إرسال البريد" مع مقال ASP.

مرة أخرى ، تجاهل ********** s :)

****************************

<%
ToEmail = Request.Form("receiver")
RecEmail = Request.Form("sender")
Comment = Request.Form("comment")

URL = Request.Form("url")

Subject = RecEmail & " would like you to look at this!"

Body = "A friend of yours, " & RecEmail & ", thought you'd enjoy reading an interesting article " & vbCrLf & _
"at //www.XXXXXXXXX.com" & vbCrLf & vbCrLf & _
"Article URL: " & URL & vbCrLf & vbCrLf & _
"Your friend's comments: " & vbCrLf & _
Comment & vbCrLf & vbCrLf & _
"Visit this article and many other interesting articles at:" & vbCrLf & _
"//www.XXXXXXXXXX.com"
Impt = 2
FromEmail = RecEmail

Dim objMail
set objMail = CreateObject("CDONTS.NewMail")
objMail.Send FromEmail,ToEmail,Subject,Body,Impt
set objMail = Nothing

Response.Redirect("emailthanks.asp?url=" & URL)
%>

*****************************

حسنًا ، يأخذ البرنامج النصي عنوان URL والمعلومات الأخرى التي جمعتها ، ويرسل رسالة بريدية. تأكد من تغيير XXXXXXXXX إلى اسم موقع الويب الخاص بك بالطبع! عندما يتم ذلك ، يتم تشغيله إلى emailthanks.asp. يمكنك جعل هذه الصفحة مجرد صفحة عامة "شكرًا لك على إرسال بريد إلكتروني إلى شخص ما" ، ولأن عنوان URL يتم تمريره ، يمكنك الحصول على رابط يقول "الرجوع إلى عنوان URL الذي أتيت منه للتو" بسهولة بالغة.

مقدمة لآسيا والمحيط الهادئ

قم بتنزيل هذا الكتاب الإلكتروني للحصول على كل ما تحتاج لمعرفته حول تعلم ASP - من تعليمي خطوة بخطوة إلى قوائم الوظائف ، ونموذج التعليمات البرمجية ، والأخطاء الشائعة والحلول ، وأكثر من ذلك بكثير! 101 صفحة.

كيفية ارسال طلب صداقة لشخص مانع الاضافة حتى لو قافل اضافه صديق???? (شهر نوفمبر 2021)



المادة العلامات: إرسال صديق - إرسال الرسالة ، ASP ، إرسال صديق ، إرسال بريد إلكتروني إلى صديق ، إرسال إلى صديق