ASP ile Bir Site Yapalım (6.Bölüm)
Yazar:
Mustafa Coşkun
Eklenme: 29.05.2008 Okunma: 2431
Puan: 5 Seviyesi: Orta
Bu dersimizde ziyaretçi defterimizi ve destekleyenler sayfamızı sitemize ekleyeceğiz.
ust.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<!--#include file="connect.asp" -->
<!--#include file="ayaral.asp" -->
<!-- Aşağıdaki kodların açıklamasına buradan ulaşabilirsiniz arkadaşlar http://www.sanalkurs.net/forum/asp/aspdeki-kodlar-ve-anlamlari-t9668.0.html-->
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<!--Sitemizin başlığı otomatik olarak ayar tablomuzdan çekiyoruz -->
<title><%=baslik%></title>
<style type="text/css">
<!--
BODY{
CURSOR: url(mouseeffect.cur);
}
-->
<!--
body {
margin-top: 0px;
background-image: url('images/bgm.gif');
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: underline;
}
a:active {
text-decoration: none;
}
h1, h2, h3, h4, h5, h6 {
font-family: Verdana, Arial, Helvetica, sans-serif;
}
body, td, th {
font-family: Verdana, Arial, Helvetica, sans-serif;
}
.style2 {color: #000000; font-size: 9px;}
.style5 {font-size: 11px;
color: #000000;
}
.style6 {color: #000000; font-size: 9px; }
.style8 {font-size: 10px; color: #FF8300; }
-->
</style></head>
<!--Yükleniyor diye uzun sürecek işlemlerden önce kullanıcıya verdiğimiz uyarı. Kullanıp kullanmamak size kalmış. -->
<!--#include file="yukleniyor.asp" -->
<!--Buraya ziyaretçi defterimiz için giriş formundaki gereksiz karekterleri temizletiyoruz. -->
<%
idm=request.querystring("id")
if idm<>"" and not isnumeric (idm) then
Response.Redirect "hataligiris.asp"
end if
sayfam=request.querystring("sayfa")
if sayfam<>"" and not isnumeric (sayfam) then
Response.Redirect "hataligiris.asp"
end if
function kodtemizle(kelime)
kelime=replace(kelime, ">" , "" )
kelime=replace(kelime, "<" , "" )
kelime=replace(kelime, "%" , "" )
kelime=replace(kelime, "*" , "" )
kelime=replace(kelime, "'" , "" )
kodtemizle=kelime
end function
gelenurl=Request.ServerVariables("URL")%>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#ed6578">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="140" bgcolor="#ed6578">
<!--Veri tabanından Rasgele oluşturduğumuz bannerlarımızı görüntülüyoruz." -->
<%
sql="select * from Banner"
Rs.Open sql, kon, 1, 3
If RS.BOF And RS.EOF Then
else
Randomize
kac = Int((rs.RecordCount * Rnd)+ 0)
rs.Move(kac)%>
<img src="<%=rs("yol")%>" alt="Banner" width="780" height="142" />
<%end if
Rs.close
%></td>
</tr>
<tr>
<td height="21" background="images/menuback.jpg"><table width="100%" height="21" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="40%" class="style2"><div align="center"><!--Anasayfam yap, Sık Kullanılanlar ve Mail gönder alanımız." --><strong> <a onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=adres%>');" href="<%=Request.ServerVariables("HTTP_REFERER")%>" class="style2">Anasayfa Yap</a>| <a onClick="javascript:addbookmark()" href="<%=Request.ServerVariables("HTTP_REFERER")%>" class="style2">Sık Kullanılanlara Ekle</a> | <a href="mailto:<%=mail%>" class="style2">Bize Ulaşın</a></strong></div></td>
<td width="10%"> </td>
<td width="6%"> </td>
<td width="14%"> </td>
<td width="10%" class="style2"> </td>
<td width="16%"><div align="center" class="style2"><!--Sitede tarih görüntüleyeceğimiz alan için tarih uygulaması. --><%=now()%></div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="2" bgcolor="#ed6578"></td>
</tr>
<tr>
<td height="222" valign="top" bgcolor="#FFFFFF"><table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="188" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="182" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ed6578">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="21" colspan="2" background="images/menuback.jpg"><div align="center"><span class="style5">Ana Menü </span></div></td>
</tr>
<tr><!--Basit bir if else döngüsü ile aktif pasif link uygulaması yapabiliriz. -->
<td width="9%"><div align="center"><% if InStr(1, gelenurl, "default.asp")>0 then %><img src="images/yesil.jpg" width="9" height="11" /><%else%><img src="images/kirmizi.jpg" width="9" height="11" /><% End If %></div></td>
<td width="91%" height="15" class="style5"><a href="default.asp" class="style5">Ana Sayfa </a></td>
</tr>
<tr>
<td><div align="center"><% if InStr(1, gelenurl, "haberler.asp")>0 then %><img src="images/yesil.jpg" width="9" height="11" /><%else%><img src="images/kirmizi.jpg" width="9" height="11" /><% End If %></div></td>
<td height="15" class="style5"><a href="haberler.asp" class="style5">Haberler</a></td>
</tr>
<tr>
<td><div align="center"><% if InStr(1, gelenurl, "makaleler.asp")>0 then %><img src="images/yesil.jpg" width="9" height="11" /><%else%><img src="images/kirmizi.jpg" width="9" height="11" /><% End If %></div></td>
<td height="15" class="style5"><a href="makaleler.asp" class="style5">Makaleler</a></td>
</tr>
<tr>
<td><div align="center"><% if InStr(1, gelenurl, "ilan.asp")>0 then %><img src="images/yesil.jpg" width="9" height="11" /><%else%><img src="images/kirmizi.jpg" width="9" height="11" /><% End If %></div></td>
<td height="15" class="style5"><a href="ilan.asp" class="style5">İlanlar</a></td>
</tr>
<% if foto=true then %>
<tr>
<td><div align="center"><% if InStr(1, gelenurl, "fotogaleri.asp")>0 then %><img src="images/yesil.jpg" width="9" height="11" /><%else%><img src="images/kirmizi.jpg" width="9" height="11" /><% End If %></div></td>
<td height="15" class="style5"><a href="fotogaleri.asp" class="style5">Fotoğraf Galerisi</a> </td>
</tr>
<% end if %>
<% if link=true then %>
<tr>
<td><div align="center"><% if InStr(1, gelenurl, "linkler.asp")>0 then %><img src="images/yesil.jpg" width="9" height="11" /><%else%><img src="images/kirmizi.jpg" width="9" height="11" /><% End If %></div></td>
<td height="15" class="style5"><a href="linkler.asp" class="style5">Linkler</a></td>
</tr>
<% end if %>
<% if kim=true then %>
<tr>
<td><div align="center"><% if InStr(1, gelenurl, "kimiz.asp")>0 then %><img src="images/yesil.jpg" width="9" height="11" /><%else%><img src="images/kirmizi.jpg" width="9" height="11" /><% End If %></div></td>
<td height="15" class="style5"><a href="kimiz.asp" class="style5">Hakkımda</a> </td>
</tr>
<% end if %>
<% if zdefter=true then %>
<tr>
<td><div align="center"><% if InStr(1, gelenurl, "zdefter.asp")>0 then %><img src="images/yesil.jpg" width="9" height="11" /><%else%><img src="images/kirmizi.jpg" width="9" height="11" /><% End If %></div></td>
<td height="15" class="style5"><a href="zdefter.asp" class="style5">Ziyaretçi Defteri</a> </td>
</tr>
<% end if %>
<% if destek=true then %>
<tr>
<td><div align="center"><% if InStr(1, gelenurl, "destekleyenler.asp")>0 then %><img src="images/yesil.jpg" width="9" height="11" /><%else%><img src="images/kirmizi.jpg" width="9" height="11" /><% End If %></div></td>
<td height="15" class="style5"><a href="destekleyenler.asp" class="style5">Destekleyenler</a></td>
</tr>
<% end if %>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="182" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ed6578">
<tr>
<td>
Üye Giriş Alanı Bölümümüz
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="182" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ed6578">
<tr>
<td>
Reklam Alanımız
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
</td>
<td width="10" valign="top"> </td>
<td width="374" valign="top"><table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
</body>
destekleyenler.asp
<!--Yine gerekli dosyalarımızı sayfamıza taşıyoruz. -->
<!--#include file="ust.asp" -->
<!--Sadece üyelerin girmesi için belirttiğimiz kod bloğumuz bunu istediğiniz sayfada kullanma şansınız var tabi ayarlara da yansıtmak kaydıyla. -->
<%if destek_u=true and session(dsession)="" then response.Redirect("yetkiyok.asp") end if%>
<table width="370" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ed6578">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="21" background="images/menuback.jpg"> <span class="style5">Destekleyenler</span></td>
</tr>
<tr>
<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p align="left"><br />
<!--Veri tabanımıza bağlanıyoruz ve ID lerine göre sondan başa doğru verilerimizi sayfamıza çekiyoruz. -->
<%
sayfala=18
sayfa=cint(request.QueryString("sayfa"))
if sayfa="" then sayfa =0 end if
sql="select * from Destek"
Rs.Open sql, kon, 1, 3
If RS.BOF And RS.EOF Then%>
<span class="style8" style="font-size: 12px">Hiç destekleyen yok...</span>
<%else
git = Int((sayfa * sayfala)+ 0)
rs.Move(git)
for i=1 to sayfala
if not RS.eof then%>
<a href="<%=rs("link")%>" target="_blank" class="style5"><%=rs("adi")%></a><br /><img src="images/yatay1.jpg" width="331" height="5" /><br />
<%
RS.MoveNext
end if
next
sayfasayisi=(rs.RecordCount-1)\sayfala %>
<span class="style6"><br /> Sayfalar:
<%for a=0 to sayfasayisi%>
<span class="style6">[</span><%if sayfa<>a then%><a href="?sayfa=<%=a%>" class="style6"><%=a+1%></a></span><%else%><span class="style8"><%=a+1%></span><%end if%><span class="style6">]</span>
<%next%>
<div align="center">
<% End If
Rs.close%>
</div>
</p>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table><!--Sitemizin sağ alanını sayfamıza ekliyoruz. -->
<!--#include file="alt.asp" -->
zdefter.asp
<!--Yine gerekli dosyalarımızı sayfamıza taşıyoruz. -->
<!--#include file="ust.asp" -->
<!--Üye sınırlandırmamız. -->
<%if zdefter_u=true and session(dsession)="" then response.Redirect("yetkiyok.asp") end if%>
<div align="center">
<!--Veri tabanımıza bağlanıyoruz ve ID lerine göre sondan başa doğru verilerimizi sayfamıza çekiyoruz. -->
<!--onay=true bizim kabul ettiğimiz mesajların yayınlanması için belirlediğim SQL sorgusu --><%
sayfala=5
sayfa=cint(request.QueryString("sayfa"))
if sayfa="" then sayfa =0 end if
sql="select * from Ziyaretci_Defteri where onay=true order by id desc"
Rs.Open sql, kon, 1, 3
If RS.BOF And RS.EOF Then%>
<span class="style8" style="font-size: 12px">Veri tabaninda hiç mesaj yok...</span>
<%else
git = Int((sayfa * sayfala)+ 0)
rs.Move(git)
for i=1 to sayfala
if not RS.eof then%>
</div>
<table width="370" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ed6578">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="21" background="images/menuback.jpg" class="style5"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5%" class="style5"><div align="center"><img src="images/defter.GIF" alt="h" width="17" height="16" /></div></td>
<td width="59%" class="style5">
<!--Herhangi bir form kullandırmadan direk mesaj yazayn kişiye mail göndertebiliyoruz outlook aracılığıyla.-->
<a href="mailto:<%=rs("mail")%>" class="style5"><%=left(rs("adi"),40)%></a></td>
<td width="36%" class="style5"><div align="right"><%=rs("tarih")%> </div></td>
</tr>
</table></td>
</tr>
<tr>
<td>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="60%"><div align="justify" class="style5"><%=rs("baslik")%></div></td>
</tr>
<tr>
<td><div align="center"><img src="images/yatay1.jpg" width="331" height="5" /></div></td>
</tr>
<tr>
<td><span class="style5"><%=rs("metin")%></span></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<div align="center">
<%
RS.MoveNext
end if
next
sayfasayisi=(rs.RecordCount-1)\sayfala %>
<span class="style6">Sayfalar:
<%for a=0 to sayfasayisi%>
<span class="style6">[</span><%if sayfa<>a then%><a href="?sayfa=<%=a%>" class="style6"><%=a+1%></a></span><%else%><span class="style8"><%=a+1%></span><%end if%><span class="style6">]</span>
<%next%>
<% End If
Rs.close%>
</div>
<div align="center" class="style5">[<a href="zdefteryaz.asp" class="style5">Sende Mesaj Yaz</a>]</div>
<!--Sitemizin sag alanı yine çağırdık. -->
<!--#include file="alt.asp" -->
zdefteryaz.asp
<!--Yine gerekli dosyalarımızı sayfamıza taşıyoruz. -->
<!--#include file="ust.asp" -->
<!--Veri tabanımıza kayıt edeceğimizi temizliyoruz. Ust.asp sayfamızdaki fonksiyondan yararlanıyoruz. -->
<%
ad=trim(Request.Form("ad"))
ad=kodtemizle(ad)
mail=trim(Request.Form("mail"))
mail=kodtemizle(mail)
baslik=trim(Request.Form("baslik"))
baslik=kodtemizle(baslik)
metin=trim(Request.Form("metin"))
metin=kodtemizle(metin)
kayit=Request.Form("kayit")
if kayit<>"" and ad<>"" and mail<>"" and baslik<>"" and metin<>"" then
rs.Open "Ziyaretci_Defteri", kon, 1 , 3
rs.AddNew
rs("adi") = ad
rs("mail") = mail
rs("baslik") = baslik
rs("metin") = metin
rs("tarih") = now()
rs.Update
Response.Redirect "zdefter.asp"
rs.close
end if%>
<table width="370" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ed6578">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="21" valign="baseline" background="images/menuback.jpg"> <span class="style5"><%=baslik%> Ziyaretçi Defteri</span></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form id="deftereyazform" name="deftereyazform" method="post" action="zdefteryaz.asp">
<tr>
<td height="19" colspan="2"><div align="center" class="style5">Lütfen boş bölüm bırakmayın </div> </td>
</tr>
<tr>
<td width="21%" class="style5"> Ad Soyad:</td>
<td width="79%">
<input name="ad" type="text" class="style2" id="ad" value="<%=request.Form("ad")%>" size="20" /></td>
</tr>
<tr>
<td class="style5"> E-mail:</td>
<td>
<input name="mail" type="text" class="style2" id="mail" value="<%=request.Form("mail")%>" size="20" /></td>
</tr>
<tr>
<td class="style5"> Başlık:</td>
<td>
<input name="baslik" type="text" class="style2" id="baslik" value="<%=request.Form("baslik")%>" size="20" /></td>
</tr>
<tr>
<td class="style5"> Metin:</td>
<td><textarea name="metin" cols="50" rows="4" class="style2" id="metin"><%=request.Form("metin")%></textarea></td>
</tr>
<tr>
<td> </td>
<td><input name="kayit" type="submit" class="style5" id="kayit" value="Deftere Yaz" />
<input name="kayit2" type="reset" class="style5" id="kayit2" value="Temizle" /></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr></form>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<!--Yine sayfamızın sağ alanını dahil ediyoruz. -->
<!--#include file="alt.asp" -->
Gelecek dersimizde üye girişini ve reklam alanımızı yapacağız, kolay gelsin.
"ASP ile Bir Site Yapalım (6.Bölüm)" dersi için 8 yorum var
30.05.2008 ANUBIS
Arkadaşlar yönetim panelimizi son kısma bıraktığımız için deftere eklediğiniz mesajları onaylamak için veri tabanınızı açın ve oradan manuel olarak onaylayın. Test amaçlı yoksa yakında bunu da daha kolay bir şekilde gerçekleştirebileceksiniz. Kolay gelsin 8)
02.06.2008 atakkhan
Dostum internete attığım zaman bu atayla karşılaşıyorum görüntüyü alamıyorum
03.06.2008 ANUBIS
Arkadaşlar nete taşıdığınız dosyalar için hosting firmanızın db klasörüne izin vermesi gerekir okunabilir ve yazılabilir olması için. Yada Plesk için yazıyorum. Pleske girin klasörlerinizin olduğu alana gelin db klasörünün karşısında bir kilit göreceksiniz oraya tıklayın ve yazma izinlerinizi aktivite edin. Kolay gelsin.
20.08.2008 ortafen700
süpersin allah razı olsun
14.03.2009 Akbar
rs.update hatalırını alıyorum neden acaba
17.05.2009 mehmetdirik
sql sorunu var hocam sql sorununu nasıl çözecez???
BU DERSE YORUM EKLEYİN
UYARI: SANALKURS.net'te yer alan materyaller ile ilgili her türlü sorumluluk hazırlayan veya gönderene aittir. Yazarlar, gönderdikleri makale ve derslerle başkalarını yanıltıcı bilgi veremezler. SANALKURS.net bilgilerin kullanımı sonucunda doğacak hata ve zararlardan sorumlu tutulamaz. SANALKURS.net'te yer alan bir makale link vermek ve kaynak göstermek şartıyla başka bir sitede yayınlanabilir. SANALKURS.net kullanıcıları ve üyeleri, üçüncü kişilerin telif hakkı sahibi bulunduğu hiçbir yazı, fotoğraf, resim vb. materyal ve ürünü kullanamazlar. SANALKURS.net kullanıcı ve yazarlarının, üçüncü kişilerin telif hakkı sahibi olduğu yazı, resim vb. ürünleri izinsiz kullanması durumunda, her türlü hukuki ve cezai sorumluluk kendilerine aittir.
İSTATİSTİKLER
ÇEVRİMİÇİ
205 Ziyaretçi, 17 ÜyeYOTTAByte , Champi11 , tamerkirci , cankanr , zafercopur , racoon_tr , biosoft66 , cc-click , kazimc58 , R.avsar , CoderCrasher , hoshcocuK , Bym.ülkü , mturkyilmaz , spring35 , D_E_R_M_A_N , zeybek38 Bugün: 8988, Dün: 9785, Bu Ay: 286573, Toplam Ziyaret: 6896657, Toplam Üye: 215738, Son Üye: huseyin51 Yazılı Dersler: 2410, Video Dersler: 364, Toplam Yazar: 62, Toplam Dosya: 53, Toplam Link: 26
