Misafir Board - Tekil Mesaj gösterimi

kursun2 · 07-31-2006, 22:44

Ziyaretci defteri......

Kendi ziyaretci defteriniz......

Hepsini Seç
Ziyaretci defteri hazirlanmasi suresince olusturacaklarimiz:

1- database'imize ziyaretci_defteri isimli bir tablo olusturacagiz.
2- Gelen ziyaretciye bir arayuz hazirlayip bilgilerini ve goruslerini yazmasini saglayacagiz. (yaz.php dosyasi olusturulacak)
3- Gonderilen bilgileri database'imize ekleyecegiz. (gonder.php dosyasi olusturulacak)
4- Gonderilmis olan bilgilerin database'imizden okunmasini saglamak icin bir arayuz hazirlayacagiz. (oku.php dosyasi olusturulacak)

1- Oncelikle database'imizde "ziyaretci_defteri" isimli 6 field'li bir tablo olusturalim ve "numara" isimli tabloya otomatik numaralama, unique ve primary key ozelliklerini verelim. Tabloyu olusturmak icin asagidaki kodlari kullanabilirsiniz.

CREATE TABLE ziyaretci_defteri (
numara smallint(6) NOT NULL auto_increment,
isim text NOT NULL,
email text NOT NULL,
ulke text NOT NULL,
gorus longtext NOT NULL,
tarih datetime NOT NULL default '0000-00-00 00:00:00',
PRIMARY KEY (numara),
UNIQUE KEY numara (numara)
) TYPE=MyISAM;

2- Tablomuz olsutu, simdi gelen ziyaretcimizin bu tablomuzu guzel bir arayuzle doldurmasini saglayalim. Tablodanda anlasilacagi gibi,
Isim, email, ulke ve gorusler soruluyor. Bu sistemi html olarakta hazirlayabilirsiniz. Ama "imput name"leri tablomuzda verdigimiz isimlerle uyusmalidir.
Asagida "yaz.php" isimiyle kaydetmeniz gereken kodlar bulunmaktadir.

<html>
<head><title>Ziyaretci Defteri - Gorusunuzu Yazininz (yaz.php)</title><head>
<body>
<form method="post" action="gonder.php">
Isminiz : <input type="text" name="isim"><br>
Email : <input type="text" name="email"><br>
Ulkeniz : <input type="text" name="ulke"><br>
Gorusleriniz : <textarea name="gorus"></textarea><br>
<br><br>
<input type="submit" name="valider" value="Gonder">
</form>
</body>
</html>

(Yukaridaki kodu yapistirdigimiz dosyaya "yaz.php" ismini verelim)
Yukaridaki kodlardada goruldugu gibi "form action" ileride olusturacagimiz "gonder.php" dosyasina verilmistir.
Simdi burada dikkatinizi cekmek istedigim nokta su, gordugunuz gibi olusturulan ger form bolumunun (yani isim, yada email yada gorus vs.) birer isimi var (ornegin "Isminiz" bolumu icin "name="isim"") ve yine dikkatinizi cekmisse eger butun form'daki bolumlerin isimlerinin hazirlamis oldugumuz database tablosunda bir karsiligi var. Yani bu bolumlere yazilan bilgiler isimlerin karsiliklari, ana tablodaki o isimli bolume yaziliyor.
Yukaridaki kodlari yapistirdigimiz dosyayi "yaz.php" olarak adlandiralim.

3- Yukarida olsuturmus oldugumuz form'a girilecek olan bilgilerin direk olarak tablo icine gonderilmesini istiyoruz, yukaridada belirttigim gibi form bolumlerine yazilan bilgilerin, birazdan hazirlayacagimiz "gonder.php" dosyasi ile direk olarak ana tablomuza yazilmasini saglayacagiz. Bu bolum icin asagidaki kodu kullanabilirsiniz.

<html>
<head><title>Ziyaretci Defteri - Gorus Onayi (gonder.php)</title><head>
<body>
<?php
$db = mysql_connect(); //database baglantisi
$continu=1;
if ($isim == "")
{
print("Lutfen Isim bolumunu tam olarak doldurunuz!<br>"); //isim bolumu bos birakildiginda cikacak hata yazisi
$continu=0;
}

if ($continu == 1)
{
$date=date("Y-m-d");
$sql="INSERT INTO ziyaretci_defteri (isim, email, ulke, gorus, tarih) VALUES ('$isim', '$email', '$ulke', '$gorus', NOW())";
mysql_query($sql, $db);
print("Gorusleriniz Icin Tesekkurler !") ; //gonderilme islemi tamamlandiginda cikacak yazi
}
else
{
print("<a href=yaz.php>Geri</a>");
}
?>
<br><?php print("<a href=oku.php>Defteri Oku</a>"); ?>
</body>
</html>

(Yukaridaki kodu yapistirdigimiz dosyaya "gonder.php" ismini verelim)
Yukaridaki kodda php dosyasini ilk olarak database'imize bagladik, bunun icin "$db = mysql_connect();" kodunu kullandik. Sonra kendimize bir onaylayici hazirladik. Eger gonderen kisim "Isminiz" bolumunu yanlislikla bos birakmissa sistem onu uyaracak ve bu bilgiyi doldurmasini isteyecek.
Bunun icin su kod bolumlerini kullandik;

$continu=1;
if ($isim == "")
{
print("Lutfen Isim bolumunu tam olarak doldurunuz!<br>");
$continu=0;
}

Ardindan verilen bilgilerin ana tablomuzda yerli yerine oturmasini sagladik ve adreslerini tam olarak belirledik.

$sql="INSERT INTO ziyaretci_defteri (isim, email, ulke, gorus, tarih) VALUES ('$isim', '$email', '$ulke', '$gorus', NOW())";

Dikkatinizi cekecegi gibi yine burada, form sayfasinda her bolume verdigimiz isimleri kullandik. (orn. "isim, email, ulke, gorus") ve yukaridaki kodun "VALUES" bolumune onlarin birer birer yerlesmesi icin adres verdik. Yukaridaki kodda dikkatinizi cekecek bir adet fazla bolum bulunmakta, buda "tarih". Ana tablomuza tarihi eklemis ama simdiye kadar kullanmamistik. Simid onuda kullaniyoruz. Ve bu taihin "VALUE" bolumundeki karsiligi olarakda "NOV()" yani "simdi" yi kullandik, cunku oraya yazilan tarih o bilgilerin yazildigi tarihle ayni olmasini istedik.
Database yazim kodlarimizin altindada goruldugu gibi;

print("Gorusleriniz Icin Tesekkurler !") ; //gonderilme islemi tamamlandiginda cikacak yazi

Eger yazim islemi basarili olursa, sayfamizda gorulmesi gereken onay yazisida orada bulunmakta.
En sondan 5. siradaki "print("<a href=yaz.php>back</a>");" kodunu kullanmaizdaki amac ise eger yazim sirasinda bir hata cikar yada yukaridaki hazirlamis oldumuz "isim onaylayicis" devreye girerse, ziyaretcinin kolayca geri donmesini saglayabilmek.

4- Eveet, gonderilen butun bilgi suanda dogru olarak database'imize ulasiyor ama bunu bide diger ziyaretcilerimizin gormesini saglamamiz gerekli.
Bunun icinde asagidaki kodu kullanalim.

<html>
<head><title>Ziyaretci Defteri - Gorusleri Oku (oku.php)</title><head>
<body>
<table align="center" cellspacing="0" cellpadding="0" border="1" width="80%">
<tr>
<td bgcolor="black"><font color="white">Isim</td>
<td bgcolor="black"><font color="white">Email</td>
<td bgcolor="black"><font color="white">Ulke</td>
<td bgcolor="black"><font color="white">Gorusler</td>
<td bgcolor="black"><font color="white">Tarih</td>
</tr>

<?php
$db = mysql_connect(); //database baglantisi
$sql="SELECT * FROM ziyaretci_defteri ORDER BY numara"; //siralamanin yapilacagi tablonun secimi.
$res=mysql_query($sql, $db);
while ($ligne = mysql_fetch_object ($res))
{
print "<tr>";
print "<td>$ligne->isim</td>";
print "<td>$ligne->email</td>";
print "<td>$ligne->ulke</td>";
print "<td>$ligne->gorus</td>";
print "<td>$ligne->tarih</td>";
print "</tr>";
}
mysql_free_result ($res);
?>
</table>
<br><?php print("<a href=yaz.php>Deftere Yaz</a>"); ?>
</body>
</html>

(Yukaridaki kodu yapistirdigimiz dosyaya "oku.php" ismini verelim)
Yukaridaki dosyada oncelikle kendimize bir tablo hazirladik, ve tablomuza basliklarini verdik. (orn. Isimi, Emil, Gorus vs.) Ve sonra yine database'imize baglanti sagladik. ( $db = mysql_connect()

Ve sonra suandaki sayfamizda gorunmesini istedigimiz yazilarin, hangi tablodan alinmasi gerektigini ve hangi siralamaya girmesi gerektigini yazdik. ($sql="SELECT * FROM ziyaretci_defteri ORDER BY numara"

.
Ve daha sonra database'de bulunan yazilarin sayfaya gecmesini saglamak icin baglanti kodunu yazdik. (while ($ligne = mysql_fetch_object ($res)) )
Simdi tablo bolumlerini "print "<td>$ligne->isim</td>";" kodunu kullanarak ekleyebiliriz. Unutmayinizki "$ligne->" yazinin tablodan alinmasini sagliyor ama tablonun hangi fiel'inden alinmasi gerektigini belirtmeniz gerekli. Bunuda "$ligne->isim" yada "$ligne->email" yada "$ligne->gorus" vs. seklinde saglayabilirsiniz.
Eveet. Hepsi bu. Elimizde baska bir siteye bagli olmayan kendimize ait bir ziyaretci defterimiz var.

Eger yukardaki kodlari kopyalayip yapistirmak istemiyorsaniz ekteki dosyayi indirip dosyalarin hazirlanmis halini kullanabilirsiniz, ama database tablosunu mutlaka olusturmalisiniz...

PHP'sisteminde daha cok yeniyim. Ilk ogrendigim sey yukarida anlattigim ziyaretci deferi olmustu. Umarim yeterince acik anlatabildim ve sizinde isinize yarayabilir.

NOT: Yukaridaki ziyaretci deferini yaparken onemli bir nokrta var, database'inizin tek olmasi gerekli, birden fazla database oldugunda database secme sistemini henuz ogrenemedim, eger bileniniz varsa onuda bu yazinin altina ekleyebilirse cok sevinirim.

Üyelik sistemi

Örnek kod..

Hepsini Seç
İlk önce bir sayfa açrak onu .asp ye donusturun.
Benim vereceğim kodları yazın...
<% Response.Buffer = True %>
<%on error resume next%>

<%

Set getValues = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0")

dk_g = getValues("A_TIMEOUT")
recordNo = getValues("A_LINK_RECORD")
nRecordNo = getValues("A_NEWS_RECORD")
lcid = getValues("A_LCID")
Session.LCID = lcid
titleAdd = getValues("A_SITE_NAME")
msgLimit = getValues("A_MSG_LIMIT")
msgTimeout = getValues("A_MSG_TIMEOUT")
bannedIPs = getValues("A_BANNED_IPS")
passRemind = getValues("A_PASS_REMIND")
siteAddr = getValues("A_SITE_ADDR")
siteMail = getValues("A_SITE_EMAIL")
mailServer = getValues("A_MAIL_SERVER")
uyeMetod = getValues("U_METOD")
uExp = getValues("U_EXPIRE")
mailBil = getValues("A_MAIL_BIL")

clientIP = Request.ServerVariables("REMOT E_ADDR")

If InStr(1, bannedIPs, clientIP, 1) <> 0 Then
Response.Write "<b>BU IP ADRESININ SITEYE GİRİŞİ YASAKLANMIŞTIR!...</b>"
Response.END
End If
%>
<head>
<meta name="Generator" content="Microsoft FrontPage 5.0">
<meta name="Author" content="Akif">
<meta name="Keywords" content="Akif">
<meta name="De******ion" content="Üyelik XP - Üyelik Sistemi">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9">
<title> Şifre Hatırlatma Sistemi - © NB Studios 2002 </title>
<style>
Body { font-family: verdana,tahoma,arial; font-size: 11px; color: #000000; }
a:link { cursor: none; font-weight: bold; text-decoration: none; color: #1E5ED2; }
a:visited { cursor: none; font-weight: bold; text-decoration: none; color: #1E5ED2; }
a:active { cursor: none; font-weight: bold; text-decoration: none; color: #5691F1; }
a:hover { cursor: none; font-weight: bold; text-decoration: none; color: #5691F1; }

a.news:link { cursor: none; font-weight: none; text-decoration: none; color: #9A9A9A; }
a.news:visited { cursor: none; font-weight: none; text-decoration: none; color: #9A9A9A; }
a.news:active { cursor: none; font-weight: none; text-decoration: none; color: #9A9A9A; }
a.news:hover { cursor: none; font-weight: none; text-decoration: underline; color: #D4D4D5; }

table { font: 11px verdana,tahoma,arial; }
#tdID {border : 1px dashed silver solid; font: 11px verdana,tahoma,arial; vertical-align:middle;}
.input { border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; Background-Color: #EFEFEF; Color: #000000; Font-Size: 10PX; Font-Weight: Bold; Font-Family: verdana,tahoma,arial }
.input2 { border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; Background-Color: #EFEFEF; Color: #000000; Font-Size: 9PX; Font-Weight: None; width:132; Font-Family: verdana,tahoma,arial }
.td {border : 1px dashed silver solid; font: none 11px tahoma; vertical-align:above;}
.textarea {border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; background-color: #EFEFEF; color: #000000; width: 133; font-size: 10px; height: 80; font-family: verdana,tahoma,arial}
.textarea_y {border-left:1px solid Silver; border-right:1px solid Silver; border-top:1px solid Dashed; border-bottom:1px solid Dashed; background-color: #EFEFEF; color: #000000; width: 350; font-size: 10px; height: 125; font-family: verdana,tahoma,arial}
</style>
</head>
<% If Session("Oturum") = "Acik" Then Response.Redirect "default.asp" : Response.End %>
<form action="uye_ol.asp" method=post name="form">
</form>
<table align=center border=0 borderstyle=groove bordercolor=navy width=420>
<tr>
<td style="border : 1px dashed silver solid; font: none 11px tahoma; vertical-align:above;">
<center>
<font style="font-size:19px; font-weight:bold;">BENDENIZ FUN CLUB <font style="font-size: 14px; font-weight: none;"><i></i><font style="font-size:19px; font-weight:bold;"></font><i>Üyelik Formu</i></font></font>
<hr width="310"><br>
<table style="font-size: 11px;" width="300" align=center>
<tr>
<td align=center><font color="#000000">Adınız ve soyadınız, diğer üyelere gösterilmez..</font></td>
</tr>
<tr>
<td align=center><a href="default.asp">Ana sayfa</a></td>
</tr>
</table><br>
<table style="font-size: 11px;" width="420">
<tr>
<td align=right width="50%">
..:: | Üye Adı *
</td>
<td align=left width="50%">
<input type="text" name="uye_adi" class="input" maxlength=13 size="20">
</td>
<td align=left>
<a href="nedir.html#1" onClick="window.name='main_uye '; window.open('nedir.html#1','Ne dir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Şifre *
</td>
<td align=left width="50%">
<input type="password" name="sifre" class="input" size="20">
</td>
<td align=left>
<a href="nedir.html#2" onClick="window.name='main_uye '; window.open('nedir.html#2','Ne dir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Şifre Tekrarı *
</td>
<td align=left width="50%">
<input type="password" name="sifre_t" class="input" size="20">
</td>
<td align=left>
<a href="nedir.html#3" onClick="window.name='main_uye '; window.open('nedir.html#3','Ne dir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | E-Mail Adresi *
</td>
<td align=left width="50%">
<input type="text" name="email" class="input" maxlength=45 size="20">
</td>
<td align=left>
<a href="nedir.html#4" onClick="window.name='main_uye '; window.open('nedir.html#4','Ne dir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Ad Soyad *
</td>
<td align=left width="50%">
<input type="text" name="adsoyad" class="input" maxlength=40 size="20">
</td>
<td align=left>
<a href="nedir.html#5" onClick="window.name='main_uye '; window.open('nedir.html#5','Ne dir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Hatırlatma Sorusu *
</td>
<td align=left width="50%">
<input type="text" name="h_soru" class="input" maxlength=70 size="20">
</td>
<td align=left>
<a href="nedir.html#6" onClick="window.name='main_uye '; window.open('nedir.html#6','Ne dir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Cevabı *
</td>
<td align=left width="50%">
<input type="text" name="h_cevap" class="input" maxlength=70 size="20">
</td>
<td align=left>
<a href="nedir.html#7" onClick="window.name='main_uye '; window.open('nedir.html#7','Ne dir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | ICQ
</td>
<td align=left width="50%">
<input type="text" name="icq" class="input" maxlength=20 size="20">
</td>
<td align=left>
<a href="nedir.html#8" onClick="window.name='main_uye '; window.open('nedir.html#8','Ne dir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Şehir
</td>
<td align=left width="50%">
<input type="text" name="sehir" class="input" size="20">
</td>
<td align=left>
<a href="nedir.html#9" onClick="window.name='main_uye '; window.open('nedir.html#9','Ne dir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Meslek
</td>
<td align=left width="50%">
<input type="text" name="meslek" class="input" size="20">
</td>
<td align=left>
<a href="nedir.html#10" onClick="window.name='main_uye '; window.open('nedir.html#10','N edir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Yaş Aralığı
</td>
<td align=left width="50%">
<select name="yas" style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: Dashed Silver; Font-Size: 9PX; Font-Weight: bold; width:137; Font-Family: verdana,tahoma,arial;">
<option>=< 18</option>
<option>18-24</option>
<option>24-30</option>
<option>30+</option>
</select>
</td>
<td align=left>
<a href="nedir.html#11" onClick="window.name='main_uye '; window.open('nedir.html#11','N edir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | Web Adresi
</td>
<td align=left width="50%">
<input type="text" name="webadresi" class="input" value="http://" size="20">
</td>
<td align=left>
<a href="nedir.html#12" onClick="window.name='main_uye '; window.open('nedir.html#12','N edir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right valign=top width="50%">
..:: | Açıklama
</td>
<td align=left width="50%">
<textarea name=aciklama style="background-color: #EFEFEF; color: #000000; border: 2; border-style: groove; border-color: #FFFFFF; width: 133; font-size: 10px; height: 80; font-family: verdana,tahoma,arial" rows="1" cols="20"></textarea>
</td>
<td align=left>
<a href="nedir.html#13" onClick="window.name='main_uye '; window.open('nedir.html#13','N edir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
..:: | E-Mail adresim <br> diğer üyelere görünsün
</td>
<td align=left width="50%">
<input type="checkbox" name="mailg" class="input" checked value="ON">
</td>
<td align=left>
<a href="nedir.html#14" onClick="window.name='main_uye '; window.open('nedir.html#14','N edir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Bu nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
Kaydete tıklayınca <a href="kurallar.html" target=_blank>kurallar</a>ı
</td>
<td align=left width="50%">
kabul etmiş sayılacaksınız
</td>
<td align=left>
<a href="nedir.html#15" onClick="window.name='main_uye '; window.open('nedir.html#15','N edir', 'toolbar=no,********=no,direct ories=no,status=no,menubar=no, scrollbars=no, resizable=no,copyhistory=no,wi dth=325,height=100'); return false;">
<img src="image/soru.jpg" width="16" height="16" border=0 alt="Kurallar nedir?">
</a>
</td>
</tr>

<tr>
<td align=right width="50%">
<input type="reset" value=". . : : | KayBet | : : . ." style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: #FFFFFF; Font-Size: 10PX; Font-Weight: None; ">
</td>
<td align=left width="50%">
<input type="submit" name="yolla" value=". . : : | KayDet | : : . ." style="Background-Color: #EFEFEF; Color: #000000; Border: 2; Border-Style: Groove; Border-Color: #FFFFFF; Font-Size: 10PX; Font-Weight: None; " onClick="java******:

if (form.uye_adi.value == '' || document.form.uye_adi.value.le ngth < 2) { alert('Lütfen üye adını doğru olarak yazınız!.. (En az 2 karakter)'); form.uye_adi.focus(); return false }

if (form.sifre.value == '' || document.form.sifre.value.leng th < 4 || document.form.sifre.value.leng th > 8) { alert('Lütfen şifrenizi doğru olarak yazınız!.. (En az 4, en çok 8 karakter)'); form.sifre.focus(); return false }

if (form.sifre.value != form.sifre_t.value) { alert('Şifreniz ve tekrarı, birbirinden farklı!..'); form.sifre.focus(); return false }

if (form.email.value == '' || document.form.email.value.inde xOf('@') ==-1 || document.form.email.value.inde xOf('.') ==-1) { alert('Lütfen geçerli bir e-mail adresi yazınız!..'); form.email.focus(); return false }

if (form.adsoyad.value == '' || document.form.adsoyad.value.le ngth < 4) { alert('Lütfen Ad ve Soyadınızı doğru olarak yazınız!...'); form.adsoyad.focus(); return false }

if (form.h_soru.value == '' || document.form.h_soru.value.len gth < 3) { alert('Lütfen hatırlatma sorusu yazınız!...'); form.h_soru.focus(); return false }

if (form.h_cevap.value == '') { alert('Lütfen hatırlatma sorusuna cevap yazınız!..'); form.h_cevap.focus(); return false }

if (form.aciklama.value.length > 125) { alert('Açıklama en fazla 125 karakter olmalı!..'); form.aciklama.focus(); return false }

else
{
form.submit();
this.disabled=true;
}
"><input type=hidden name="xp" value="xp">
</td>
<td align=left>
</td>
</tr>
</table>
</td>
</tr>
</form>
<%
Sub hataYaz(str)
Response.write "<center><font color=""#FF0000""><b>" & str & "</b></font><br><a href=""java******:history.back (1)"">Geri</a></center><br><br>"
End Sub
If Request.Form("xp") = "xp" Then
If InStr(1, Request.Form("uye_adi"), "'", 1) <> 0 OR InStr(1, Request.Form("sifre"), "'", 1) <> 0 Then
Response.write "<center><font color=""#FF0000""><b>Lütfen üye adınız ve şifrenizde kesme işareti (') kullanmayın</b></font><br><a href=""java******:history.back (1)"">Geri</a></center><br><br>"
Response.end
End If

acik = Replace(Request.Form("aciklama "), "<", "<")
aciklama = Replace(acik, ">", ">")

If Request.Form("mailg") = "on" Then
mailgoster = true
Else
mailgoster = false
End If

If Mid(Request.Form("webadresi"), 1, 7) <> "http://" AND Request.Form("webadresi") <> "" Then
address = Request.Form("webadresi")
adres = Replace(address, address, "http://"&address)
ElseIf Request.Form("webadresi") = "http://" OR Request.Form("webadresi") = "" Then
adres = ""
Else
adres = Request.Form("webadresi")
End If

Set getType = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0")

Set objRs = Server.CreateObject("ADODB.Rec ordSet")
objRs.Open "SELECT * FROM UYELER", objConn, 3, 3

Set nameCheck = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi ")&"'")

If Not nameCheck.EOF Then
call hataYaz("Bu Kullanıcı Adı Sistemde Kayıtlı!...")
Response.End
End If

email = Request.Form("email")
bolge = InStr(1, email, "@", 1)
If Mid(email, bolge+1, 1) = "." Then
call hataYaz("Doğru bir e-mail adresi girin")
Response.End
Else
bolge2 = InStr(bolge, email, ".", 1)
If Mid(email, bolge2+1, 1) = "" Then
call hataYaz("Doğru bir e-mail adresi girin")
Response.End
End If
End If

Set emailCheck = objConn.Execute("SELECT * FROM UYELER WHERE EMAIL='"&Request.Form("email") &"'")

If Not emailCheck.EOF Then
call hataYaz("Bu E-Mail Adresine Sahip Kullanıcı Mevcut!...")
Response.End
End If

objRs.AddNew
objRs("U_ADI") = Request.Form("uye_adi")
objRs("U_SIFRE") = Request.Form("sifre")
objRs("AD") = Request.Form("adsoyad")
objRs("EMAIL") = Request.Form("email")
objRs("H_SORU") = Request.Form("h_soru")
objRs("H_CEVAP") = Request.Form("h_cevap")

If Request.Form("icq") <> "" AND IsNumeric(Request.Form("icq")) Then
objRs("ICQ") = Request.Form("icq")
End If

objRs("SEHIR") = Request.Form("sehir")
objRs("MESLEK") = Request.Form("meslek")
objRs("YAS") = Request.Form("yas")
objRs("WEB") = adres
objRs("ACIKLAMA") = aciklama
objRs("MAILGOSTER") = mailgoster
objRs("LOGIN_SAYISI") = 1
objRs("U_TARIHI") = Date()
If getType("U_METOD") = 0 Then objRs("SON_TARIH") = Now()
objRs("SEVIYE") = "0"
objRs("M_NICKNAME") = Request.Form("uye_adi")
objRs("OS") = os
objRs("BROWSER") = browser

If getType("U_METOD") = 1 Then
objRs("ACTIVE") = "0"
k = "0"
Randomize
sayi = Int((Rnd*9999999999999) + 10000000000000)

For I = 1 To objRs.RecordCount
If sayi = objRs("ACTIVE_CODE") Then k = k + 1
Next

If k > 0 Then
Randomize
sayi = Int((Rnd*9999999999999) + 10000000000000)
objRs("ACTIVE_CODE") = sayi
objRs("ONAY_BEKLE") = "0"
tip = 1
Else
objRs("ACTIVE_CODE") = sayi
objRs("ONAY_BEKLE") = "0"
tip = 1
End If

ElseIf getType("U_METOD") = 0 Then
objRs("ACTIVE") = "1"
objRs("ONAY_BEKLE") = "0"

ElseIf getType("U_METOD") = 2 Then
objRs("ACTIVE") = "0"
objRs("ONAY_BEKLE") = "1"
tip = 2

Else
Response.Write "<b>Veritabanındaki bir hatadan dolayı kayıt yapılamıyor</b><br><br>"
Response.End

End If

objRs.Update
objRs.Close
Set objRs = Nothing

Set idAl = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI = '" & Request.Form("uye_adi") &"'")
idNo = idAl("U_ID")

Set expAl = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0")
expDur = expAl("U_EXPIRE")
siteMail = expAl("A_SITE_EMAIL")
mailServer = expAl("A_MAIL_SERVER")
titleAdd = expAl("A_SITE_NAME")

If tip = 1 Then
konuA = "Aktivasyon Kodunuz"

hostName = Request.ServerVariables("HTTP_ HOST")
urlCont = Request.ServerVariables("URL")
charFoundSlash = InStrRev(urlCont, "/", -1, 1)
stringAfterHost = Mid(urlCont, 1, charFoundSlash)
lastString = "http://"& hostName & stringAfterHost
pathAct = lastString & "activate.asp?RNDNO="& sayi &"&UID="&idNo&""
mesajA = "Aşağıdaki linke tıklayıp, üyeliğinizi aktif hale getirebilirsiniz." & vbCrLf & vbCrLf & pathAct
If mailBil = "CDONTS" Then
yolla = CDONTS (konuA, mesajA, Request.Form("email"))
If NOT yolla Then
Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
Response.End
End If
ElseIf mailBil = "PERSITS" Then
yolla = PERSITS (konuA, mesajA, Request.Form("email"))
If NOT yolla Then
Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
Response.End
End If
ElseIf mailBil = "JMAIL" Then
yolla = JMAIL (konuA, mesajA, Request.Form("email"))
If NOT yolla Then
Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
Response.End
End If
Else
Response.Write "<b>HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ</b><br><br>"
Response.End
End If
Response.Redirect "default.asp?ISN=354763"
ElseIf tip = 2 Then
Response.Redirect "default.asp?ISN=354986"
ElseIf tip = 0 Then

Set objRst = Server.CreateObject("ADODB.Rec ordSet")
objRst.Open "SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi ")&"' AND U_SIFRE='"&Request.Form("sifre ")&"' AND ACTIVE = 1", objConn, 3, 3

If Not objRst.EOF Then

Session("Oturum") = "Acik"
Session("Uye_Adi") = objRst("U_ADI")
Session("Uye_Id") = objRst("U_ID")
Session("Uye_Sifre") = objRst("U_SIFRE")
Session("Uye_Email") = objRst("EMAIL")
Session("Uye_Login") = objRst("LOGIN_SAYISI")

Response.Cookies("xp_uye")("me vcut") = "evet"
Response.Cookies("xp_uye")("ku llanici") = objRst("U_ADI")
Response.Cookies("xp_uye")("si fre") = objRst("U_SIFRE")
Response.Cookies("xp_uye").Exp ires = Date() + 365

objRst.Close
Set objRs = Nothing

Response.Redirect "default.asp"

End If

End If %><%
End If
%>

Online ziyaretci saysini

Aktif ziyaretci sayisini gösteren kod

Hepsini Seç
<****** src="http://fastonlineusers.com/online.php?d=SİZİN SİTENİZ"></******>

Örnek:
<****** src="http://fastonlineusers.com/online.php?d=www.siteadi.com"> </******>

Kodu sitenize eklediğinizde aktif ziyaretçi sayısını ekrana verir.

Sayfayi animasyonlu açmak

Sayfanin ön yüzünde açilan kapi animasyonu

Hepsini Seç
<body><******>
var width=document.body.clientWidt h;
var height=document.body.clientHei ght;

function doClickText(who,type,step,time Out) {
document.getElementById(who).s tyle.display="none";
if(type==0) {
reveal('revealDiv1',step,timeO ut,0);
reveal('revealDiv2',step,timeO ut,1);}
if(type==1) {
reveal('revealDiv1',step,timeO ut,2);
reveal('revealDiv2',step,timeO ut,3);}}
function reveal(who,step,timeOut,type) {
if(type==0)
var where="top";
if(type==1)
var where="bottom";
if(type==2)
var where="left";
if(type==3)
var where="right";
eval('var temp=document.getElementById(w ho).style.'+where);
temp=parseInt(temp);
if(type==0||type==1)
var checkWith=height/2;
if(type==2||type==3)
var checkWith=width/2;
if(-temp<checkWith) {
temp-=step;
eval('document.getElementById( who).style.'+where+'=temp;');
setTimeout("reveal('"+who+"'," +step+",'"+timeOut+"',"+type+" )", timeOut);}
else {
document.getElementById(who).s tyle.display="none";
document.body.scroll="yes";}}
function initReveal(type,div1bg,div2bg, div1bw,div2bw,div1bc,div2bc,st ep,timeOut,click) {
if(type==0) {
var bWhere1="border-bottom";
var bWhere2="border-top";
var putZero1="top:0px; left:0px";
var putZero2="bottom:0px; left:0px";
document.write('<div id="revealDiv1" style="z-index:100; display:block; position:absolute; '+putZero1+'; background:'+div1bg+' ; width:'+(width)+'; height:'+(height/2)+'; '+bWhere1+':'+div1bc+' solid '+div1bw+'px"></div>');
document.write('<div id="revealDiv2" style="z-index:100; display:block; position:absolute; '+putZero2+'; background:'+div2bg+' ; width:'+(width)+'; height:'+(height/2)+'; '+bWhere2+':'+div2bc+' solid '+div2bw+'px"></div>');
if(!click) {
reveal('revealDiv1',step,timeO ut,0);
reveal('revealDiv2',step,timeO ut,1);}

else {
clickText(type,step,timeOut);} }

if(type==1) {
var bWhere1="border-right";
var bWhere2="border-left";
var putZero1="top:0px; left:0px";
var putZero2="top:0px; right:0px";
document.write('<div id="revealDiv1" style="z-index:100; display:block; position:absolute; '+putZero1+'; background:'+div1bg+' ; width:'+(width/2)+'; height:'+(height)+'; '+bWhere1+':'+div1bc+' solid '+div1bw+'px"></div>');
document.write('<div id="revealDiv2" style="z-index:100; display:block; position:absolute; '+putZero2+'; background:'+div2bg+' ; width:'+(width/2)+'; height:'+(height)+'; '+bWhere2+':'+div2bc+' solid '+div2bw+'px"></div>');
if(!click) {
reveal('revealDiv1',step,timeO ut,2);
reveal('revealDiv2',step,timeO ut,3);}
else {
clickText(type,step,timeOut);} }
function clickText(type,step,timeOut) {
document.write('<div id="clickText" style="z-index:101; display:block; position:absolute; top:'+(height/2-clickh/2-clickb)+'; left:'+(width/2-clickw/2-clickb)+'"><table style="border:'+clickc+' solid '+clickb+'px; background:'+clickbg+' ;width:'+clickw+'px; height:'+clickh+'; '+clickFont+'; cursor:hand; cursor

ointer" onClick="doClickText(\'clickTe xt\','+type+','+step+','+timeO ut+')"><tr><td align="middle">'+clickt+'</td></tr></table></div>');}}
</******>
<******>
var clickw=170; // Width
var clickh=20; // Height
var clickb=2; // Border width
var clickc="#CCFFCC"; // Border color
var clickbg="#000000"; // Background color
var clickt="Siteye girmek icin tiklayin."; // Text to display
var clickFont="font-family:Tahoma,arial,helvetica; font-size:10pt; font-weight:bold; color:#FF0000"; // The font style of the text
new initReveal(0,'#CCFFCC','#CCFFC C',1,1,'#00FF00','#000000',3,1 0,true);
</******><body>

Süper bir html kodu bence deneyin

Bu html kodu sayesinde mouse niz renklenecek

Hepsini Seç
<****** language="Java******">



</******>

Super bir menü

Bence çook güzel deneyin

Hepsini Seç
<table border=1 bordercolor="black" style="cursor:crosshair">
<tr bgcolor="black">
<td>
<b><font style="cursor:crosshair" face="Arial" color=white>KoMeDiYe Menü</font></b>
</td>
</tr>
<tr bgcolor="white">
<td><center><p>
<form><input style="cursor:crosshair" type="button" name="anasayfa" onClick="self.********.href=(' http://rockhll.sitemynet.com')" value="Ana Sayfa" style="background:white" style="cursor:crosshair"title= "Copyright © 2004-2005 KoMeDiYe"></form>
<p>
<form><input style="cursor:crosshair" type="button" name="anasayfa" onClick="self.********.href=(' http://rockhll.sitemynet.com')" value="Ana Sayfa" style="background:white" style="cursor:crosshair"title= "Copyright © 2004-2005 KoMeDiYe"></form>
<p>
<form><input style="cursor:crosshair" type="button" name="anasayfa" onClick="self.********.href=(' http://rockhll.sitemynet.com')" value="Ana Sayfa" style="background:white" style="cursor:crosshair" title="Copyright © 2004-2005 KoMeDiYe"></form>
<p>
<form><input style="cursor:crosshair" type="button" name="anasayfa" onClick="self.********.href=(' http://rockhll.sitemynet.com')" value="Ana Sayfa" style="background:white" style="cursor:crosshair"title= "Copyright © 2004-2005 KoMeDiYe"></form>
<p>
<form><input style="cursor:crosshair" type="button" name="anasayfa" onClick="self.********.href=(' http://rockhll.sitemynet.com')" value="Ana Sayfa" style="background:white" style="cursor:crosshair"title= "Copyright © 2004-2005 KoMeDiYe"></form>
<p>
</td>
</tr>
</table>

[Üye Olmayanlar Linkleri Göremezler Üye Olmak İçin Tıklayınız...] [Üye Olmayanlar Linkleri Göremezler Üye Olmak İçin Tıklayınız...]
+replerinizi esirgemeyin