ilgili haberler: konusuna gelince.Arkadaşlar ben de bu işin uzmanı değilim.Amatorce uğraşıyorum. Özellikle istanbuldahayat.com sitesi burada gösterilip de hiçbir özelliği paylaşılmadığı için onlara kızgınım.
Aslında paylaşmadıkları iyi de oldu.Bizde kolları sıvayıp kendimiz uğraştık ve birşeyler öğrendik böylelikle.
Haber_oku.asp dosyasını açın,
<div id="puan_ver">kodunu bulun ve bu kodun üzerinde olacak şekilde şu kodları yapıştırınız.
Sef sürümünde çalışmayabilir.Sef sürümünde urller farklı.
<b>Benzer Konular:</b>
<%
'// Arama verileri alınıyor
test= strHaberBaslik
strArananKelime = Left(test,6)
if Len(strArananKelime) >= 3 Then blnAra = True
'// Veritabanı sorgulaması yapılıyor
SQL = "SELECT haberID, kategori, baslik, ozet, tarih, editor, yorum, onemli, onay, resim, okunma"
SQL = SQL & " FROM tblHaberler WHERE durum=True AND onay=True "
SQL = SQL & "and (baslik LIKE '%" & strArananKelime & "%' OR ozet LIKE '%" & strArananKelime & "%' OR haber LIKE '%" & strArananKelime & "%')"
SQL = SQL & " ORDER BY onemli ASC, Tarih DESC, haberID DESC"
kdGenel.Open SQL, adoCon, 1, 3
intToplam = kdGenel.RecordCount %>
<%
'// Veritabanında uygun kayıt yoksa hata mesajı önleniyor
If intToplam = 0 Then
Response.Write("<div class=""uyari"">")
'// Arama yapılmışsa
If blnAra Then
Response.Write "<p><img src=""img/sari_uyari.png"" /></p><p>Benzer Konu Bulunamadı.</p>"
End If
Response.Write("</div>")
'// Uygun kayıt varsa listeleniyor
else
Response.Write "<table widş=""100%"" ><tr>"
'// Bir sayfada gösterilecek kayıt sayısı alınıyor
'// Şuanda bulunulan sayfa bulunuyor
If Temizle(Request.QueryString("SF")) = "" Then
G_Kayit = 1
Else
G_Kayit = CInt(Temizle(Request.QueryString("SF")))
End If
'// Kayıtlar gösterilmeye başlanıyor
Do while intLooper < intHaberSayisi And Not kdGenel.Eof
'// Veritabanından bilgiler alınıyor
intHaberID = kdGenel("haberID")
strHaberBaslik = kdGenel("baslik")
blnHaberYorum = kdGenel("yorum")
strHaberResim = kdGenel("resim")
intHaberEditor = kdGenel("editor")
dtmHaberTarih = kdGenel("tarih")
strHaberOzet = kdGenel("ozet")
intHaberKategori = kdGenel("kategori")
intHaberOkunma = kdGenel("okunma")
'// Yorum Sayısı Bulunuyor
If blnHaberYorum Then
SQL = "SELECT * FROM tblYorumlar WHERE haber="& intHaberID &" AND durum = True"
kdYardimci.Open SQL, adoCon, 1, 3
intHaberYorumSayisi = kdYardimci.RecordCount
kdYardimci.Close
End If %>
<td widş="50%"><div><%
'response.Write(inttoplam)
Response.Write("<a href=""haber_oku.asp?haber="& intHaberID &""">"& strHaberBaslik &"</a>")
intLooper = intLooper + 1
If intLooper Mod 2 = 0 Then Response.Write "</tr><tr>"
kdGenel.MoveNext
Loop
Response.Write "</table>"
End If
kdGenel.Close %>
en üsste değişkenlerin tanımlandığı alana
Dim blnAra
ekleyin,bu kadar.seckin2007-09-27 20:13:12