Forum
Aktif konular
Üyeler
Kurallar
Arama
Form Mail Kodu Lazım! Form Mail Kodu Lazım!
-
Arkadaşlar bana cgi ile yazılmış basit bir formmail kodu lazım temin ederseniz sevinirim!.
Teşekkürler. -
arkadaşlar lütfen asp,php,cgi vb. ile ilgili konuları lütfen Internet Web bölümüne yazın.
senin sorunu da gelmişken yanıtlayayım.
al veriyom. biraz cgi biliyorsan anlarsın.
#!/usr/bin/perl
$kime = 'kizilyildiz@hotmail.com'; # kendi email adresinizi yazınız
$bazfont = "Verdana"; # temel yazı tipi
$mailprog = '/usr/sbin/sendmail -t'; # sendmail programı adresi
$sfark = 0; # server saatine süre ekle yada çıkar. çıkarmak için negatif sayı girin
$zemin = ""; # zemin resmi istemiyorsanız
# Alt Satırlarda Değişiklik yapmayınız !!!
$htmsayfa = $ENV{'HTTP_REFERER'};
$gonbrw = $ENV{'HTTP_USER_AGENT'};
$ip = $ENV{'REMOTE_ADDR'};
$ver = "2.13";
$altyazi = "</table>";
$altyazi .= "</center></body></html>";
$ciz = "\n";
&formoku;
&starihi;
$EMAIL = $FORM{'email'};
$gizle = $FORM{'gizle'};
print "Content-type:text/html\n\n";
print "<html><head><title>Form Mail</title><basefont face=\"$bazfont\"></head>";
print "<body";
if ($zemin) {print " background=\"$zemin\"";}
print <<"SON";
><center><table border="1" cellpadding="2"
cellspacing="0" bordercolor="#000000">
SON
open (MAIL, "|$mailprog") or &hata("$mailprog isimli programa ulaşılamadı!\n");
print MAIL "To: $kime\n";
print MAIL "Reply-to: $EMAIL ($FORM{'name'})\n";
print MAIL "From: KIZILYILDIZ\n"; #gönderen
print MAIL "Subject: Konu yazılacak.\n\n"; #konu
delete $FORM{'ekontrol'};
delete $FORM{'gizle'};
delete $FORM{'kime'};
delete $FORM{'buton'};
print MAIL "$ciz\n";
close(MAIL);
print <<"HTMLx";
<tr>
<td align="center">Formumuzu doldurduğunuz için teşekkür ederiz.<br>
Formdaki bilgiler, gerekli kişiye postalanmıştır.</td>
</tr>
HTMLx
if ($gizle ne "e"){&bilgiler}
print "$altyazi";
exit;
#--------------------- BİLGİLER ----------------
sub bilgiler{
print "<tr><td><center><u><b>Gönderilen bilgiler:</b></u></center><table>";
foreach $i (sort keys %FORM) {
print "<tr><td><b>$i:</b></td><td>$FORM{$i}</td></tr>";
}
print "</table></td></tr>";
}
#-------------------- SİSTEM TARİHİ ------------------
sub starihi {
($san,$dak,$saat,$gun,$ay,$yil,$hgunu,$yday,$isdst) = localtime(time+$sfark*3600);
@aylar = ("1","2","3","4","5","6","7","8","9","10","11","12");
@gunler = ("Paz","Pts","Sal","Çrş","Prş","Cum","Cts");
if ($san < 10) {$san = "0$san";}
if ($dak < 10) {$dak = "0$dak";}
if ($saat < 10) {$saat = "0$saat";}
if ($gun < 10) {$gun = "0$gun";}
$yil+=1900;
$date = "@gunler[$hgunu] $gun/@aylar[$ay]/$yil";
$time = "$saat:$dak:$san $ap";
}
#--------------------- FORM OKU ----------------
sub formoku{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@ciftler = split(/&/, $buffer);
foreach $cift (@ciftler){
($frmADI, $frmDEGER) = split(/=/, $cift);
$frmDEGER =~ tr/+/ /;
$frmDEGER =~ tr/</</;
$frmDEGER =~ tr/>/>/;
$frmDEGER =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$frmADI} = $frmDEGER;
}
}
#--------------------- BİTTİ ------------------
sub hata {
($hatatxt) = @_;
print <<"SON";
<tr><td align="center"><font color="#000000"><h2>H A T A !</h2>
</font>$hatatxt<br><a href="javascript:history.back()">Geri Dön</a>
</td></tr>$altyazi
SON
exit;
}
bunlar.
umarım biliyorsundur. cgi-bin/ klasörüne yükleyince CHMOD 755 olacak. -
nasi kullancaz biz bunu abücüm
-
Php ilede yapabilirsin asagidaki kodlari
mailpost.php diye kaydet...
----------
//code baslangici
<html>
<head>
<title>Form Mail</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
</head>
<?
if ($gonder)
{
@mail($kime,$baslik,$icerik);
echo "Mesaj basariyla iletilmistir";
}
else
{
?>
<html>
<head>
<script>
function kontrol()
{
txterror='';
if (mail.baslik.value=='')
{ txterror=txterror+' - Baslik alani doldurulmamis\n' }
if (mail.icerik.value=='')
{ txterror=txterror+' - Içerik alani doldurulmamis\n' }
if (mail.kime.value=='')
{ txterror=txterror+' - Kime alani doldurulmamis\n' }
else {
p=mail.kime.value.indexOf('@');
if (p<1 || p==(mail.kime.value.length-1))
{ txterror=txterror+' - E-mail adresi dogru degil.\n' }
}
if (txterror) alert('Asagidaki hatalari lütfen düzeltin:\n\n'+txterror);
return (txterror == '');
}
</script>
</head>
<body>
<form method="post" action="mailpost.php" name="mail">
Kime : <input type="text" name="kime"><br>
Baslik: <input type="text" name="baslik"><br>
Içerik: <textarea name="icerik"></textarea><br><br>
<input type="submit" value="Gönder" name="gonder"
onClick="java script:return kontrol();">
</form>
</body>
</html>
<?
}
?>
<body>
</body>
</html>
//code bitti -
valla bunu anlamanız için cgi dan az da olsa anlamanız şart gibi.
malesef cgi, asp yada php gibi html içine gömülü çalışmıyo. -
www.webmasterim.com
-
KIZILYILDIZ , Kabus cok teşekkür ederim.Çok işime yarayacak bunlar...
-
rica ederiz.
-
reca ederiz hep beraber .
-
yaw benim internet servis sağlayıcım ammada dangalakmış bana cgi ve asp desteği veremio o yüsden bu formların html kodlu olanı yokmu???
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 3454 Toplam Mesaj: 10
Cevapla