درخواست طراحی فرم(فوری)

شروع موضوع توسط farzinm ‏22 سپتامبر 2005 در انجمن asp , ASP.NET

  1. farzinm

    farzinm کاربر تازه وارد

    تاریخ عضویت:
    ‏4 سپتامبر 2005
    نوشته ها:
    16
    تشکر شده:
    0
    با سلام خدمت همه دوستان.
    آقا من دوتا فرم میخوام که یکی برای نظر خواهی و یکی هم برای سفارش محصول
    که دومی باید شامل موارد زیر باشه:
    نام و نام خانوادگی
    تلفن
    آدرس کامل
    کد پستی
    ایمیل
    نام محصول( که باید 5 تا تکست باکس داشته باشه)
    شماره فیش بانکی

    و می خوام که اطلاعات فرم ها به ایمیل یا یه بانک اطلاعاتی فرستاده بشه. البته من زیاد در مورد دریافت اطلاعات از طریق بانک اطلاعاتی چیزی نمی دونم.
    لطفا هزینه طراحی و مدت دوتاشو جداگونه برام بنویسید
    با تشکر
    :)
     
  2. mohsenshahbazi

    mohsenshahbazi همکار بازنشسته کاربر فعال

    تاریخ عضویت:
    ‏21 ژوئن 2004
    نوشته ها:
    4,018
    تشکر شده:
    3,857
    محل سکونت:
    اصفهان
    ای بابا این که کاری نداره این همه فرو کنتاکت تو این سایتهای اسکریپت ریخته یکیشو وردار فقط یه کم باید تغییر بدی توشون ...

    همین ..
    اگه نتونستی بگو تا برات یکی بزارم اینجا

    محسن
     
  3. farzinm

    farzinm کاربر تازه وارد

    تاریخ عضویت:
    ‏4 سپتامبر 2005
    نوشته ها:
    16
    تشکر شده:
    0
    سلام. آقا محسن اگه لطف کنی یکی از این سایتها رو بنوییسی ممنون میشم.
     
  4. amironline

    amironline Registered User

    تاریخ عضویت:
    ‏25 نوامبر 2003
    نوشته ها:
    674
    تشکر شده:
    0
    محل سکونت:
    Tabriz
    آقا قيمت چيه اين كه كاري نداره صبر كن من واست يه كاريش ميكنم
     
  5. amironline

    amironline Registered User

    تاریخ عضویت:
    ‏25 نوامبر 2003
    نوشته ها:
    674
    تشکر شده:
    0
    محل سکونت:
    Tabriz
    اولا بايد يه صفحه داشته باشي كه ميتونه asp يا html باشه
    من html كار كردم براتون​
    تو قسمت action مشخص ميكني كه اين صفحه رو ميخواي به كجا بفرستي

    send.asp اينم صفحه ايه كه اطلاعات form.htm رو به email ميفرسته


    form.htm

    کد:
    <html>
    
    <head>
    <meta http-equiv="Content-Language" content="fa">
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
    <title></title>
    </head>
    
    <body>
    
    <form method="POST" action="send.asp">
    	
    	<p>&nbsp;</p>
    	<div align="center">
    &nbsp;<table border="1" width="41%" id="table1" dir="rtl">
    			<tr>
    				<td width="166"><font face="Tahoma" size="2">نام و‌نام خانوادگي</font></td>
    				<td align="left">
    				<p dir="ltr">
    				<input type="text" name="name" size="30" dir="rtl" style="font-family: Tahoma; font-size: 10pt"></td>
    			</tr>
    			<tr>
    				<td width="166"><font face="Tahoma" size="2">تلفن</font></td>
    				<td align="left">
    				<input type="text" name="tel" size="30" dir="ltr" style="font-family: Tahoma; font-size: 10pt"></td>
    			</tr>
    			<tr>
    				<td width="166"><font face="Tahoma" size="2">آدرس كامل</font></td>
    				<td align="left">
    				<textarea rows="3" name="add" cols="20" dir="rtl" style="font-family: Tahoma; font-size: 10pt"></textarea></td>
    			</tr>
    			<tr>
    				<td width="166"><font face="Tahoma" size="2">كد‌پستي</font></td>
    				<td align="left"><input type="text" name="code" size="30"></td>
    			</tr>
    			<tr>
    				<td width="166"><font face="Tahoma" size="2">ايميل</font></td>
    				<td align="left"><input type="text" name="mail" size="30"></td>
    			</tr>
    			<tr>
    				<td width="166"><font face="Tahoma" size="2">نام محصول</font></td>
    				<td align="left">
    				<select size="1" name="product" dir="rtl" style="font-family: Tahoma; font-size: 10pt">
    				<option>محصول1</option>
    				<option>محصول2</option>
    				<option>محصول3</option>
    				<option>محصول4</option>
    				<option>محصول5</option>
    				</select></td>
    			</tr>
    			<tr>
    				<td width="166"><font face="Tahoma" size="2">شماره فيش بانكي</font></td>
    				<td align="left">
    				<input type="text" name="acc" size="30" dir="rtl" style="font-family: Tahoma; font-size: 10pt"></td>
    			</tr>
    			<tr>
    				<td width="166">&nbsp;</td>
    				<td align="left">&nbsp;</td>
    			</tr>
    			<tr>
    				<td width="166" align="center">
    				<input type="submit" value="بفرست" name="B1" style="font-family: Tahoma; font-size: 10pt"></td>
    				<td align="center">
    				<input type="reset" value="پاك كن" name="B2" dir="rtl" style="font-family: Tahoma; font-size: 10pt"></td>
    			</tr>
    		</table>
    	</div>
    	<p>&nbsp;</p>
    </form>
    
    </body>
    
    </html>
     
  6. amironline

    amironline Registered User

    تاریخ عضویت:
    ‏25 نوامبر 2003
    نوشته ها:
    674
    تشکر شده:
    0
    محل سکونت:
    Tabriz
    اينم كد send.asp ميتوني آدرس ايميلشو از strMyEmailAddress عوض كني

    اگه مشكلي داشتي بگو


    کد:
    <%
    
    'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser
    Response.Buffer = True
    
    'Dimension variables
    Dim strBody 			'Holds the body of the e-mail
    Dim objCDOMail 			'Holds the mail server object
    Dim strMyEmailAddress 		'Holds your e-mail address
    Dim strCCEmailAddress		'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
    Dim strBCCEmailAddress		'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
    Dim strReturnEmailAddress	'Holds the return e-mail address of the user
    
    
    '----------------- Place your e-mail address in the following sting ----------------------------------
    
    strMyEmailAddress = "[email protected]"
    
    '----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------
    
    strCCEmailAddress = "" 'Use this string only if you want to send the carbon copies of the e-mail
    
    '----------- Place Blind Copy e-mail address's in the following sting, separated  by ; --------------
    
    strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail
    
    '-----------------------------------------------------------------------------------------------------
    
    
    'Read in the users e-mail address
    strReturnEmailAddress = Request.Form("mail")
    
    
    'Initialse strBody string with the body of the e-mail
    strBody = "<h2>www.yoursite.com</h2>"
    strBody = strBody & "<br><b>Name: </b>" & Request.Form("name") 
    strBody = strBody & "<br><b>Tel: </b>" & Request.Form("name") 
    strBody = strBody & "<br><b>add: </b>" & Request.Form("name") 
    strBody = strBody & "<br><b>code: </b>" & Request.Form("name") 
    strBody = strBody & "<br><b>product: </b>" & Request.Form("name") 
    strBody = strBody & "<br><b>acc:</b>" & Request.Form("name") 
    
    
    
    'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
    If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
    	
    	'Set the return e-mail address to your own
    	strReturnEmailAddress = strMyEmailAddress
    End If	
    
    
    'Send the e-mail
    
    'Create the e-mail server object
    Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
    
    'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
    objCDOMail.From = Request.Form("name") & " "  & " <" & strReturnEmailAddress & ">"
    
    'Who the e-mail is sent to
    objCDOMail.To = strMyEmailAddress
    
    'Who the carbon copies are sent to
    objCDOMail.Cc = strCCEmailAddress
    
    'Who the blind copies are sent to
    objCDOMail.Bcc = strBCCEmailAddress
    
    'Set the e-mail body format (0=HTML 1=Text)
    objCDOMail.BodyFormat = 0
    
    'Set the mail format (0=MIME 1=Text)
    objCDOMail.MailFormat = 0
    
    'Set the subject of the e-mail
    objCDOMail.Subject = "Enquiry sent from enquiry form on website"
    
    'Set the main body of the e-mail
    objCDOMail.Body = strBody
    
    'Importance of the e-mail (0=Low, 1=Normal, 2=High)
    objCDOMail.Importance = 1 
    
    'Send the e-mail
    objCDOMail.Send
    	
    'Close the server object
    Set objCDOMail = Nothing
    %>
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    <title>Contact Us</title>
    
    </head>
    <body text="#000000" bgcolor="#FFFFFF" link="#008000" vlink="#008000" alink="#FF0000">
    <div align="center">
      <center>
    <table width="95%" border="0" cellpadding="0" cellspacing="0" dir="rtl" style="border-collapse: collapse" bordercolor="#111111">
      <tr> 
        <td height="2"> 
          <p align="center"><font face="Tahoma" size="4" color="#008000">&nbsp;<span lang="ar-sa">پيغام 
    		شما با موفقيت</span></font></p>
          <p align="center"><font face="Tahoma" size="4" color="#008000">
          <span lang="ar-sa">&nbsp;به </span>[email protected] <span lang="ar-sa">
          ارسال شد</span></font></td>
      </tr>
    </table>
      </center>
    </div>
    <br>
    <br>
    
    </body>
    </html>
     
  7. footbal
zarpopخرید بک لینک