![]() |
|
|
#1 |
|
Registered User
Join Date: Sep 2004
Posts: 124
|
سورس براي ارسال به ايميل و ديتا بيس
سلام
دوستان من يه سورس ميخوام به اين صورت كه فرم submit شد هم در ديتا بيس ذخيره شود هم به ايميل برود لطفا به من كمك كنيد. من سورس جدا اينها رو دارم اما با هم را متاسفانه ندارم ممنون |
|
|
|
|
|
#2 |
|
Registered User
|
البته من فقط اینو تو نوت پد نوشتم و اگه اشتباهه تایپی داشت شرمنده چون نرسیدم تست کنم
این برنامه ای که فرم توش هست Code:
<form action=result.asp method=post> Name : <input type=text name=name> <br> Addrees : <input type=text name=address> <br> E-mail : <input type=text name=email> <br> <input type=submit value=submit> <br> </form> و این برنامه ای که نتیجه رو نشون می ده Code:
<%
'inja tanzimate database ro set mikoni ke man access ro entekhab kardam
accessdb=Server.MapPath("db1.mdb")
cn = "Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & accessdb
set conn = Server.CreateObject("ADODB.Connection")
conn.Open(cn)
'inja etelaat varede database mishe
sql = "INSERT INTO history (name,address,email) VALUES ('" & request.form("name") & "','" request.form("address") & "','" & request.form("email") & "')"
set rs = conn.Execute(sql)
'inja emaili az tarafe admine site be user ersal mishe baraye masalan khoshamadgooi
'faghat yadet nareh inja smptt server khodeto set koni
Body ="Hi Dear : " & request.form("name") & vbCrLf _
& "" & vbCrLf _
& "Thank you for registring with us" & vbCrLf _
& "" & vbCrLf _
& "Thanks" & vbCrLf _
& "Site Admin" & vbCrLf _
& Trim(strMessage)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Welcome To yourdomain.com"
fromname="Site Administration"
emailfrom="support@yourdomain.com"
objMessage.From = fromname & " <" & emailfrom & ">"
objMessage.To = request.form("email")
objMessage.TextBody = Body
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourdomain.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
'tamame va to khattaye pain mitooni baghiye safe ye html ro bezari
%>
<p>Thank you for registring with us</P>
Last edited by artin; 10-11-2004 at 01:37 AM.. |
|
|
|
|
|
#3 |
|
Registered User
Join Date: Sep 2004
Posts: 124
|
ممنون
سلام اقا آرتين
دستت درد نكنه اما من به اين صورت ميخوام كه همان اطلاعاتي كه به ديتا بيس ارسال ميشه عينا همان اطلاعات هم زمان نيز به يك ايميل خواص ارسال شود. باز هم تشكر ميكنم |
|
|
|
|
|
#4 |
|
Registered User
Join Date: Nov 2004
Posts: 127
|
سلام به همگی
اگه میشه لطف کنید و اون قسمت ارسال به ایمیل رو به صورت جدا برای من بذارید. من می خوام یه فرم ارسال نظرات و مشخصات توی سایت بذارم که اطلاعات رو به ایمیل بفرسته. ممنون ![]() |
|
|
|
|
|
#5 |
|
Registered User
|
سلام
اقا حسین اگر در قسمت دوم که همون برنامه ای اس پی هست نگاه کنی من همه جا رو توضیح دادم هر جا که مربوط به دیتا بیس هست عوض بردار و فیلدهای که موقع فرستادن میل نوشتم رو با فیلهای که در قسمت اچ تی ام ال نوشتم رو به هر حالتی که دوسا داری ادیت کن همین من فکر نمی کنم برنامه از این سادتر و گویاتر پیدا بشه اگر سئوالی داشتی بپرس در کمتر از یک ساعت جوابش و می گیری 24 Hours in Days / 7 Days In Week / 365 Days In Year یا اگه کارت واجب بود با این شماره تماس بگیر 1-800-asp-artin good luck |
|
|
|
|
|
#6 |
|
Registered User
|
بابا آرتين من تو رو مي خوام
يه سوال دارم پي ام كنم جواب ميدي؟ اين سوال يه ماه پيش به احسان پي ام كردم هنوز جواب نداده!
__________________
اللهم عجل لوليک الفرج و العافيه و النصر
و جعلنا من خير انصاره و اعوانه و المستشهدين بين يدي |
|
|
|
|
|
#7 |
|
Registered User
|
nima178
چه سئوالی ؟ راجبه چی ؟ اگه بتونم چرا نگم |
|
|
|
|
|
#8 |
|
Registered User
Join Date: Nov 2004
Posts: 127
|
سلام
خیلی ممنون از لطفتون باید بگم که من از برنامه نویسی تحت وب هیچی بلد نیستم. بعدش اینکه من یه نیگای متفکرانه به این برنامه انداختم . فکر می کنم که منظور منو اشتباه متوجه شدید. قرار نیست که من به کسی میل بزنم. (اون مال مراحل بعده ) من می خوام یه فرم بذارم گوشه سایت که بازدید کننده توش مشخصات و نظرش رو بنویسه بعد که که سابمیت می کنه اون نوشته ها ارسال بشه به ایمیل من.حالا میشه کاملتر برام توضیح بدین ؟ (اینجا شکلک خجالت نداره ؟ - من دارم از خجالت آب می شم) |
|
|
|
|
|
#9 |
|
Registered User
|
hosin39
خوب اقا حسین من منظورت رو گرفته بودم اونجا اگه تو قسمت دوم نگاه کنی که برنامه ای اس پی هست هر قسمت رو جدا کردم و کاملا توضیح دادم و ای اس پی خدایش اسون ترین زبونه شما فقط می بایستی جاهای که مربوط به وصل شدن و ورود اطلاعا به دیتا بیس بود حذف می کردی و اونجای که نوشته ایمیل به کی بره ایمیل خودتو می زدی الان وقت ندارم یه یکی دو ساعت دیگه اگه نتونستی برات کلان می نویسم |
|
|
|
|
|
#10 |
|
Registered User
|
Form.html
Code:
<form action=sendmail.asp method=post> Your Full Name : <input type=text name=name> <br> Your E-mail : <input type=text name=email> <br> Your Comments: <textarea name="comments" cols="22" rows="5"></textarea> <br> <input type=submit value=submit> <br> </form> sendmail.asp Code:
<%
Body ="Name : " & request.form("name") & vbCrLf _
& "E-Mail : " & request.form("email") & vbCrLf _
& "Comments : " & request.form("commentsl") & vbCrLf _
& Trim(strMessage)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Online Contact From Website"
fromname="Domain WebContact"
emailfrom="support@yourdomain.com"
objMessage.From = fromname & " <" & emailfrom & ">"
objMessage.To = "support@yourdomain.com"
objMessage.TextBody = Body
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourdomain.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
%>
<p>Thank you for filling contact form</P>
faghat tavajoh kon emailfrom="support@yourdomain.com" ro bayad emailo khodet ro bezanni , va emaili bashe ke dar site sakhte shodeh bashe ! yani pop3 objMessage.To = "support@yourdomain.com" inja ham har email mitooni bezani , etelaat be in email mireh soali dashti dar khedmatim |
|
|
|
|
|
#11 |
|
Registered User
Join Date: Nov 2004
Posts: 127
|
مرسی.مرسی.مرسی
ایشالا باز مزاحم میشم ... فعلا برم اینا رو تست کنم. |
|
|
|
|
|
#12 |
|
Registered User
|
rasti yadam raft in line pain ro ham edit kon
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourdomain.com" va domaine khodet ro vared kon |
|
|
|
|
|
#13 |
|
Registered User
Join Date: Nov 2004
Posts: 127
|
سلام
من اين دو تا پيج رو درست كردم. ولي صفحه نمایش نتیجه باز نمیشه و HTTP 500 میده . ممکنه به خاطره سرور ایمیل پاپ تری باشه ؟ می تونم ایمیل پاپ تری از یه سایت دیگه بدم یا حتما باید از هاست خودم باشه ؟ آخه سرورش اشکال پیدا کرده |
|
|
|
|
|
#14 |
|
Registered User
|
سلام
اینو رو سیستمت اجرا کردی یا سرورت ؟ هم ادرس سرور پاپ تری و هم ایمیلش رو درست زدی ؟ |
|
|
|
|
|
#15 |
|
Registered User
Join Date: Nov 2004
Posts: 127
|
من هر دو تا صفحه رو آپلود کردم سرور میل و آدرسش هم درسته مشکل سرور پاپ تری هم حل شده ... ولی هنوز کار نمیکنه.
|
|
|
|
![]() |
| امکانات بيشتر | |
|
|