ارسال فرم به ايميل با asp؟

A

arashpino

Member
سلام دوستان.
من يك فرم ميخوام كه در سايت قرار بدم و اطلاعات اين فرم به ايميل من ارسال بشه.
در همين انجمن مطالبي درباره اين موضوع خيلي خوندم ولي همه شاكي بودند چون كدهايي كه بهشون داده شده بود ارور ميداد.
حالا من ميخوام يك فرم داشته باشم كه حاوي يك فايل html و asp باشه ....لطفااگه ميتونيد كمك كنيد و كدها را در اينجا قرار بديد.
در ضمن اگر امكان داره بگيد كه من فايل asp رو با چه نامي بايد ذخيره كنم و آدرس ايميل خودم را در كجاي اين فايل بايد قرار بدم.
از همه شما سپاسگذارم.
 
AliReza26

AliReza26

Active Member
فايل ASP را با بصورت زير ذخيره كن
file.asp

و كد ASP براي فرستادن ميل :
:wink:

کد: 
    sch = "http://schemas.microsoft.com/cdo/configuration/" 
 
    Set cdoConfig = Server.CreateObject("CDO.Configuration") 
 
    With cdoConfig.Fields 
        .Item(sch & "sendusing") = 1 ' 
        .Item(sch & "smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup"
        .update 
    End With 

Set cdoMessage = Server.CreateObject("CDO.Message") 
 
    With cdoMessage 
        Set .Configuration = cdoConfig 
        .From = "[email protected]" 
        .To = "[email protected]" 
        .CC= "[email protected]"
        .Subject = " This is a test" 
        .TextBody ="thank you"

        .Send 
    End With 
 
    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing
 
A

arashpino

Member
سلام دوست عزيز خيلي ممنونم...ولي دوست گرامي من از asp هيچي سردر نميارم.من اين فرم رو به خاطر اين گفتم كامل توضيح بديد كه براي يكي از دوستان مي خواستم چون من خودم با php كار ميكنم و اين دوستمون يك رويي انداخت به ما من هم آدرس دادم ولي وقت نمي كنه وگفت يك فرم براي من رديف كن.حالا اگه لطف كنيد و كامل توضيح بديد ممنون ميشم..
 
AliReza26

AliReza26

Active Member
دوست عزيز اگه بگي توي فرمت چه اطلاعاتي را از كاربر مي خواهي بگيري حتما يك نمونه واست درست مي كنم
 
A

arashpino

Member
دوست گرامي خيلي خيلي ممنونم.واقعا شما خيلي خوب به من جواب مي دهيد و سرگردانم نمي كنيد.دوست عزيز اگر ممكنه:
يك فيلد براي دريافت نام.يك فيلد براي دريافت آدرس وب سايت و ايميل و در آخر يك جعبه متن براي دريافت پيغام.
خيلي خيلي از شما سپاسگذارم.اميدوارم كه بتونم جبران كنم.
 
AliReza26

AliReza26

Active Member
خواهش مي كنم
شما به من لطف داريد
كدش را واست مي نويسم بعد بهت مي دهم
 
AliReza26

AliReza26

Active Member
اين كد براي صفحه HTML با نام form.html ذخيرش كن

کد: 
<html>
<head>
<title>Form 1</title>
</head>
<body>
<form method="POST" action="send.asp">
  
  Please fill out following form</p>
  <p>Yourname : <input type="text" name="name" size="20"></p>
  <p>Your Email : <input type="text" name="email" size="20"></p>
  <p>Your URL : <input type="text" name="url" size="20"></p>
  <p> </p>
  <p>Your messenge :</p>
  <p> <textarea rows="5" name="messenge" cols="20"></textarea></p>
  <p> </p>
  <p> </p>
  <p><input type="submit" value=" Send " ><input type="reset" value="Reset" name="B2"></p>
</form>
</body>
</html>


و اين هم كد صفحه ASP كه با نام send.asp ذخيرش كن


کد: 
<%@LANGUAGE="_VBSCRIPT"%>
<html>
<head>
<title>send mail</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
</head>
<body><%
 Dim stremail , strname , strurl , strmessenge
strname = request.form("name")
strurl  = request.form("url ")
strmail = request.form("email")
strmessenge = request.form("messenge")
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example for send mail" 
objMessage.Sender = "[email protected]" 
objMessage.To = strmail
objMessage.TextBody = "Hi my name is " & strname & ".My email is " & strmail & " and my url is " & strurl & " .my messeng is  " & strmessenge
objMessage.Send
 
%><br>
پيام شما با موفقيت فرستاده شد.
</body>
</html>
 
A

arashpino

Member
آقا دست شما واقعا درد نكنه.من تمام تايپيك هاي اين انجمن را مطالعه كردم ولي فرمي با asp به اين روشني نديدم.خيل متشكر و ممنونم.ايشالا بتونم مهبت هاي شمارا جبران كنم.
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا