Üye Girişi Yapınız     


    E-Posta
    

    Şifreniz
    



Şifremi Unuttum


Ana Sayfa Site Hakkında İletişim Ziyaretçi Defteri Döküman İndir Makale Ekle Haber Ekle

     Asp ile veritabanı işlemleri - Haberin detayına bakma.
     admin     05.04.2013     19:13:55

Daha önce Access veritabanından kayıt okuma adlı bir makale yazmıştım. Bu makalede tablomuzda kayıtlı olan haberlerin başlıklarını ve tarihlerini listeletmiştim. Şimdi haberin başlığına tıklayınca haber_detay.asp sayfasında haberin detayını(başlık, tarih, resim, detay) bilgilerini gösterelim.



Haberimizi bir önceki makalemizde aşağıdaki gibi listeletmiştik.

Şimdi haberin detayını görelim. Bunun için listeleme sırasında haber başlıklarına link vermiştik. Hatırlatmak için ilgili kodları yeniden koyuyorum.

<%
 Do while not rs.eof  ’Son kayıta gelinmemişse, dosya sonu değilse
 %> 
 <a href="haber_detay.asp?hbr_ID=<%=rs("haberid")%>">
   <% Response.Write(rs("haberbaslik"))%></a>--<%=rs("habertarih")%><br /><br />
 <% rs.MoveNext ’Sonraki kayıta geç
 loop
 bag_nesne.Close ’Bağlantıyı kapat
%>

Şimdi haber_detay.asp sayfamınız kodlarını yazalım. (<body>...</body> arasını yazıyorum.)

<body>
<%
dim bag_nesne
set bag_nesne = Server.CreateObject("ADODB.Connection")
bag_nesne.Open  "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & Server.MapPath("data/benimsitem.accdb")
Dim sqlkod,hbrID
hbrID=Request.QueryString("hbr_ID")
sqlkod="select * from haber WHERE haberid=" & Cint(hbrID)
bag_nesne.Execute(sqlkod)
Set rs = Server.CreateObject("Adodb.Recordset") 
rs.Open sqlkod,bag_nesne,1,3
Do while not rs.eof
%>
<table width="500" style="border:1px solid blue;">
 <tr>
  <td bgcolor="#CCCCCC"><%=rs("haberbaslik")%>&nbsp;&nbsp;&nbsp;<%=rs("habertarih")%></td>
 </tr>
 <tr> 
  <td><img src="<%=rs("haberresimyol")%>" width="500" height="300" /></td>
 </tr>
 <tr>
  <td><%=rs("haberayrinti")%></td>
 </tr>
 <tr>
  <td>
    <br /><a href="oku.asp">Haberlere Dön</a>  
  </td>
 </tr>
</table>
<% rs.MoveNext
loop
 bag_nesne.Close
%>
</body>


haber_datay.asp sayfasında haberin görünümü şu şekildedir.

Bir sonraki asp makalesinde görüşmek üzere. İyi çalışmalar..

Facebook'ta Paylaş    
Diğer ASP İçerikleri       Tüm Yazılar        Ana Sayfa


  =>Soru Sorun veya Yorum Yazın...

İsim Giriniz :
  

  =>Yapılan Yorumlar...