احتياج به يك فرم تماس در Asp... كمك!!ضروريه

شروع موضوع توسط help_me ‏16 ژوئن 2004 در انجمن asp , ASP.NET

  1. help_me

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

    تاریخ عضویت:
    ‏24 ژانویه 2004
    نوشته ها:
    18
    تشکر شده:
    0
    سلام.دوستان عزيز لطفا اگر ميتونيد به من كمك كنيد چون من واقعا اين برنامه واسم مهمه!!!دستتون درد نكنه...

    × يك برنامه براي "فرم تماس" كه با اي اس پي باشه و براحتي جواب بده يعني محدوديتي نداشته باشه كه مثلا روي ايميل هاي رايگان مثلا از ياهو هم جواب بده و ايميل ها رو به اونجا هم بتونه بفرسته...خيلي خيلي ممنون
    لطفا اگر كسي اين فرم رو دار در اختيار من هم قرار بده چون خيلي خيلي واسم مهمه!!! مرسي...
     
  2. خرید بک لینکبازدیدیار - افزایش بازدید سایت و سیگنال های برند
  3. tishtar

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

    تاریخ عضویت:
    ‏16 ژانویه 2003
    نوشته ها:
    41
    تشکر شده:
    0
    محل سکونت:
    Iran
    من يه فرم با jmail نوشته بودم .
    اين كد رو اجرا كنين - ببينين سرور از jmail پشتيباني ميكنه يا نه ؟
    کد:
    <% @ Language="VBScript" %>
    <% Option Explicit %>
    <%
    Dim theComponents(18)
    
    theComponents(0) = Array("ABMailer.Mailman", "ABMailer v2.2+")
    theComponents(1) = Array("Persits.MailSender", "ASPEMail")
    theComponents(2) = Array("SMTPsvg.Mailer", "ASPMail")
    theComponents(3) = Array("SMTPsvg.Mailer", "ASPQMail")
    theComponents(4) = Array("CDONTS.NewMail", "CDONTS (IIS 3/4/5)")
    theComponents(5) = Array("CDONTS.NewMail", "Chili!Mail (Chili!Soft ASP)")
    theComponents(6) = Array("CDO.Message", "CDOSYS (IIS 5/5.1/6)")
    theComponents(7) = Array("dkQmail.Qmail", "dkQMail")
    theComponents(8) = Array("Dundas.Mailer", "Dundas Mail (QuickSend)")
    theComponents(9) = Array("Dundas.Mailer", "Dundas Mail (SendMail)")
    theComponents(10) = Array("Geocel.Mailer", "GeoCel")
    theComponents(11) = Array("iismail.iismail.1", "IISMail")
    theComponents(12) = Array("Jmail.smtpmail", "JMail")
    theComponents(13) = Array("MDUserCom.MDUser", "MDaemon")
    theComponents(14) = Array("ASPMail.ASPMailCtrl.1", "OCXMail")
    theComponents(15) = Array("ocxQmail.ocxQmailCtrl.1", "OCXQMail")
    theComponents(16) = Array("SoftArtisans.SMTPMail", "SA-Smtp Mail")
    theComponents(17) = Array("SmtpMail.SmtpMail.1", "SMTP")
    theComponents(18) = Array("VSEmail.SMTPSendMail", "VSEmail")
    
    Function IsObjInstalled(strClassString)
    	On Error Resume Next
    	
    	'// Initialize default values
    	IsObjInstalled = False
    	Err = 0
    
    	'// Testing code
    	Dim xTestObj
    	Set xTestObj = Server.CreateObject(strClassString)
    	
    	If 0 = Err Then IsObjInstalled = True
    	
    	'// Cleanup
    	Set xTestObj = Nothing
    	Err = 0
    	
    	On Error Goto 0
    End Function
    
    Response.Write	"<html>" & vbNewLine & _
    				vbNewLine & _
    				"<head>" & vbNewLine & _
    				"  <title>E-mail Component Test</title>" & vbNewLine & _
    				"</head>" & vbNewLine & _
    				vbNewLine & _
    				"<body bgColor=doublequotewhitedoublequote text=doublequotemidnightbluedoublequote link=doublequotedarkbluedoublequote aLink=doublequotereddoublequote vLink=doublequotereddoublequote>" & vbNewLine & _
    				"<font face=doublequoteVerdana, Arial, Helveticadoublequote>" & vbNewLine & _
    				"<table border=doublequote0doublequote cellspacing=doublequote0doublequote cellpadding=doublequote0doublequote align=doublequotecenterdoublequote>" & vbNewLine & _
    				"  <tr valign=doublequotetopdoublequote>" & vbNewLine & _
    				"	<td bgcolor=doublequoteblackdoublequote>" & vbNewLine & _
    				"	  <table border=doublequote0doublequote cellspacing=doublequote1doublequote cellpadding=doublequote4doublequote>" & vbNewLine & _
    				"		<tr valign=doublequotetopdoublequote>" & vbNewLine & _
    				"		  <td bgcolor=doublequotemidnightbluedoublequote colspan=doublequote2doublequote align=doublequotecenterdoublequote><font size=doublequote2doublequote color=doublequotemintcreamdoublequote><b>E-mail Component Test</b></font></td>" & vbNewLine & _
    				"		</tr>" & vbNewLine
    
    Dim i
    
    For i = 0 To UBound(theComponents)
    	Response.Write	"		<tr>" & vbNewLine & _
    					"		  <td bgColor=doublequote#9FAFDFdoublequote align=doublequoterightdoublequote><font size=doublequote2doublequote><strong>" & theComponents(i)(1) & ":&nbsp;</strong></font></td>" & vbNewLine & _
    					"		  <td bgColor=doublequote#9FAFDFdoublequote align=doublequotecenterdoublequote><font size=doublequote2doublequote>"
    	
    	If Not IsObjInstalled(theComponents(i)(0)) Then
    		Response.Write("not installed")
    	Else
    		Response.Write("<strong>installed!</strong>")
    	End If
    	
    	Response.Write	"</font></td>" & vbNewLine & _
    					"		</tr>" & vbNewline
    Next
    
    
    Response.Write	"	  </table>" & vbNewLine & _
    				"	</td>" & vbNewLine & _
    				"  </tr>" & vbNewLine & _
    				"</table>" & vbNewLine & _
    				"</font>" & vbNewLine & _
    				"</body>" & vbNewLine & _
    				vbNewLine & _
    				"</html>" & vbNewLine
    %>
    
    
    
    
    
    
    اگر قبول كرد بنويسين كه اسكريپت رو اينجا بذارم . اگر هم نه
    بايد دنبال يه اسكريپت كه رو هر سروري اجرا بشه ( مثل cdonts يا cdosys ) بگرديم
     
  4. help_me

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

    تاریخ عضویت:
    ‏24 ژانویه 2004
    نوشته ها:
    18
    تشکر شده:
    0
    دوست عزيز
    متاسفانه نه!!!
    سايت من ج ميل رو ساپورت نميكنه!!! به هر حال ممنونم
    از دوستان ديگر هم خواهش ميكنم اگر ميتونن به من كمك كنند... چون اين واقعا براي من مهمه...
    دستتون درد نكنه
     
  5. KgbCia

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

    تاریخ عضویت:
    ‏28 آگوست 2004
    نوشته ها:
    201
    تشکر شده:
    0
    سلام
    ببخشيد اگر سرور ماويندوز 2000 سرور و IIS داشته باشيم اين كد روش اجرا ميشه ؟
     
  6. artin

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

    تاریخ عضویت:
    ‏19 می 2004
    نوشته ها:
    2,112
    تشکر شده:
    2
    KgbCia
    اره اون واسه ای ای اسه با اون برنامه ای کهدوستمون داده می تونی ببینی کدوم کامپانت روی سرورت نصب شده بعد که که فهمیدی بایدبری ساختار مربوط به اون کاپانت و پیدا کنی که اگه تو گوگل بزنی تو همون سرچ اول همه چی دستت می اد
     
عسل طبیعی و گرده گل ایرانیخدمات پی پال، وسترن یونیون