ASP ile Bir Site Yapalım (4.Bölüm)

Bu dersimizde projemize İlanlarımızı ve Fotoğraf Galerimizi ekleyeceğiz ayrıca sağ alanda kayan ilanlarımız kısmını görüntüleyeceğiz.

Bu dersimizde projemize İlanlarımızı ve Fotoğraf Galerimizi ekleyeceğiz ayrıca sağ alanda kayan ilanlarımız kısmını görüntüleyeceğiz.

Değişen kodlarımız ile birlikte yeni dosyalarımızı ekleyelim.

ust.asp


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>

<!--#include file="connect.asp" -->

<!--#include file="ayaral.asp" -->

<%

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" -->

<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="#" 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="#" class="style5">Hakkımda</a> </td>

                    </tr>

<% end if %>

<% if zdefter=true then %>                    

                    <tr>

                      <td><div align="center"><% if InStr(1, gelenurl, "ziyaretcidefteri.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="#" 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="#" 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>



Sitemizin alt kısmı ilanlarımızı ekledik.
alt.asp


<!--Sitemizin alt kısmı. Yani ilanlarımız, anket uygulamamız ve tavsiye et bölümümüz. -->

<style type="text/css">

<!--

.style2 {font-size: xx-small}

-->

</style>

         <td width="8" valign="top"> </td>

            <td width="188" valign="top"><table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">

              <tr>

                <td height="4"></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" background="images/menuback.jpg" class="style5"><div align="center">İlanlar</div></td>

                    </tr>

                    <tr>

                      <td height="125" align="center"><table width="170" height="75" border="0" cellpadding="0" cellspacing="0">

                        <tr>

                          <td height="125"> 

                          <!--İlanlarımızı buraya dahil ediyoruz. -->  

                          <!--#include file="ilanlar.asp" --></td>

                        </tr>

                      </table></td>

                    </tr>

                  </table></td>

                </tr>

              </table>

              <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">

                <tr>

                  <td></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">

                      <td height="21" background="images/menuback.jpg"><div align="center" class="style5">Anket</div></td>

                    </tr>

                    <tr>

                      <td>

                      Anket Alanımızı Include edeceğimiz Alan 

                      </td>

                    </tr>

                        </table>

                  </td>

                </tr>

              </table>

              <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">

                <tr>

                  <td></td>

                </tr>

              </table>



              <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">

                <tr>

                  <td> </td>

                </tr>

              </table>

              <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">

                <tr>

                  <td></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" background="images/menuback.jpg"><div align="center" class="style5">Tavsiye Et </div></td>

                        </tr>

                          <tr>

                           <td>

                      Tavsiye Alanımızın Geleceği Yer                  

                        </td>

                      </tr>

                    </table></td>

                  </tr>

               </table>

              <table width="100%" border="0" cellspacing="0" cellpadding="0">

                <tr>

                  <td height="5"></td>

                </tr>

              </table>

               </td>

          </tr>

          

        </table></td>

      </tr>

      <tr>

        <td height="21" background="images/menuback.jpg">

                <table width="100%" border="0" cellspacing="0" cellpadding="0">

          <tr>

            <td width="24%">

            <p align="center">

                <font face="Verdana" color="#43413D"><span class="style2">designed 

                for AYSGLLHN</span></font></td>

            <td width="20%">

            </td>

            <td width="60%">

            <p align="left" class="style2"><font face="Arial" color=#808080>En iyi 1024 x 768 

            çözünürlükte görüntülenir. </font></td>

          </tr>

        </table>

        

        </td>

      </tr>

    </table></td>

  </tr>

</table><BR>

<TABLE align=center bgcolor=#FFFFFF>

<TR>

    <TD><font face color=#808080 size=1>Mustafa Coskun Â©2008 </font></TD>

</TR>

</TABLE>

<!--Yükleniyor uyarımız işlemini tamamlıyor.  -->

<script language="javascript">

<!-- 

ap_showWaitMessage('waitDiv', 0);

//--> 

                </script>

</body>

</html>






Şimdi yeni ilave olan sayfalarımıza geçelim.

ilanlar.asp


<!--Yine gerekli dosyalarımızı sayfamıza taşıyoruz. -->

<!--#include file="connect.asp" -->

<style type="text/css">

<!--

body {

    margin-top: 0px;

}

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: #666666; font-size: 9px;}

.style5 {

    font-size: 11px;

    color: #000000;

}

.style6 {color: #666666; font-size: 9px; font-weight: bold; }

.style8 {font-size: 10px; color: #FF8300; }

-->

</style>

<!--Veri tabanımıza bağlanıyoruz ve ID lerine göre sondan başa doğru verilerimizi sayfamıza çekiyoruz. -->

<%

sqlilan="select * from Ilan order by id desc"

rs.Open sqlilan, kon, 1, 3

If rs.BOF And rs.EOF Then

else 

ilan=""

do while not rs.eof 

ilan = ilan & rs("baslik") & "<br><br><br><br>"  

rs.MoveNext

loop

end if

rs.close

%>

<!--İlanlarımızı aşağıdan yukarı doğru kaymasını sağladığımız alanımız. Bu kısmı basit olarak marque tagları ile de yazabilirsiniz java ile de size kalmış. -->

<script language="JavaScript">

var mw=100     

var mh=125     

var sp=1 

var text= '<span class="style5"><%=ilan%></span>'

if (document.all)document.write('<marquee direction="up" scrollAmount='+sp+' style="width:'+mw+';height:'+mh+'">'+text+'</marquee>')

function loop() 

{

    window.location.reload() 

                    }

function loop2() 

{

    if (document.layers) { setTimeout("window.onresize=loop",350) 

    init() 

                                        } 

                                }

function init() 

{

    document.marq.document.marqEx.document.write(text)

    document.marq.document.marqEx.document.close()

    thelength=document.marq.document.marqEx.document.height

    runmarq() 

                                }

function runmarq() 

{    

    if (document.marq.document.marqEx.top>=thelength*(-1)) { 

    document.marq.document.marqEx.top-=sp 

    setTimeout("runmarq()",100)

                                        }

else 

{

    document.marq.document.marqEx.top=mh 

    runmarq() 

                            } 

                        }

window.onload=loop2

</script>






Sağ alan için kayan ilan kısmımız;

ilan.asp


<!--Yine gerekli dosyalarımızı sayfamıza taşıyoruz. -->

<!--#include file="ust.asp" -->

<div align="center">

<!--Veri tabanımıza bağlanıyoruz ve ID lerine göre sondan başa doğru verilerimizi sayfamıza çekiyoruz. -->  

  <%

sayfala=8

sayfa=cint(request.QueryString("sayfa")) 

if sayfa="" then sayfa =0 end if 

sql="select * from Ilan 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ç ilan 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/ilan.gif" alt="" width="16" height="16" /></div></td>

            <!--Başlığımızı 40 karaktere kadar sınırlayıp çekiyoruz ve kalanına da ... işaretlerimizi yazdırıyoruz. -->

            <td width="95%" class="style5"> <%=left(rs("baslik"),40)%>

                <% If len(rs("baslik"))>40 Then response.Write("...") end if%>

            </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("ilan")%> </div></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>

<!--Sitemizin ilanlar, anket,tavsiye kısmı... -->

<!--#include file="alt.asp" -->






Yine bu derste yeni olan Fotoğraf Galerisi uygulamamız.

fotogaleri.asp


<!--Yine gerekli dosyalarımızı sayfamıza taşıyoruz. -->

<!--#include file="ust.asp" -->

<%if dosya_u=true and session(dsession)="" then response.Redirect("yetkiyok.asp")    end if%>

</style>

<!--Büyük fotoğraf yeni pencerede açılacak onu burada tanımlıyoruz. --> 

 <SCRIPT LANGUAGE="JavaScript">

<!-- Begin

function galeriUp(URL) {

day = new Date();

id = day.getTime();

eval("page" + 40 + " = window.open(URL, '" + 40 + "', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=<%=galerien%>,height=<%=galeriboy%>');");

}

// End -->

 </script>

<div align="center"></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/fotogaleri.gif" alt="" width="18" height="17" /></div></td>

            <td width="95%" class="style5"> Fotoğraf Galerisi</td>

            </tr>

        </table></td>

      </tr>

      <tr>

        <td>

        

        <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">

                        <tr>

                          <td width="60%">

                            <div align="center">

<!--Veri tabanımıza bağlanıyoruz ve ID lerine göre sondan başa doğru verilerimizi sayfamıza çekiyoruz. -->                              

 <%

sayfala=6

sayfa=cint(request.QueryString("sayfa")) 

if sayfa="" then sayfa =0 end if 

sql="select * from Galeri order by id desc"

Rs.Open sql, kon, 1, 3

If RS.BOF And RS.EOF Then%>

    <div align="center"><span class="style8" style="font-size: 12px">Kayıtlarımızda herhangi bir fotograf bulunmamaktadır...</span> </div>

                        

<%else  

git = Int((sayfa * sayfala)+ 0)

rs.Move(git)

for i=1 to (sayfala2) 

if  not RS.eof then

birad=""

ikiad=""%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td height="5"></td>

  </tr>

</table>

<table width="360" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td width="180" height="20"><table width="20" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ed6578">

      <tr>

        <td><a href="javascript:galeriUp('fotogoster.asp?id=<%=rs("id")%>')"><img src="<%=rs("kucuk")%>"  border="0" /></a></td>

        <%birad=rs("adi")%>

      </tr>

    </table></td>

    <td width="180">

    <%RS.MoveNext

    if  not RS.eof or Rs.bof then%>    

    <table width="20" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ed6578">

      <tr>

        <td><a href="javascript:galeriUp('fotogoster.asp?id=<%=rs("id")%>')"><img src="<%=rs("kucuk")%>"  border="0" /></a></td>

        <%ikiad=rs("adi")%>

      </tr>

    </table>

<%end if%>    

    

     </td>

  </tr>

  <tr>

    <td height="20" class="style5"><div align="center"><%=birad%></div></td>

    <td class="style5"><div align="center"><%=ikiad%></div></td>

  </tr>

</table>

<%

if  not RS.eof or Rs.bof then 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></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>

<!--Sayfamızın alt kısmını da sitemize ekleyelim. --> 

<!--#include file="alt.asp" -->



Son olarakda fotoğraflarımızın büyük hallerini görüntüleyeceğimiz yeni pencere için kodlarımız.

fotogoster.asp

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">

<meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 

<title>Mustafa Coşkun Hayatından Kareler </title>

<!--#include file="connect.asp" -->

<!--Veri tabanımıza bağlanıyoruz ve ID lerine göre sondan başa doğru resimlerimizi sayfamıza çekiyoruz. -->  

<%

idm=request.querystring("id")

if idm<>"" and not isnumeric (idm) then

Response.Redirect "hataligiris.asp"

response.end

end if



sayfam=request.querystring("sayfa")

if sayfam<>"" and not isnumeric (sayfam) then

Response.Redirect "hataligiris.asp"

response.end

end if



 id=request.QueryString("id")

sql="select * from Galeri  where id= "&id

Rs.Open sql, kon, 1, 3

If RS.BOF And RS.EOF Then

else %>

<style type="text/css">

<!--

body {

    margin-top: 5px;

    margin-left: 5px;

}

-->

</style>

<!--Ve fotoğrafımızı sayfamıza çağırdık. -->  

<table width="42" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">

  <tr>

    <td width="38"><img src="<%=rs("buyuk")%>"  /></td>

  </tr>

</table>

<% Rs.close

End If%>




Evet diğer dersimizde Link Bankası ve Hakkımızda kısmına çalışacağız kolay gelsin.







  • Etiketler;
Mustafa Coşkun
1982 yılında Aksaray'da dünyaya geldi. İlk ve orta öğrenimini burada tamamladı. <p>2001 yılında Gaziantep Üniversitesi Yabancı Diller Bölümünde eğitime başladı. Şu anda İngilizce ve Almanca olarak sadece özel ders ve çeviri hizmeti sunuyor. <p>2005 yılında internet ve web programcılığına geçti. Bir çok şirket için freelancer & home-office olarak proje geliştirdi. Aynı şekilde bu şirketlerin danışmanlıklarını ve site dil uygulamalarını sağlıyor. <p>Bilgisayar ile olan alakası ortaokulda QBasic ile başladı. Sonra normal internet kullanıcısı olarak devam etti. Şu an ASP, ASP.net, C#.net dilleri ile proje geliştirmektedir. Ayrıca grafik olarak da aktif bir Photoshop kullanıcısıdır.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

müthiş ya çok tşkler
Çok Harika Oldu Kardesim.. Geri>> devam>> Gibi yerlere Buton Ekledim. Çok Güzel Olduuuu...
yaaa benn yaptımm çookk güzell gidiyodaa resimlerr gözükmüyoo nasıll olcakk buu:uzul::uzul:
Resimlerin olduğu klasör olmayabilir silmiş olabilirsin. Veri tabanında ismi farklı kayıt edilmiş olabilir. Dikkatli ol yaparsın kolay gelsin.
kodlarda cok fazla hata cıktı genellıkle ')' gereklı hatayı aldım her gosterılen satıra ) ekledım fakat ıkı hata varkı duzeltemıyorum. bırıncısı default.asp de 30 ncu satırda Microsoft VBScript derleme hatas&yacute; hata '800a0400' Deyim gerekli /sanalkurs/default.asp, satır 30 If len(rs("baslik"))>40 <response.Write("...")Then end if ıstıyor ve fotogaleri.asp sayfasında dw 11ncı satırı kırmızı ıle ısaretlemıs oda eval("page" + 40 + " = window.open(URL, '" + 40 + "', 'toolbar=0,scrollbars=0,lokasyon=0,statusbar=0,menubar=0,resizable=0,width=<%=galerien%>,height=<%=galeriboy%>');"; nasıl cozerım ? cunku sıteyı localhosta ızleyemıyorum :(
saolasın emeğe saygı bişey rica edeceğim ziyaretciler veya üyeler nasıl resim yüklüyor ben bil ilan sayfası yaptım başlik: isim resim: mesala ziyaretci kendi bilgisayarından resim yüklemek zorunda nasıl olacak yardımcı olrsanız cook teşekkr ederim
Bunu bir kaç değişik yolla yapman mümkün. FSO olarak yapılabilir, link ekletebilirsiniz. Tamamen size kalmış... Ama sen FSO konusuna ve upload konusuna bakarsan senin için yararlı olacaktır.

Yukarı Git