PersianTools Forums

Go Back   PersianTools Forums > برنامه نویسی و طراحی وب، سیستمهای مدیریت سایت > توسعه وب > asp , ASP.NET

Reply
 
امکانات بيشتر
Old 10-10-2004, 08:35 PM   #1
ahmad6
Registered User
 

Join Date: Sep 2004
Posts: 124
سورس براي ارسال به ايميل و ديتا بيس

سلام
دوستان من يه سورس ميخوام به اين صورت كه فرم submit شد هم در ديتا بيس ذخيره شود هم به ايميل برود
لطفا به من كمك كنيد.
من سورس جدا اينها رو دارم اما با هم را متاسفانه ندارم
ممنون
ahmad6 is offline   Reply With Quote
Old 10-11-2004, 12:46 AM   #2
artin
Registered User
 

Join Date: May 2004
Posts: 2,439
Send a message via ICQ to artin
البته من فقط اینو تو نوت پد نوشتم و اگه اشتباهه تایپی داشت شرمنده چون نرسیدم تست کنم

این برنامه ای که فرم توش هست
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..
artin is offline   Reply With Quote
Old 10-11-2004, 07:34 AM   #3
ahmad6
Registered User
 

Join Date: Sep 2004
Posts: 124
ممنون

سلام اقا آرتين
دستت درد نكنه اما من به اين صورت ميخوام كه همان اطلاعاتي كه به ديتا بيس ارسال ميشه عينا همان اطلاعات هم زمان نيز به يك ايميل خواص ارسال شود.
باز هم تشكر ميكنم
ahmad6 is offline   Reply With Quote
Old 11-03-2004, 10:36 AM   #4
hosin39
Registered User
 

Join Date: Nov 2004
Posts: 127
سلام به همگی

اگه میشه لطف کنید و اون قسمت ارسال به ایمیل رو به صورت جدا برای من بذارید.
من می خوام یه فرم ارسال نظرات و مشخصات توی سایت بذارم که اطلاعات رو به ایمیل بفرسته.

ممنون
hosin39 is offline   Reply With Quote
Old 11-03-2004, 11:03 AM   #5
artin
Registered User
 

Join Date: May 2004
Posts: 2,439
Send a message via ICQ to artin
سلام
اقا حسین
اگر در قسمت دوم که همون برنامه ای اس پی هست نگاه کنی من همه جا رو توضیح دادم
هر جا که مربوط به دیتا بیس هست عوض بردار
و فیلدهای که موقع فرستادن میل نوشتم رو با فیلهای که در قسمت اچ تی ام ال نوشتم رو به هر حالتی که دوسا داری ادیت کن
همین
من فکر نمی کنم برنامه از این سادتر و گویاتر پیدا بشه
اگر سئوالی داشتی بپرس در کمتر از یک ساعت جوابش و می گیری
24 Hours in Days / 7 Days In Week / 365 Days In Year
یا اگه کارت واجب بود با این شماره تماس بگیر
1-800-asp-artin

good luck
artin is offline   Reply With Quote
Old 11-03-2004, 07:32 PM   #6
nima178
Registered User
 
nima178's Avatar
 

Join Date: Sep 2004
Location: همان جایی که اینجا نیست
Posts: 1,523
Send a message via AIM to nima178 Send a message via Yahoo to nima178
بابا آرتين من تو رو مي خوام
يه سوال دارم پي ام كنم جواب ميدي؟
اين سوال يه ماه پيش به احسان پي ام كردم هنوز جواب نداده!
__________________
اللهم عجل لوليک الفرج و العافيه و النصر
و جعلنا من خير انصاره و اعوانه
و المستشهدين بين يدي
nima178 is offline   Reply With Quote
Old 11-03-2004, 08:46 PM   #7
artin
Registered User
 

Join Date: May 2004
Posts: 2,439
Send a message via ICQ to artin
nima178
چه سئوالی ؟ راجبه چی ؟
اگه بتونم چرا نگم
artin is offline   Reply With Quote
Old 11-04-2004, 11:08 AM   #8
hosin39
Registered User
 

Join Date: Nov 2004
Posts: 127
سلام

خیلی ممنون از لطفتون

باید بگم که من از برنامه نویسی تحت وب هیچی بلد نیستم.

بعدش اینکه من یه نیگای متفکرانه به این برنامه انداختم . فکر می کنم که منظور منو اشتباه متوجه شدید. قرار نیست که من به کسی میل بزنم. (اون مال مراحل بعده ) من می خوام یه فرم بذارم گوشه سایت که بازدید کننده توش مشخصات و نظرش رو بنویسه بعد که که سابمیت می کنه اون نوشته ها ارسال بشه به ایمیل من.

حالا میشه کاملتر برام توضیح بدین ؟ (اینجا شکلک خجالت نداره ؟ - من دارم از خجالت آب می شم)
hosin39 is offline   Reply With Quote
Old 11-04-2004, 11:24 AM   #9
artin
Registered User
 

Join Date: May 2004
Posts: 2,439
Send a message via ICQ to artin
hosin39
خوب اقا حسین من منظورت رو گرفته بودم
اونجا اگه تو قسمت دوم نگاه کنی که برنامه ای اس پی هست هر قسمت رو جدا کردم و کاملا توضیح دادم و ای اس پی خدایش اسون ترین زبونه شما فقط می بایستی جاهای که مربوط به وصل شدن و ورود اطلاعا به دیتا بیس بود حذف می کردی
و اونجای که نوشته ایمیل به کی بره ایمیل خودتو می زدی
الان وقت ندارم یه یکی دو ساعت دیگه اگه نتونستی برات کلان می نویسم
artin is offline   Reply With Quote
Old 11-04-2004, 12:02 PM   #10
artin
Registered User
 

Join Date: May 2004
Posts: 2,439
Send a message via ICQ to artin
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
artin is offline   Reply With Quote
Old 11-04-2004, 12:14 PM   #11
hosin39
Registered User
 

Join Date: Nov 2004
Posts: 127
مرسی.مرسی.مرسی

ایشالا باز مزاحم میشم ... فعلا برم اینا رو تست کنم.
hosin39 is offline   Reply With Quote
Old 11-04-2004, 12:40 PM   #12
artin
Registered User
 

Join Date: May 2004
Posts: 2,439
Send a message via ICQ to artin
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
artin is offline   Reply With Quote
Old 11-05-2004, 11:53 AM   #13
hosin39
Registered User
 

Join Date: Nov 2004
Posts: 127
سلام

من اين دو تا پيج رو درست كردم. ولي صفحه نمایش نتیجه باز نمیشه و HTTP 500 میده . ممکنه به خاطره سرور ایمیل پاپ تری باشه ؟

می تونم ایمیل پاپ تری از یه سایت دیگه بدم یا حتما باید از هاست خودم باشه ؟ آخه سرورش اشکال پیدا کرده
hosin39 is offline   Reply With Quote
Old 11-05-2004, 12:12 PM   #14
artin
Registered User
 

Join Date: May 2004
Posts: 2,439
Send a message via ICQ to artin
سلام
اینو رو سیستمت اجرا کردی یا سرورت ؟
هم ادرس سرور پاپ تری و هم ایمیلش رو درست زدی ؟
artin is offline   Reply With Quote
Old 11-07-2004, 03:50 PM   #15
hosin39
Registered User
 

Join Date: Nov 2004
Posts: 127
من هر دو تا صفحه رو آپلود کردم سرور میل و آدرسش هم درسته مشکل سرور پاپ تری هم حل شده ... ولی هنوز کار نمیکنه.
hosin39 is offline   Reply With Quote
Reply

امکانات بيشتر

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT +4.5. The time now is 04:32 PM.

PersianTools RSS Feeds


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2010, Jelsoft Enterprises Ltd.