Kod:
form method = \ \ "post \ \" action = \ \ "formmail.php \ \">
<input type=\\"hidden\\" name=\\"recipient\\" value=\\"[BURAYA POSTA ADRES YAZ]\\">
<input type=\\"hidden\\" name=\\"subject\\" value=\\"[KONU YAZ]\\">
<Input type = \ \ "gizli \ \" name = \ \ "" value = \ \ "[GEREKL? L? \ \ Req? KONTROL ED LECEK ALANLARI V? RGÜLLE AYIRIP YAZ] \ \ ">
[Formun Geri Kalan? N? istedi? içinde haz?rs?nd?r yap? kara? r]
</ Form>
-------------------------------------------------- ------------------------
[Ay?e k? Sm? formmail.php d? kaydedin] siz
<html>
<head>
<title> formmail </ title>
</ Head>
<body bgcolor=\\"black\\">
<?
//----------------------------------
/ / Iste?e ba?l? parametreleri
//----------------------------------
\ \ Gibi / / Mesaj ba?l???nda "\ \" veya \ \ "hata \ \" onaylamak
$ Headersize = \ \ "4 \ \";
$ Headercolor = \ \ "Lime \ \";
/ / Mesaj gövdesi
$ Textsize = \ \ "3 \ \";
$ Metin rengi = \ \ "0000ff \ \";
$ Linkcolor = \ \ "FFCC99 \ \";
/************************************************* * *** /
YOU * ALINMI?TIR ?eyleri de?i?tirmek gerekmez / * /
/************************************************* * * /
If (! ($ HTTP_POST_VARS)) bo?
(
/ / Herhangi bir form gönderme i?lemini ba?latmak e?er
fonksiyonu prompt_user ($ messageheader, $ promptmessage)
(
$ Küresel l, $ GoBack, $ fm_error, $ plsfill, $ invalidaddress, $ fm_ gönderdi $, $ gönderilmemi?, $ yazar onaylamak;
$ Global, $ headercolor, $, $ metin rengi, $ lin kcolor textsize headersize;
("/ Inc \ \ katmak header.php \ \");
"\ \ Echo
<center>
<B> <Font size = \ \ \ \ \ \ \ \ \ \ "$ headersize \ \ \ \ \ \ \ \ \ \" color = \ \ \ \ \ \ \ \ \ \ "$ headercolor \ \ \ \ \ \ \ \ \ \ ">
----------------------------< Br>
::::
----------------------------< Br>
</ Font>
<Font size = \ \ \ \ \ \ \ \ \ \ "$ textsize \ \ \ \ \ \ \ \ \ \" color = \ \ \ \ \ \ \ \ \ \ "$ metin rengi \ \ \ \ \ \ \ \ \ \ ">
Mesaj? N? Z Gönderildi !..</ font>
a href = \ \ "javascript: history.go <(-2) � gt;
<Font size = � � color = � linkcolor � gt; OLSUN Ana </ font> </ a>
<B> </ Center> \ \ ";
exit;
)
/ / Fonksiyon bo? alanlar? kontrol etmek için
fonksiyonu check_fields ($ fieldname, $ fieldtype)
(
$ Küresel fm_error, $ plsfill;
(($ Fieldname)) empty
(
prompt_user (\ \ "$ fm_error \ \", \ \ "$ plsfill * $ fieldtype \ \");
)
)
/ / Fonksiyon email geçerlili?inin kontrol edilmesi için
fonksiyonu check_email ($ mailtocheck)
(
$ Küresel fm_error, $ plsfill, $ invalidaddress;
$ Mail_test ($ mailtocheck) trim =;
If (! Eregi (\ \ "^ [_ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ,0-9a-z-]+@([ 0-9a-z] [0-9a -z-] + \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \.) + [az] (2,3) $ \ \ ", $ mail_test))
(
prompt_user (\ \ "$ fm_error \ \", \ \ "$ invalidaddress: $ mail_test \ \");
)
)
/ / E?er gerekiyorsa alanlar? kontrol
($ Req) e?er
(
$ Requiredfields = ("\ \ patlayabilir, \ \", $ req);
$) <Count ($ requiredfields); $ temp + + hal hal ($ = 0;
(
$ Requiredfields temp =] $ [($ requiredfields temp] $ [) Dö?eme;
($ Requiredfields temp "e-posta \ \ == \ \] $ [") if
(
check_email (\ \ "$ ($ requiredfields temp]) \ \ $ [");
)
ba?ka
(
check_fields (\ \ "$ ($ requiredfields temp]) \ \" $ [, \ \ "$ requiredfields")] \ \ $ temp [;
)
)
)
/ Script için * varsay?lan de?erler gizli form alanlar? * gerçekle?ecek /
$ Def [] = \ \ "tabi \ \";
$ Def [] = \ \ "\ \" req;
$ Def [] = \ \ "\ \" Al?c?;
/ / IP ve tarih olsun
$ Ip = getenv (\ \ "REMOTE_ADDR \ \");
$ Tarih = tarih (\ \ "d-m-Y H: i:") \ \ s;
/ / Mesaj gövdesi
$ Mesaj = $ defaultmessage. "\ \ \ \ \ \ \ \ N \ \ \ \ \ \ \ \ n \ \" \ \;
Gönderen $ message .= \ \ ": \ \". $ E-posta. "\ \ \ \ \ \ \ \ N \ \ \" \;
$ Message .= \ \ "Date: \ \". $ Date. "\ \ \ \ \ \ \ \ N \ \ \" \;
$ Message .= \ \ "IP: \ \". $ Ip. "\ \ \ \ \ \ \ \ N \ \ \" \;
$ Message .= \ \ "------------------------------------ \ \ \ \ \ \ \ \ n \ \ ";
foreach ($ HTTP_POST_VARS gibi $ formfield => $ de?er)
(
$ = 0 bulundu;
= 0; $ i <count ($ def); $ i + + ($ i için)
(
) $ I] [($ formfield == $ def e?er
(
$ = 1 bulundu;
)
)
If (! $ Bulundu == 1)
(
$ Message .= $ formfield. \ \ ": \ \". $ De?er. "\ \ \ \ \ \ \ \ N \ \ \" \;
)
)
$ Message .= \ \ "------------------------------------ \ \ \ \ \ \ \ \ n \ \ \ \ \ \ \ \ n \ \ \ \ \ \ \ \ n \ \ ";
$ Message .= \ \ "\ \";
Dolar ba?l?klar = \ \ ": $ email \ \ \ \ \ \ \ \ n \ \";
/ Konu çek /
If (! $ Konu)
(
$ Subject = $ defaultsubject;
)
/ / Mail formu
(@ Mail ($ al?c?, $ konu, $ mesaj, $ ba?l?klar)) e?er
(
prompt_user (\ \ "$ fm_confirm \ \", \ \ "$") \ \ gönderdi;
\ \ Echo "<center> </ center> \ \";
)
ba?ka
(
prompt_user (\ \ "$ fm_error \ \", \ \ "$ gönderilmemi? \ \");
\ \ Echo "<center> </ center> \ \";
)
)
ba?ka
(
\ "<center> <font Face=System color=lime> \ echo
Mesaj gonderilmedi! .. Fatal ERROR: 000FFFFx000DEEE </ font> </ center> \ \ ";
)
?>
</ Body>
</ Html>
Upload
Kod:
<?
== \ \ ($ Userfile "none \ \") if
(
\ "Hata \ echo: Dasya Transfer Adilemedi \ \";
exit;
)
== 0) userfile_size ($ e?er
(
\ "Hata \ echo: Transfer Edilen Dosyan? N Boyutu 0 \ \";
exit;
)
$ Upfile = \ \ "Hedef maddesine ba?lant? veren sayfalar \ \". $ Userfile_name;
If (! Kopya ($ userfile, $ upfile))
(
\ "Hata \ echo: Hedef Klasör Bulunamad? \ \";
exit;
)
"\ \ Echo maddesine ba?lant? veren sayfalar ??lemi Yap? <h2> Ld? </ H2 \ \">;
$ Current_dir = \ \ "Hedef maddesine ba?lant? veren sayfalar \ \";
$ Dir = dir ($ current_dir);
\ "\ Echo <B> Transfer edilen dosyalar?da </ B> \ \". $ Dir-> yol. \ \ "\ \ ;
"\ \ Echo <B> Liste </ B>: <hr> \ \";
= $ Dir-> dosya okuma ($ iken ())
(
\ "<a Href=\\\\\\\\\\"#\\".$file.\\"\\\\\\\\\\"> \ \ echo \ ". $ dosya." </ a> \ \ \ \ ";
)
\ "<hr> \ \ \ Echo;
$ Dir-> close ();
?>
Yorumlar
