Forum PHP.pl > [PHP] Problem z formularzem kontaktowym.

Pomoc - Szukaj - Użytkownicy - Kalendarz

Pełna wersja: [PHP] Problem z formularzem kontaktowym.

xaresx

29.11.2011, 15:34:03

Witam,
Otóż mój problem pewnie wyda Wam się banalny, ale ja jestem w języku PHP zupełnie zielony więc dla mnie to nie lada wyzwanie. Znajomy wykupił sobie gotowy templat porfolio i jest w nim formularz kontaktowy w PHP, a ja nie potrafię znaleźć miejsca w skrypcie gdzie ma być podany adres e-mail na który będą wysyłane informacje. W tym templacie są dwa pliki dotyczące formularza 'contact.php' i 'contact.asp'. Prosiłbym Was o pomoc we wskazaniu miejsca na owy adres na który mają dochodzić maile.

Contact.php:

[PHP] pobierz, plaintext 
<?php
 
$mail_body = '';
 
//-----------------Getting data sent by flash---------------------
foreach ($_POST as $key => $value){
 
		if ($key != 'mail_to' && $key != 'smtp_server' && $key != 'smtp_port' && $key != 'mail_from' && $key != 'mail_subject' && $key != 'plain_text'){
 
			$mail_body .= '<b>'.str_replace('_',' ',$key).'</b>:<br/>';
 
			$mail_body .= ''.stripslashes($value).'<br/>';
		}
}
//-----------------------------------------------------------------
 
 
 
$message = '<html><body>'.$mail_body.'</body></html>'; //  mail body
 
//------------if plain text is set to true removing html tags------
if ($_POST['plain_text']=='true') {
 
	$message = str_replace('<br/>',"\r\n", $message);
 
	$message = strip_tags($message);
 
//------------------------------------------------------------------
} else {
//----otherwise composing message headers---------------------------
	$headers  = 'MIME-Version: 1.0' . "\r\n";
 
	$headers .= 'Content-type: text/html; charset=iso-8859-1' . "\r\n";
//------------------------------------------------------------------
}
 
//------------setting conf data-------------------------------------
$to = $_POST['mail_to'];
 
$from = $_POST['mail_from'];
 
$subject = $_POST['mail_subject'];
 
$smtp_server = $_POST['smtp_server'];
 
$smtp_port = $_POST['smtp_port'];
//------------------------------------------------------------------
 
//---------setting header info--------------------------------------
$headers .= 'From: ' .$from. "\r\n";
//------------------------------------------------------------------
 
 
if (mail($to, $subject, $message, $headers)){ // sending mail
 
	print('<serverResponse><mail>1</mail></serverResponse>');
 
} else {
 
	 print('<serverResponse><mail>0</mail></serverResponse>');
 
}
 
?>
[PHP] pobierz, plaintext

Contakt.asp

[PHP] pobierz, plaintext 
<%
'----function that removes html tags-----------
   Function RemoveHTML( strText )
		Dim RegEx
		Set RegEx = New RegExp
		RegEx.Pattern = "<[^>]*>"
		RegEx.Global = True
		RemoveHTML = RegEx.Replace(strText, "")
	End Function
'---------------------------------------------
 
'------defining script vars-------------------
   Dim mailObj, mailCfg, myBody, fld 
 
	Dim RegEx 
    set RegEx = New RegExp
'--------------------------------------------
 
'------getting data sent by flash (filtering configuration data)------------
   For Each fld in Request.Form
      If Request.Form(fld) <> "" and _
      fld <> "mail_to" and _
	  fld <> "smtp_server" and _
	  fld <> "smtp_port" and _
	  fld <> "plain_text" and _
	  fld <> "mail_from" and _
      fld <> "mail_subject" Then
         myBody = myBody & vbCRLF & "   <b>" & fld & "</b> :<br/> " & Trim(Request.Form(fld)) & "<br/>"
      End If
   Next
'---------------------------------------------------------------------------
 
'----------setting conf data------------------------------------------------
	On Error Resume Next
		Set myMail = CreateObject("CDO.Message") 
		myMail.Subject = Request.Form("mail_subject")
		myMail.From =Request.Form("mail_from")
		myMail.To = Request.Form("mail_to")
 
'--------if plain text is set to true removing html---------------------------------------		
		if Request.Form("plain_text") = "true" then 
 
			myMail.TextBody = RemoveHTML(myBody)
 
'-------otherwise composing message body--------------------------------------------------			
			else myMail.HTMLBody = "<html><body>" & myBody & "</body></html>"
 
		end if
'----------setting configuration params for smtp----------------------------------------------------------------------------------
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Request.Form("smtp_server")
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Request.Form("smtp_port")
		myMail.Configuration.Fields.Update 
'---------------------------------------------------------------------------------------------------------------------------------		
		myMail.Send '---------------sending message
 
   If Err = 0 Then
   Response.Write("&mail=1") 'if there the message is sent return 1 to flash
   Else
   Response.Write("&mail=0") 'otherwise return 0
   End If
 
%>
[PHP] pobierz, plaintext

Próbowałem umieścić adres w 'mail_body' ale nie poskutkowało.
Chciałbym jeszcze dodać, że jest to mój pierwszy post tutaj, dlatego proszę o wyrozumiałość, aczkolwiek jeśli kogoś uraziłem brakiem znajomości to przepraszam.

Z góry dziękuje za odpowiedź

Pozdrawiam

nospor

29.11.2011, 15:39:25

$to = $_POST['mail_to'];
Ta linijka pobiera z formularza wartość pola do kogo slać i zapisuje to w zmiennej $to
Jak chcesz wysłać do xyz@ola.pl to zamien te linijke na:
$to = 'xyz@ola.pl';

xaresx

29.11.2011, 15:53:05

dziękuje bardzo, wszystko działa jak powinno! Temat można zamknąć.

To jest wersja lo-fi głównej zawartości. Aby zobaczyć pełną wersję z większą zawartością, obrazkami i formatowaniem proszę kliknij tutaj.