Seodanismani.net

PHP.INI Ayarları

Şimdi c:\php klasörüne geliyoruz. php4ts.dll isimli dosyadan bir tane kopyalıp eğer win9x’de isek windows\system eğer nt tabanlı bir sistemde isek winnt\system32 eğer xp kullanıyorsak windows\system32 klasörüne yapıştırmak.

Yine c:\php’de iken php.ini-dist dosyasından bir tane kopyalayıp adını php.ini olarak c:\php içine kaydediyoruz.

PHP.ini’yi açıyoruz ve extension_dir= “./” satırını bulup bunu Extension_dir=c:\php\extensions olarak değiştiriyoruz.

PHP.ini içindeyken “Dynamic Extensions” bölümüne gidiyoruz ve aşağıdaki değişiklikleri yapıyoruz.

Şu satırları;
;extension=php_gd2.dll
;extension=php_imap.dll
;extension=php_sockets.dll
;extension=php_zip.dll

extension=php_gd2.dll
extension=php_imap.dll
extension=php_sockets.dll
extension=php_zip.dll

olarak değiştiriyoruz.

Ve PHP.ini’yi kaydedip kapatıyoruz. Sonra php.ini’nin bir kopyasını alıp win9x ve xp’de windows, nt’de winnt altına yapıştırıyoruz.

Apache httpd.conf Ayarları
c:\Program Files\Apache Group\Apache2\conf\httpd.conf dosyasını açıyoruz.

LoadModule diye başlayan 30-35 tane satır var. Bu satırların altında yeni bir satırdan itibaren şu satırları ekliyoruz:

LoadModule php4_module c:/php/sapi/php4apache2.dll
AddType application/x-httpd-php .php
AddType application/x-httpd-php .php3
AddType application/x-httpd-php .phtml
AddType application/x-httpd-php-source .phps

Ayrıca;

DirectoryIndex index.html index.html.var
satırını bulup bunu aşağıdaki şekilde düzenliyoruz.

DirectoryIndex index.html index.htm default.html default.htm index.php default.php index.php3 default.php3

ve

AddDefaultCharset ISO-8859-1

satırını bulup bunu
AddDefaultCharset ISO-8859-9
olarak değiştiriyoruz.

Dosyayı kaydedip kapatıyoruz.

Şimdi Başlat -> Tüm Programlar / Programlar -> Apache HTTP Server 2.0.49 -> Configure Apache Server -> Test Configuration diyoruz. Ve eğer msdos penceresi açılıp kendiliğinden kapanırsa yani bir hata vermez ise sorun yok, kurulum başarıyla tamamlanmış demektir.

c:\Program Files\Apache Group\Apache2\bin\ApacheMonitor.exe veya Başlat -> Tüm Programlar / Programlar -> Apache HTTP Server 2.0.49 -> Control Apache Server -> Monitor Apache Servers ı tıklıyor ve Apache Monitör’ü açıyoruz.

Ekran görüntüsündeki gibi “Status/Durum” çubuğunda Apache/2.0.49 (Win32) PHP/4.3.7 yazıyorsa ve konfigürasyon testinde hata çıkmadıysa sorunsuz olarak kurulum tamamlandı.

Şimdi PHP’i sınayalım bakalım;

Başlat -> Çalıştır -> notepad yazıyoruz ve Not Defterini açıyoruz. Burada aşağıdaki kodları yazıp c:\Program Files\Apache Group\Apache2\htdocs klasörü altına index.php adında kaydediyoruz.

<?
phpinfo();
?>

Varsayılan tarayıcınızı açıp adres satırına localhost veya 127.0.0.1 yazıyoruz. Eğer PHP Version 4.x.x gibi bir başlıkla mor bir sayfa açılır ve PHP logosu bulunuyorsa kutlarım bilgisayarınızda Apache ve PHP kuruldu ve çalışacak durumda.

ASP.Net Performans Ipuclari

1- Eğer Asp.Net aplikasyonlarınızda Session State kullanmıyorsanız, bu özelliği kapatmanız performansınızı olumlu yönde etkileyecektir. ASP.Net Session State’leri siz kapatmazsanız Asp.Net onu otomatik olarak kullanılıyor farzedecektir.
Session State de neymiş?
Session State sayfanızdaki istediğiniz bilgileri saklayarak sonradan kullanmanızı sağlar.

Web.Config Dosyası Değişikliği
< sqlconnectionstring=”data source=127.0.0.1; Trusted Connection=no” stateconnectionstring=”tcpip=127.0.0.1:42424″ mode=”Off” cookieless=”false” timeout=”20″>

2- Web.Config dosyasındaki debug parametresini debugging işlemleriniz bittiğinde(programınız sunuma hazır olduğunda) değiştirmeniz dosya boyutunuzu biraz küçültecek ve işlem performansında artış sağlayacaktir.

Web.Config Dosyası Değişikliği

< debug=”false” defaultlanguage=”c#”>

3- Programınızın en son halini build ederken(sunuma hazır hale getirirken) Release modunu seçin. Solution Propertiesteki Active Config opsiyonunu Debug modundan Release Moduna çevirin. Böylece Asp.Net aplikasyonlarınızda, debug modunda yaratılan ve ekstra yük yaratan PDB dosyalarından(debug bilgilerini tutar) kurtulmuş olacaksınız

Asp.Net sayfalarınızı bir çok şekilde şimdikinden daha hızlı hale getirmeniz mümkün.

Başlıca yapılabilecekleri sıralamak gerekirse;

Gereksiz PostBack’leri temizleyin.
Zamanınız olursa ve javaşcript’e hakimseniz AJAX konusunu bir inceleyin(postbackleri elimine etmenize yarıyor).

Outputları Cache’de saklamayı öğrenin.
Asp.Net sayfalarınızda çaching kullanmanız gereksiz server trafiğini ve sayfa işlemlerini engelleyecektir.

Statik bilgiler için gereksiz yere Asp.Net Web Kontrolü kullanımından kaçının.
HTML kullanın, o ne güne duruyor?

ViewState’lerin boyutlarını limitleyin.
Eğer ViewState kullanmıyorsanız tamamiyle kapatin.Özellikle Datağridler, Repeaterlar, DataList ve Gridviewler çok büyük boyuta ulaşabiliyor.)

Kullandığınız grafikleri optimize edin.
Biraz photoshop bilmek zarar getirmez

Table yerine CSS kullanın.
Sayfa düzenini ayarlamak için tablelar kullanmak yerine CSS kullanın, sayfalarınız çok daha çabuk yüklenecektir.

Sayfalarınızda meydana gelebilecek olağan dışı performans artışından sorumluluk kabul etmiyorum

Asp ye merak sarmış bir çok kişinin en çok merak ettiği ve acilen öğrenmek istediği bir konu var.Bir web sitesi yapmaya karar verdiniz ve sitenizi güncelleştirmekte kolaylık sağlayacak yönetim paneli hazırlamakta zorluk çekiyorsunuz.Şimdi yazacaklarım veritabanına bağlanıp mevcut kayıtlarınızı düzenleyebilme, silme veya yeni kayıt eklemeyi internet üzerinde yapabilecek aktif web sayfaları hazırlamak üzerine olacak.

Örnek olarak verebileceğim bir çok alan var ben bir haber sitesi için haber ekleme yönetim sayfaları nasıl olur anlatacam.

Bizim için gerekli 6 adet asp dosyası hazırlamamız gerekli

1- Veritabanına bağlantı için sayfa

2- Kayıtlarımızı görebileceğimiz bir admin sayfası

3- Yeni Kayıt ekleyebileceğimiz bir form sayfası

4- Eklediğimiz kayıt bilgilerini veritabanına yazacak olan sayfa

5- Eklenmiş kayıtlar üzerinde düzenleme yapabileceğimiz ayrı bir form sayfası

6- Kayıtlarımızı silmek için biraz kodlama

1-Şimdi veritabanına bağlanabilmek için yapacağımız sayfanın adı veri_baglanti.asp olsun.

Veri_baglanti.asp dosyasında sadece şu kodlar olacak :

<%

Set bag = Server.Createobject(”Adodb.Connection”)

bag.open “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(”veritabanim.mdb”)

%>

Eğer veritabanınız aynı dizinde yani asp dosyalarının bulunduğu aynı klasördeyse veritabanim.mdb şeklinde veritabanı yolunu belirliyoruz .Eğer aynı dişzinde fakat “db” gibi bir klasördeyse db/veritabanim.mdb bir üst dizinde ve “db” gibi bie klasördeyse ../db/veritabanim.mdb şeklinde olacak.

Veri_baglanti.asp dosyasını yaptıktan sonra diğer sayfalar için include kodumuzu diğer sayfalara eklememiz gerekli

<!–#include file=”veri_baglanti.asp” –>

bu şekilde diğer yapacağımız sayfalara veri_baglanti.asp dosyasoını include etmeyi unutmamalıyız.Hangi sayfalara ekleyeceğimizi yazının devamında belirtecem.

2- Kayıtlarımızı görebileceğimiz sayfa da şu şekilde tasarlanmalı

örneğin veritabanımızda haberler diye bir tablo var ve bu tabloda id, baslik, detay, haber, tarih alan adları var.
”id” her ekleyeceğimiz kayıt için otomatik sayı veren alandır.
Admin sayfamızda istediğimiz şekilde haber başlığı , haber detayı, haber, resim ve eklenme tarihini göreceğimiz bir sayfalama sistemi tasarlamamız gerekli.

Hazırlayacağımız sayfanın adı haber_admin.asp olsun.Ve şu kodları kullanalım.

<% @codepage=”1254″ %>

<%

git = Request.QueryString(”git”)

%>

<!–#include file=”veri_baglanti.asp” –>

<html>

<head>

<meta **********=”Content-Language” content=”tr”>

<meta name=”GENERATOR” content=”Microsoft FrontPage 5.0″>

<meta name=”ProgId” content=”FrontPage.Editor.Document”>

<meta **********=”Content-Type” content=”text/html; charset=windows-1254″>

<title>&nbsp;Haber Yönetim Sayfası</title>

</head>

<body>

<div align=”center”>

<center>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”854″ height=”38″ id=”AutoNumber1″>

<tr>

<td width=”854″ height=”1″ bgcolor=”#EBF0FC” bordercolor=”#000080″ colspan=”2″>

<p align=”center”><font color=”#3466DE” face=”Tahoma”><b>&nbsp;HABERLER

YÖNETİM SAYFASI</b></font><p align=”center”><b>

<font face=”Tahoma” color=”#3466DE”>=<a style=”text-decoration: none” href=”haberler_ekle.asp”>

<font color=”#3466DE”>Yeni Haber Ekle</font></a> =

<a href=”default.asp” style=”text-decoration: none”><font color=”#3466DE”>

Ana Sayfa</font></a> =</font></b></td>

</tr>

<%

set halkpel_haber = Server.CreateObject(”Adodb.Recordset”)

sorgu = “Select * from haberler order by id desc”

halkpel_haber.open sorgu,bag,1,3

tane = halkpel_haber.recordcount

sayfa = Request.QueryString(”sayfa”)

if sayfa=”" then

sayfa=1

end if %>

<% halkpel_haber.pagesize = 10

halkpel_haber.absolutepage = sayfa

sayfax = halkpel_haber.pagecount

for i=1 to halkpel_haber.pagesize

if halkpel_haber.eof then exit for

%>

<table width=”884″ bordercolor=”#3466DE” style=”border-collapse: collapse” cellpadding=”0″ cellspacing=”0″>

<tr>

<td width=”138″ height=”34″ bordercolor=”#3466DE” style=”border: 1px solid #3466DE”><font face=”Tahoma”>Haber Başlığı</font></td>

<td width=”736″ height=”34″ bordercolor=”#3466DE” style=”border: 1px solid #3466DE”>&nbsp;<%=Left(halkpel_haber(”baslik”),100 ) %></td>

</tr>

<tr>

<td width=”138″ height=”41″ bordercolor=”#3466DE” style=”border: 1px solid #3466DE”><font face=”Tahoma”>Haber Detayı</font></td>

<td width=”736″ height=”42″ bordercolor=”#3466DE” style=”border: 1px solid #3466DE”>&nbsp;<%=Left(halkpel_haber(”detay”),200) %>…</td>

</tr>

<tr>

<td width=”138″ height=”61″ bordercolor=”#3466DE” style=”border: 1px solid #3466DE”><font face=”Tahoma”>Haber Metni</font></td>

<td width=”736″ height=”62″ bordercolor=”#3466DE” style=”border: 1px solid #3466DE”>&nbsp;<%=Left(halkpel_haber(”haber”),600) %>…</td>

</tr>

<tr>

<td width=”138″ height=”18″ bordercolor=”#3466DE” style=”border: 1px solid #3466DE”><font face=”Tahoma”>Eklenme Tarihi</font></td>

<td width=”736″ height=”18″ bordercolor=”#3466DE” style=”border: 1px solid #3466DE”><%=halkpel_haber(”tarih”) %></td>

</tr>

<tr>

<td width=”878″ height=”14″ align=”center” colspan=”2″ bordercolor=”#3466DE” style=”border: 1px solid #3466DE”>

<p style=”margin-top: 0; margin-bottom: 0″><font face=”Tahoma”>

<b>

<a href=”haber_sil.asp?id=<%=halkpel_haber(”id”)%>” style=”text-decoration: none”>

<font color=”#3466DE”>SİL</font></a></b><font color=”#3466DE”> -&nbsp;

<a style=”text-decoration: none; font-weight: 700″ href=”haber_duzenle.asp?id=<%=halkpel_haber(”id”)% >”>

<font color=”#3466DE”>DÜZENLE</font></a></font></font></p>

</td>

</tr>

<%halkpel_haber.movenext%>

<% next %>

<tr>

<td width=”878″ height=”5″ align=”center” colspan=”2″ bordercolor=”#3466DE”>

</td>

</tr>

</table>

<table width=”462″><tr><td width=”456″ style=”border: 1px solid #000080″><font color=”black”>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ; &nbsp;&nbsp;&nbsp;&nbsp; Sayfa : <%

for adet=1 to sayfax

if sayfa=adet then

response.write adet

else

response.write “<b> <a href=”"haber_admin.asp?sayfa=”&adet&”"”>”&adet&”</a></b>”

end if

next

%>

<p >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ; Toplam <%=tane%> haber bulunmaktadır </p></font>

</td></tr></table>

</center>

</div>

</body>

</html>

Notlar :1- <%=Left(halkpel_haber(”detay”),200) %> bunun anlamı haberler tablosundaki detay alan adının sadece soldan ilk 200 karakterini görüntüle dir.

2- <% halkpel_haber.pagesize = 10

halkpel_haber.absolutepage = sayfa

sayfax = halkpel_haber.pagecount

for i=1 to halkpel_haber.pagesize

if halkpel_haber.eof then exit for

%>

buradaki “10“ rakamı verileri alt alta bir sayfada 10 tane sırala demektir.

3- Yeni kayıt için gerekli form sayfamızın adı haber_ekle.asp olsun. Ve şu kodları kullanalım;

<html>

<head>

<meta **********=”Content-Language” content=”tr”>

<meta name=”GENERATOR” content=”Microsoft FrontPage 5.0″>

<meta name=”ProgId” content=”FrontPage.Editor.Document”>

<meta **********=”Content-Type” content=”text/html; charset=windows-1254″>

<title> HABER EKLEME</title>

</head>

<body>

<form method=”POST” action=”haber_add.asp”>

<div align=”center”>

<center>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”523″ height=”8″ id=”AutoNumber2″>

<tr>

<td width=”523″ height=”8″>

<p align=”center”><font face=”Tahoma” size=”5″ color=”#3466DE”> <b>HABER

EKLEME</b></font><p align=”center”>

<b><font face=”Tahoma”><font color=”#3466DE”>= </font>

<a href=”haberler_admin.asp” style=”text-decoration: none”>

<font color=”#3466DE”>Haber Yönetim Sayfası</font></a><font color=”#3466DE”> =

</font></font><font face=”Tahoma” color=”#3466DE”>

<a href=”default.asp” style=”text-decoration: none”>

<font color=”#3466DE”>Ana Sayfa</font></a> =</font></b></td>

</tr>

</table>

</center>

</div>

<div align=”left”>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”816″ height=”213″ id=”AutoNumber1″>

<tr>

<td width=”148″ height=”25″ bgcolor=”#FCFCFC” bordercolor=”#808080″>

<font face=”Tahoma”>Haber Başlığı&nbsp; </font></td>

<td width=”662″ height=”26″>

<input name=”baslik” type=”text” class=”form” id=”baslik” size=”55″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC”></td>

</tr>

<tr>

<td width=”148″ height=”29″ bgcolor=”#FCFCFC” bordercolor=”#808080″>

<font face=”Tahoma”>Haber Detayı&nbsp;&nbsp;&nbsp; </font></td>

<td width=”662″ height=”29″>

<textarea rows=”7″ name=”detay” cols=”51″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC”></textarea></td>

</tr>

<tr>

<td width=”148″ height=”85″ bgcolor=”#FCFCFC” bordercolor=”#808080″>

<font face=”Tahoma”>Haber&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

</font></td>

<td width=”662″ height=”85″>

<textarea rows=”12″ name=”haber” cols=”81″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC”></textarea></td>

</tr>

<tr>

<td width=”148″ height=”43″ bgcolor=”#FCFCFC” bordercolor=”#808080″>

<font face=”Tahoma”>Resim&nbsp; </font></td>

<td width=”662″ height=”43″>

<input name=”resim” type=”text” class=”form” id=”adi2″ size=”83″ style=”font-size: 10pt; font-family: Tahoma; border: 1px solid #808080; background-color: #FCFCFC” value=”haber_resimleri/”></td>

</tr>

<tr>

<td width=”148″ height=”22″>&nbsp;</td>

<td width=”662″ height=”22″>

<p align=”center”>

<input type=”submit” value=”KAYDET” name=”B1″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC”>&nbsp;&nbsp;&nbsp;&nbsp;

<input type=”reset” value=”HEPSİNİ SİL” name=”B2″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC”></td>

</tr>

</table>

</div>

<p align=”left”>&nbsp;</p>

</form>

</body>

</html>

Not: <form method=”POST” action=”haber_add.asp”> bu formlara yazacağımız veriler haber_add diye oluşturacağımız asp sayfasında işlenerek veritabanına kaydolacaktır.

4- Eklediğimiz kayıt bilgilerini veritabanına yazacak olan sayfanın adı haber_add olacak şekilde yapalım ve şu kodları kullanalım;

Not: burada veri_baglanti.asp dosyamızı include etmeyi unutmayalım.

<% @codepage=1254 %>

<!–#include file=”veri_baglanti.asp” –>

<%

set halkpel_haber = Server.CreateObject(”Adodb.Recordset”)

sorgu = “Select * from haberler”

halkpel_haber.open sorgu,bag,1,3

%>

<%

baslik = Request.Form(”baslik”)

detay = Request.Form(”detay”)

haber = Request.Form(”haber”)

resim = Request.Form(”resim”)

halkpel_haber.addnew

halkpel_haber(”baslik”) = baslik

halkpel_haber(”detay”) = detay

halkpel_haber(”haber”) = haber

halkpel_haber(”resim”) = resim

halkpel_haber(”tarih”) = date

halkpel_haber.update

%>

<% response.redirect (”haber_admin.asp”) %>

5- Eklenmiş kayıtlar üzerinde düzenleme yapabileceğimiz form sayfasının adı haber_duzenle.asp olacak.

Gerekli kodlar ;

<% @codepage=”1254″ %>

<%

id=Request.QueryString(”id”)

if id=”" then

Response.write “Id alınamadı”

end if

%>

<%

islem=Request.QueryString(”islem”)

if islem=”duzenle” then

call duzenle

end if

%>

<html>

<head>

<meta **********=”Content-Language” content=”tr”>

<meta name=”GENERATOR” content=”Microsoft FrontPage 5.0″>

<meta name=”ProgId” content=”FrontPage.Editor.Document”>

<meta **********=”Content-Type” content=”text/html; charset=windows-1254″>

<title> HABER EKLEME</title>

</head>

<body>

<form method=”POST” action=”haber_duzenle.asp?islem=duzenle&id=<%=id%> “>

<div align=”center”>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”699″ height=”8″ id=”AutoNumber2″>

<tr>

<td width=”699″ height=”8″>

<p align=”center”>&nbsp;<font face=”Tahoma” size=”5″> <b>&nbsp;HABER EKLEME</b></font><p align=”center”>

<b><font face=”Tahoma”>=

<a href=”haberler_admin.asp” style=”text-decoration: none”>

<font color=”#3466DE”>Haber Yönetim Sayfası</font></a> =</font></b></td>

</tr>

</table>

</div>

<div align=”left”>

<!–#include file=”veri_baglanti.asp” –>

<%

set halkpel_haber = Server.CreateObject(”Adodb.Recordset”)

sorgu = “Select * from haberler ORDER BY id=” &id

halkpel_haber.open sorgu,bag,1,3

%>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”816″ height=”213″ id=”AutoNumber1″>

<tr>

<td width=”148″ height=”25″ bgcolor=”#FCFCFC” bordercolor=”#808080″>

<font face=”Tahoma”>Haber Başlığı&nbsp; </font></td>

<td width=”662″ height=”26″>

<input name=”baslik” type=”text” class=”form” id=”baslik” size=”55″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC” value=”<%=halkpel_haber(”baslik”)%>”></td>

</tr>

<tr>

<td width=”148″ height=”29″ bgcolor=”#FCFCFC” bordercolor=”#808080″>

<font face=”Tahoma”>Haber Detayı&nbsp;&nbsp;&nbsp; </font></td>

<td width=”662″ height=”29″>

<textarea rows=”7″ name=”detay” id=”detay” cols=”51″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC”><%=halkpel_haber(”detay”)%></textarea></td>

</tr>

<tr>

<td width=”148″ height=”85″ bgcolor=”#FCFCFC” bordercolor=”#808080″>

<font face=”Tahoma”>Haber&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

</font></td>

<td width=”662″ height=”85″>

<textarea rows=”12″ name=”haber” id=”haber” cols=”81″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC”><%=halkpel_haber(”haber”)%></textarea></td>

</tr>

<tr>

<td width=”148″ height=”43″ bgcolor=”#FCFCFC” bordercolor=”#808080″>

<font face=”Tahoma”>Resim&nbsp; </font></td>

<td width=”662″ height=”43″>

<input name=”resim” type=”text” class=”form” id=”resim” size=”83″ style=”font-size: 10pt; font-family: Tahoma; border: 1px solid #808080; background-color: #FCFCFC” value=”<%=halkpel_haber(”resim”)%>”></td>

</tr>

<tr>

<td width=”148″ height=”22″>&nbsp;</td>

<td width=”662″ height=”22″>

<p align=”center”>

<input type=”submit” value=”KAYDET” name=”B1″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC”>&nbsp;&nbsp;&nbsp;&nbsp;

<input type=”reset” value=”HEPSİNİ SİL” name=”B2″ style=”font-family: Tahoma; font-size: 10pt; border: 1px solid #808080; background-color: #FCFCFC”></td>

</tr>

</table>

</div>

<p align=”left”>&nbsp;</p>

</form>

</body>

</html>

<% sub duzenle %>

<!–#include file=”veri_baglanti.asp” –>

<%

set halkpel_haber = Server.CreateObject(”Adodb.Recordset”)

sorgu = “Select * from haberler where id=” &id

halkpel_haber.open sorgu,bag,1,3

%>

<%

baslik = Request.Form(”baslik”)

detay = Request.Form(”detay”)

haber = Request.Form(”haber”)

resim = Request.Form(”resim”)

halkpel_haber(”baslik”) = baslik

halkpel_haber(”detay”) = detay

halkpel_haber(”haber”) = haber

halkpel_haber(”resim”) = resim

halkpel_haber.update

%>

<% response.redirect (”haber_admin.asp”)

end sub

%>

burada da veri_baglanti.asp sayfasını include ettik.

6-Dikkat etmişseniz haber_admin.asp dosyasında her kayıt için sil ve düzenle linki vardı işte silmek istediğiniz kayıt altındaki sil linkine bastığınız zaman sayfa yeni oluşturacağımız ve haber_sil.asp şeklinde adlandıracağımız sayfaya yönlenir ve kaydı siler.Kayıtlarımızı silmek için gerekli kodlama şu şekilde olacak.

<%

Response.Expires = -1000

Set id = Request.QueryString(”id”)

set con = server.CreateObject(”ADODB.connection”)

con.Open “driver={microsoft access driver (*.mdb)}; DBQ=” & server.MapPath(”veritabani.mdb”)

SQL = “delete from haberler where id=”

SQL = SQL & id

set rs=con.Execute(SQL)

Response.Redirect(”haber_admin.asp”)

%>

burada veri_baglanti.asp dosyasını include etmedim çünkü hata veriyor daha doğrusu tam verim alamıyordum bu yüzden veritabanına bağlantı kodunu gerektiği gibi yazdım.

Haber sitelerinde görmüşsünüzdür haber başlığı yanında flash veya yeni gibi hareketli gifler yanıp söner. Haberi ön planda tutmak için yapılan bu gösterimin nasıl yapıldığını açıklamaya çalışacağım.

Öncelikle veri tabanınızda ( Microsoft Access) tablonuza bir alan açın ve türünü ‘sayı’ yapın. Ardından veri ekleme formuna açılır kutu formu ekleyip iki seçenek belirleyin. 1. seçeneğimiz Yeni ve değeri 1 , 2. seçeneğimiz ise flash ve değeri 2 olsun.

Bu şekilde yeni bir kayıt eklerken Flash seçeneğini seçtiğiniz zaman sayfanızda flash resmi yanıp sönecek. (Unutmadan flash ve yeni hareketli gif resimlerini bi yerden indirin)

Şimdi sıra sayfamızda gerekli yere ( haber başılığının yanına ve ya altına) yazacağımız kodu yazalım;

<%if callaki.Fields(”flash”).Value=1 then %>

<img border=”0″ src=”flash.gif” width=”30″ height=”14″>

<%elseif callaki.Fields(”Yeni”).Value=2 then %>

<img border=”0″ src=”yeni.gif” width=”30″ height=”14″>

<%end if%>

kodlarda da görüldüğü gibi ilkinde değeri 1 olan flash seçeneğini seçtiğimizde flash.gif veya değeri 2 olan yeni seçeneğini seçtiğimizde yeni.gif yayınlanacaktır.

Not: kodlarda callaki yazısı yerine kendi kodlarınızdaki değer ile değiştirmeyi unutmayın örneğin;

<%if callaki.Fields(”flash”).Value=1 then %>

yerine

<%if rs.Fields(”flash”).Value=1 then %>

Asp’de en çok sorulan sorulardan bir tanesi üye kontrol işlemleridir.
İlk önce üye kontrol işlemlerinde hangi asp metodlarını kullandığımızı yazalım.

(Response.Expires) Sayfanın bilgisayarın Belleğinde(Cache) ne kadar tutacağını gösterir.
- Bu özelliği sayfanın bilgisayarda yedeklenmemesi için kullanacağız.
Kullanımı:
Response.Expires = 10 ‘10 dakika bilgisayarda kalır.

(Session.TimeOut) Hafıza’ya atadığımız değerlerin kaç dakika sonra son bulacağı belirtilir.
- Bu özelliği ziyaretçimiz giriş yaptıktan sonra bizim istediğimiz bir süre sayfada kalması için kullanacağız.
- Eğer hiç yazılmaz ise varsayılan süre 20 dakikadır.
- Session(Oturum) değerleri browser’ı kapatıp açınca otomatik olarak sonlandırılır.
Kullanımı:
Session.TimeOut = 50 ‘50 dakika sonra otomatik olarak hafızadaki değerler sıfırlanır

(Session(”deger”)) Hafızaya istediğimiz isimde değer atamak için kullanılır.
- Bu özelliği ziyaretçimizin izinlerini ayarlamak için kullanacağız.
- Mesela ziyaretçi daha önceden giriş yaptı ise Kullanıcı formu ekrana getirilmeyecek.
Kullanımı:
Session(”izin”)=”hayır” ‘izin ismi ile hafızaya hayır değeri kayıt ediliyor.

(SELECT) Seçim, Sql’de veritabanından kayıt seçmek için kullanılır,
- Bu metod ile Kullanıcının formda girdiği değerleri veritabanında olup olmadığını kontrol edeceğiz
- Ceviz.Net Sql bölümünde ayrıntılı olarak anlatılmıştır.

(Eof) End Of File,Dosya sonuna kadar okuma
- Bu özelliği kullanıcı’nın var olup olmadığı sorgusunda kullanacağız.
- Bu metod’u Sql ile Select(Seçim) yaptıktan sonra kullanacağız.
Kullanımı:
KayitNesnesi.Eof

Diğer özellikler script’in içerisinde açıklayalım.

Aşağıdaki kodları uye_kontrol.asp ismi ile kayıt edin.

Code:
<%’SAYFAYI CACHE’DE HİÇ TUTMAResponse.Expires = -1
‘HAFIZAYA ATADIĞIMIZ İZİN 900 DAKİKA GEÇERLİ OLSUNSession.TimeOut = 900
‘VY İSMİ İLE VERİTABANI YOLUNU GÖSTERİYORUZ’UYE_KONTROL.ASP İLE AYNI YERDE BULUNAN UYE.MDB DOSYASINI KULLANACAĞIZ.vy = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”& Server.MapPath(”uye.mdb”) ‘Access 2000
‘VB İSMİ İLE ACTİVE-X DATA OBJECT KULLANARAK ‘VERİTABANI BAĞLANTI NESNESİNİ OLUŞTURUYORUZ.set vb = Server.CreateObject(”adodb.connection”)
‘OLUŞTURDUĞUMUZ BAĞLANTI NESNESİNİ AÇIYORUZ ‘HANGİ VERİTABANINI AÇACAĞIMIZDA OPENDAN SONRA BİR BOŞLUK BIRAKARAKYAZIYORUZ.vb.open vy
‘OTURUM(SESSİON) NESNELERİ İNTERNET ADRESİNE GÖRE TUTULUR.’YALNIZ AYNI ADRES ALTINDA BİR ÇOK SİTE ‘BARINDIRILABİLİR, (BEDAVA SERVERLARDA FALAN)’HAFIZA İSMİ ALTINDA TIRNAK İÇERİSİNDE KARIŞIK BİR ŞEYLER YAZIN’AMAÇ DİĞER SİTELER SİZİN HAFIZA ADINIZI YAZARAK KAÇAK GİRİŞ ‘YAPMASIN.(ÖNEMLİDİR)hafiza = “2R0kK85″ ‘Hafıza değişkenin adı, Üye doğru giriş yapınca bu isimdeki ‘bir değişkeni kayıt edecek
‘VERİTABANINDAN SEÇİM YAPARKEN (SQL-SELECT) İLE BAZI UYANIK ZİYARETÇİLER.’KÖTÜ AMAÇLAR İÇİN SORGUMUZA SOKUŞTURMA YAPABİLİRLER ‘BUNLARI BİZ SIFIRLAYALIM’FUNCTİON KULLANARAK TOPLU İŞLEMLER OLUŞTURABİLİRİZ KODARA İSMİ ‘ALTINDA BİR FONKSİYON HAZIRLIYORZ’FONKSİYONDAKİ AMAÇ BİZİM KÖTÜ NİYETLİ GÖRDÜĞÜMÜZ ‘SORGU SOKUŞTURMALARINI ÖNLEMEK.Function kodara(duzenlenecek)’BUNU YAPMAK İÇİNDE REPLACE (DEĞİŞTİRME) ÖZELLİĞİNİ KULLANIYORUZduzenlenecek = Replace(duzenlenecek,duzenlenecek,”"& duzenlenecek &”", 1, -1, 1)’FONKSİYONA GELEN DEĞERLERDE AŞAĞIDAKİ KELİMELER VAR İSE ONLARI SIFIRLIYORUZduzenlenecek = Replace(duzenlenecek,”<”,”", 1, -1, 1)duzenlenecek = Replace(duzenlenecek,”>”,”", 1, -1, 1)duzenlenecek = Replace(duzenlenecek,”‘”,”", 1, -1, 1)duzenlenecek = Replace(duzenlenecek,”select”,”", 1, -1, 1)duzenlenecek = Replace(duzenlenecek,”union”,”", 1, -1, 1)duzenlenecek = Replace(duzenlenecek,”like”,”", 1, -1, 1)kodara = duzenlenecekEnd Function
‘BİR KISAYOL KOYALIMResponse.Write “<a href=’uye_kontrol.asp’>Üye Giriş Formu</a>”
‘ZİYARETÇİ NE YAPMAK İSTİYOR ÜYE GİRİŞİ YAPMAKMI YOKSA ÇIKMAKMI.?’QUERYSTRİNG İLE ZİYARETÇİNİN NE YAPMAK İSTEDİĞİ SORULUYOR. uyeislem=Request.QueryString(”uyeislem”)’SELECT CASE İLE ZİYARETÇİ NE YAPMAK İSTİYORSA ZİYARETÇİMİZİ ‘O BÖLÜME YOLLUYORUZ.Select Case uyeislemCase “giris” : girisCase “cikis” : cikis’HİÇ BİR ŞEY BELİRTMEMİŞ İSE GİRİS BÖLÜMÜNE YOLLUYORUZ ZİYARETÇİMİZİCase else : girisEnd Select
‘SİFRE GİR DİYE BİR BÖLÜM AÇIYORUZ’BU BÖLÜMDE ZİYARETÇİNİN KULLANICI ADINI VE ŞİFRESİNİ ‘GİRECEĞİ BİR FORM YAPIYORUZ.SUB SifreGirResponse.Write “<table align=center width=’80%’ border=’0′>”Response.Write “<tr><td align=’center’ width=’100%’ colspan=’2′>Lütfen Bilgilerinizi Giriniz.</td></tr>”Response.Write “<form method=post action=”>”Response.Write ” <tr>”Response.Write “<td align=’right’ width=’30%’>Kullanıcı Adı…:</td>”Response.Write “<td align=’left’ width=’70%’><input type=text name=ad></td>”Response.Write ” </tr>”Response.Write ” <tr>”Response.Write “<td align=’right’ width=’30%’>Şifre…:</td>”Response.Write “<td align=’left’ width=’70%’><input type=password name=sifre></td>”Response.Write ” </tr>”Response.Write ” <tr>”Response.Write “<td align=’center’ width=’100%’ colspan=’2′><input type=submit value=’Giriş’ class=tus></td>”Response.Write ” </tr>”Response.Write “</form></table>”‘Response.EndEND SUB

‘############################## ŞİFRE KORUMASI #####################’EĞER KULLANICI ADI VE ŞİFRE DOĞRU DEĞİL İSE FORM EKRANA GELİYOR.’ŞİMDİDE SAYFAMIZDA İKİNCİ BİR BÖLÜM AÇIYORUZ BU BÖLÜMDE ŞİFRE GİRİŞ FORMUMUZSUB giris
‘ASP’NİN HATA KONTROL NESNESİNDEN YARARLANIYORUZ’AMACIMIZ KULLANICIYA ANLAMSIZ VEYA BAZILARI İÇİN ANLAMLI ŞEYLER DÖKMEMEKOn error resume next
‘DAHA ÖNCEDEN FORMDAN BİLGİ GİRİLİP İZİN ALINDI İSE HİÇ BİR ŞEY YAPILMIYOR.’HAFIZIDAKİ OTURUM DEĞERİ EVET İSEIf session(”"& hafiza &”izin”)=”evet” then
‘HOŞGELDİNİZ DE ZİYARETÇİMİZE, VE ÇIKIŞ YAPABİLMESİ İÇİN BİR KISAYOL OLUŞTUR.Response.Write “Hoşgeldiniz…: “& Session(”"& hafiza &”dad”) &”,<a href=uye_kontrol.asp?uyeislem=cikis>Çıkış</a>”
‘EĞER ZİYARETÇİMİZ DAHA ÖNCE BİZDEN İZİN ALMADI İSE AŞAĞIDAKİ KODLARI YORUMLAelse
‘KULLANICI FORMDA NE GİRDİ İSE O DEĞERLERİ FAD,FSIFRE ‘DİYE DEĞİŞKENLERE ATIYORUZ.’TRİM İLE’DE FORMU GİRERKEN SAĞDAN VEYA SOLDAN BOŞLUK VERDİ ‘İSE ONLARI TEMİZLİYORUZ.fad = trim(Request.Form (”ad”))fsifre = trim(Request.Form (”sifre”))
‘FORMUN DOLDURULUP DOLDURULMADIĞINI KONTROL EDİLİYOR.’FORMDA GİRİLEN AD VEYA ŞİFRE BOŞ İSEif fad=”" or fsifre=”"then
‘SAYFANIN ÜSTÜNDE SIFRE GIR DİYE BİR BÖLÜM AÇMIŞTIK BİZ O BÖLÜMLER ‘ÇAĞIRMADAN BÖLÜMLERDEKİ KODLAR EKRANA DÖKÜLMEZ BÖLÜMLERİ ÇAĞIRMAK İÇİN ‘CALL’I KULLANIYORUZ. EĞER KULLANICI ADINI VEYA ŞİFRESİNİ YAZMADIYSA SIFREGIR ‘BOLUMUNU EKRANA GETİRKİ YAZSIN.Call Sifregir
‘SIFREGIR BÖLÜMÜNÜ ÇAĞIRDIKTAN SONRA SAYFANIN DİĞER İŞLEMLERİNİ ‘YORUMLAMASINA GEREK YOK SONLANDIRIYORUZ.Response.End
‘EĞER FAD,FSIFRE BOŞ DEĞİL İSE BU SORGUDA BİR ŞEY YAPMA,elseend if
‘ÜYE TABLOSUNDA FORMDA GİRİLEN KULLANICI ADI VARMI YOKMU BAKILIYOR’İŞTE ASIL ÖNEMLİ OLAN YER BURASI ASLINDA TÜM YAPTIĞIMIZ İŞLEMDE BU SATIR’KELİME,KELİME ANLATALIM’SELECT (SEÇ)’* TÜM ALANLARI’FROM uyeler UYE TABLOSUNDAKİ’ÜYELER TABLOSUNDAKİ TÜM ALANLARI SEÇ DEDİKTEN SONRA WHERE ‘İLE KISTAS(SÜZME) YAPIYORUZ.’uyead=’”& kodara(fad) &”‘ ÜYE AD’I FORMDA GİRİLEN ÜYE ADINA ‘EŞİT OLANLARI SEÇ’and uyesifre=’”& kodara(fsifre) &”‘ VE AYRICA UYESIFRE ALANI ‘FORMDA GİRİLEN ŞİFREYE EŞİT OLANLARI’KODARA KOYMAMIZIN SEBEBİ KÖTÜ NİYETLİ KULLANICILAR ‘SEÇİMİMİZE SOKUŞTURMA YAPMAMASIsql = “SELECT * FROM uyeler WHERE uyead=’”& kodara(fad) &”‘ and uyesifre=’”& kodara(fsifre) &”‘”
‘RS İSMİ İLE ADO NESNEMİZİN KAYIT SETİ ÖZELLİĞİNİ TANIMLIYORUZ.set rs = Server.CreateObject(”adodb.recordset”)
‘SQL İLE KAYITLARIMIZI SEÇMİŞTİK, ŞİMDİ SEÇİLEN KAYIDIMIZI ‘AÇALIM SORGULAMA YAPACAĞIZ.rs.open sql , vb , 3 , 3
‘SORGULAMIZA ŞİMDİ BAŞLIYORUZ.’SON KAYIDA KADAR OKU VE BENİM SEÇİMİMDE BİR KAYIT VARMI BAK. (EOF)’EĞER FORMDA GİRİLEN BİLGİLERE GÖRE KULLANICI ADI VE ŞİFRESİ VARMI.?’BOŞ İSEif rs.EOF then
‘UYARI MESAJI YAZDIR.Response.Write “<font color=’red’><center>Yanlış Şifre veya Parola</center></font>”
‘VE ŞİFRE GİRME BÖLÜMÜNĞÜ TEKRAR EKRANA DÖK DOĞRU OLANI GİRSİN.Call Sifregir
‘BUNDAN SONRA DİĞER İŞLEMLERİ YORUMLAMASINA GEREK YOK SIFIRLAResponse.End
‘EĞER BOŞ DEĞİL İSE’YANİ KULLANICININ FORMDA GİRDİĞİ KULLANICI ADI VE ‘ŞİFRESİ UYELER TABLOMUZDA VAR İSEelse
‘SESSİONLARA(BU OTURUMA) KULLANICI İSMİ VE İZİNİ ATANIYOR.session(”"& hafiza &”did”) = rs(”uyeno”)session(”"& hafiza &”dad”) = rs(”uyead”)session(”"& hafiza &”izin”) = “evet”
‘VE EKRANA UYARI MESAJI GETİRİLİYOR.Response.Write “Giriş Yapıldı.”
‘KULLANICI ADI VE ŞİFRESİ DOĞRUMU SORGUSU BİTİRİLİYOR.end if
‘BAĞLANTI KAPATILIYOR. (KAYIT SETİ)rs.close
‘BAĞLANTIMIZI SIFIRLIYORUZ.set rs=nothing
‘DAHA ÖNCEDEN İZİN VERİLİP VERİLMEDİĞİNİ KONTROL EDEN SORGU BİTİLİYOR.end if
‘EĞER HİÇ BİR HATA OLUŞMADI İSE BİR İŞLEM YAPILMIYOR.’HATA OLUŞTU İSE UYARI MESAJI ÇIKARILIYOR.if err.number = “0″ thenelseResponse.Write “<font class=uyari>(X) Hata Oluştu</font><br>”Err.Clearend ifOn Error Goto 0
‘VE SAYFAMIZDAKİ GİRİŞ BÖLÜMÜMÜZ BİTİRİLİYOR.END SUB’Giris’########################### ŞİFRE KORUMASI #####################

‘CIKIŞ BÖLÜMÜMÜZ OLUŞTURULUYOR. ZİYARETÇİMİZ 900 DAKİKA ‘DAN ‘ÖNCE ÇIKMAK İSTEDİ İSESub cikis
‘OTURUM İZİN DEĞERİNİ HAYIR YAPIYORUZ.session(”"& hafiza &”izin”) = “hayır”
‘UYARI MESAJI ÇIKARIYORUZ.Response.Write “Çıkış işleminiz tamamlandı.”
‘BUNDAN SONRAKİ İŞLEMLERİ SONLANDIRIYORUZ.Response.End
‘ÇIKIŞ BÖLÜMÜMÜZDE TAMAMLANMIŞ OLDU.End Sub ‘cikis
‘BAĞLANDIĞIMIZ VERİTABANINI KAPATIYOR VE SIFIRLIYORUZ.vb.closeset vb=nothing%>
Şimdi yapmamız gereken tek şey üye kontrolü yapmak istediğimiz sayfanın başına

Code:
<!–#INCLUDE FILE=”uye_kontrol.asp”–>
yazmanız.

Son önemli not eğer bu scripti kullanacak iseniz uye.mdb dosyasının ismini ve hatta yerini
Güvenliğiniz için değiştirin, uye.mdb dosyasını değiştirdikten sonra uye_kontrol.asp ‘deki
10.Satırdaki uye.mdb ismini ve yerini belirtmeyi unutmayın

bircok programlama dilinde bir degi$ken kullanilacak ise ilk once bu degi$ken tanimlanir. meslea C/C++ dillerinde int, float, char gibi ifadeler ile degi$kenin hem memorideki bit degeri hem de program icindeki tanimi belirtilir.

ASP’de bunu “dim” ifadesi ile yapabilirsiniz. ve i$in guzel tarafi, bunu yapmak zorunda degilsiniz

ornek kod:
<% Dim x
x=22 %>

<%=”ya$im: ” %>

<%=x%>

yukaridaki ornek programda bir “x” degi$keni tanimliyoruz. bu pekala herhangi bir harf veya bir kelime olabilirdi. ikinci satirda x degi$keninin icine 22 sayisini gonderdik. sonraki satirda ekrana “ya$im” kelimesini yazdirdik. hemen ardindan <%=x%> komutu ile ekrana x degi$keninin icindeki degeri yazdirdik.

dim ifadesi ile degi$ken tanimlamak sunucuya, insan gozunun algilayamayacagi kadar ufak da olsa bir hiz kazandirir. ama asil i$e yarayan tarafi, yaptiginiz bir sayfayi incelerken bu sayfada ne gibi degi$kenler kullandiginizi en ba$ta gorebilmeniz. formlar icin i$lemci sayfalar yaparken bunun nimetlerinden yararlanacaksiniz.

yukaridaki programi response nesnesi kullanarak deneyelim.

<% Dim x
x=22

response.write (”ya$im: “)
response.write(x)
%>

gordugunuz gibi bu sefer sadece bir defa <% bolmesi actik ve tum kodlari icine yerle$tirip sonra kapattik. response.write ifadesi ekrana bir $ey yazdirmak istediginiz zaman kullanacaginiz komuttur. ya$im kelimesini yazdirdiktan sonra, x degi$keninin icine attigimiz degerin ekrana yazdirilmasini istedik.

Öncelikle iki sütunlu bir tablo yapıyoruz;

<table width=”261″ align=”center” border=”1″>
<tr>
<td width=”130″>
</td>
<td width=”130″>
</td>
</tr>
</table>

belirttiğimiz gibi her iki sütunun büyüklüğü aynı olmasına dikkat edin.

Tablomuzu çizdikten sonra veri tabanına bağlanmaya yarayan kodlarımızı yazalım.

<table width=”261″ align=”center” border=”1″>
<tr>
<% set callaki = Server.CreateObject(”Adodb.Recordset”)
sorgu = “Select * from urunler order by id desc”
callaki.open sorgu,bag,1,3

bol = 3 ‘—-> Üçlü sıralama
yuzde = CInt(100/bol)

For I = 1 To callaki.RecordCount %> ‘————-> Tüm Kayıtlar Sıralansın demek(callaki.RecordCount silip yerine rakam belirtebilirsiniz. Örn. For I = 1 to 20 )

<% If not I mod bol = 0 Then %>
<td width=”130″>
</td>
<td width=”130″>
</td>
</tr>
</table>

Veri tabanına bağlanacağımız kodu <tr> tagı altına yazdığımıza dikkat edin. Yoksa sayfa ilginç bir hal alır.

Devam ediyoruz ve verilerimizi alacak kodlarımızı yazıyoruz;

<table width=”261″ align=”center” border=”1″>
<tr>
<% set callaki = Server.CreateObject(”Adodb.Recordset”)
sorgu = “Select * from urunler order by id desc”
callaki.open sorgu,bag,1,3

bol = 3
yuzde = CInt(100/bol)

For I = 1 To callaki.RecordCount %>

<% If not I mod bol = 0 Then %>
<td width=”130″>

<center><img src=”<%=callaki(”resim” ) %>” width=”102″ height=”110″></center>
<p align=”center”><br><%=callaki(”kategori” ) %><br><%=callaki(”urun_adi” ) %><br>

</td>

<td width=”130″>

<center><img src=”<%=callaki(”resim” ) %>” width=”102″ height=”110″></center>
<p align=”center”><br><%=callaki(”kategori” ) %><br><%=callaki(”urun_adi” ) %><br>

</td>
</tr>
</table>

en sonunda da açtığımız İf’i kapatıp kayıtların sıralanmasını sağlıyoruz.

En son haliyle;

<table width=”261″ align=”center” border=”1″>
<tr>
<% set callaki = Server.CreateObject(”Adodb.Recordset”)
sorgu = “Select * from urunler order by id desc”
callaki.open sorgu,bag,1,3

bol = 3
yuzde = CInt(100/bol)

For I = 1 To callaki.RecordCount %>

<% If not I mod bol = 0 Then %>
<td width=”130″>

<center><img src=”<%=callaki(”resim” ) %>” width=”102″ height=”110″></center>
<p align=”center”><br><%=callaki(”kategori” ) %><br><%=callaki(”urun_adi” ) %><br>

</td>

<td width=”130″>

<center><img src=”<%=callaki(”resim” ) %>” width=”102″ height=”110″></center>
<p align=”center”><br><%=callaki(”kategori” ) %><br><%=callaki(”urun_adi” ) %><br>

</td>

<% End If %>

<%
callaki.Movenext
Next
%>
</tr>
</table>

Veri tabanı yolunu şu şekilde belirleyip sayfanın üst kısmına yerleştirebilirsiniz.

<%
Set bag = Server.Createobject(”Adodb.Connection”)
bag.open “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(”deneme.mdb”)
%>

parola.asp adında bir dosya yaratın ve şu kodları ekleyin;

ilk önce çıkış işlemi ve eğer sayfaya girilmemiş ise (session yardımı ile) parola isteme sayfasının çıkmasını sağlayan kodlarımızı yazalım.

parola.asp ;

Code:
<%if request(”cikis”)=”evet” then session(”administrator”) = “yok”
if request(”cikis”)=”evet” then response.redirect Request.ServerVariables(”HTTP_REFERER”)
%>

<%
dim parola
parola = “123456″ ‘—> Parolanızı yazın
if session(”administrator”) <> parola then
if request.form(”administrator”) <> parola then
call parolaform
else
session(”administrator”) = parola
end if
end if
%>

<%
sub parolaform
parolasayfa = “http://” & Request.ServerVariables(”HTTP_HOST”) & Request.ServerVariables(”URL”)
%>

<%’———–Parola Formu ————————————-’%>

<p align=”center”><font color=”#FFFFFF”><b>Lütfen yönetici şifrenizi giriniz</b>
</font>
<form method=post action=”<%=parolasayfa%>”>
<p align=”center”>
<input type=”password” name=”administrator” value=”" size=”20″ class=”form”>
<br>
<font face=”tahoma, verdana, ms Sans Serif” size=”2″>
<input name=”submit” style=”font-family:Tahoma;font-size:11;border-width:1;width:100″ type=submit value=::Login::>
</font>
</form>

<%
response.end
end sub
%>
Daha sonra <!–#include file=”parola.asp”–> ekleyeceğiniz sayfaları görmek için parola girişi ekranı çıkacaktır.