 ANASAYFAYA DÖN  "><%=rscat("kategori")%> |
<%
Set gkn2 = Server.CreateObject("ADODB.Recordset")
sor2 = "Select * from haber where id=" &hid
gkn2.Open sor2,Sur,1,3
hit=gkn2("hit")
hit=hit+1
gkn2("hit")=hit
gkn2.update
hcat=gkn2("kategori")
%>
<%
Set gkno = Server.CreateObject("ADODB.Recordset")
soro = "Select * from haber where onay=1 and manset=1 ORDER BY id desc"
gkno.Open soro,Sur,1,3
%>
<%=gkn2("haberbaslik")%> |
 " border="0" width="231" height="188"> |
<%=gkn2("haberkisa")%>
|
Bu haber <%=gkn2("hit")%> defa, PCTIME
<%
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile = Server.MapPath ("admin/hit.txt")
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
gkno.close()
set gkno = nothing
%>
Toplam <% =CounterHits %>
defa ziyaret edildi.
|
|
<%if yorum=1 then%>
<%
Set gkn3 = Server.CreateObject("ADODB.Recordset")
sor3 = "Select * from yorum where onay=1 and haberid=" & hid & " order by id desc"
gkn3.Open sor3,Sur,1,3
yorumsayi=gkn3.recordcount
%>
| Bu Habere Yapılan Yorumlar (<%=yorumsayi%>) |
<%
i=1
do while i < 4 and not gkn3.eof
%>
 <%=gkn3("baslik")%>
<%
yorum=Left(gkn3("yorum" ), 95)
%>
<%=yorum%>... ','yorumoku','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=0,width=500,height=400')">Devamı>> |
<% yuyid=gkn3("uyeid")
Set gknu = Server.CreateObject("ADODB.Recordset")
soru = "Select * from uye where uyeid=" & yuyid
gknu.Open soru,Sur,1,3
%>
<%=gknu("ad")%> <%=gknu("soyad")%> -- <%=gkn3("tarih")%>
|
<%
gkn3.movenext
i=i+1
Loop
%>
Tüm Yorumlar
|
<%end if
gkn3.close()
set gkn3 = nothing %>
| " class="baslik2 style186"> <%=rscat("kategori")%> Haberleri |
Yeni Haberler |
| <%
Set rsbbs0 = Server.CreateObject("ADODB.Recordset")
sorbbs0 = "Select * from haber where onay=1 and kategori="&katid&" ORDER BY id desc"
rsbbs0.Open sorbbs0,Sur,1,3
%>
<%
i=0
do while i < 10 and not rsbbs0.eof
%>
<%
rsbbs0.movenext
i=i+1
Loop
%> |
<%
Set rsbbs0 = Server.CreateObject("ADODB.Recordset")
sorbbs0 = "Select * from haber where onay=1 ORDER BY id desc"
rsbbs0.Open sorbbs0,Sur,1,3
%>
<%
i=0
do while i < 10 and not rsbbs0.eof
%>
<%
rsbbs0.movenext
i=i+1
Loop
rsbbs0.close()
set rsbbs0 = nothing%> |
|
<%
Set rsbbs0 = Server.CreateObject("ADODB.Recordset")
sorbbs0 = "SELECT * FROM haber WHERE onay=1 And DateDiff('d',tarih,Now())<8 And DateDiff('d',tarih,Now())>0 ORDER BY hit DESC"
rsbbs0.Open sorbbs0,Sur,1,1
if not rsbbs0.eof then
%>
<%
i=0
do while i < 2 and not rsbbs0.eof
%>
<%
rsbbs0.movenext
i=i+1
Loop
%>
<% rsbbs0.close()
set rsbbs0 = nothing
end if %>
| |
İSTATİSTİKLER |
Toplam
<%Set rs2 = Server.CreateObject("ADODB.Recordset")
sor2 = "Select * from haber"
rs2.Open sor2,Sur,1,3
toplam=rs2.recordcount
%>
<%=toplam%> haber var
Toplam
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * from haberhittopla"
rec.open rSQL,Sur,3,3
haberhiti=rec("toplahit")
%>
<%=haberhiti%> kez okundu
Ortalama
<%
bolum=haberhiti/toplam
%>
<%=Left(bolum,3)%> okunma |
| |
|
|
HATIRLADIKLARIMIZ |
| <%
Set rsbbs0hatir = Server.CreateObject("ADODB.Recordset")
sorbbs0hatir = "SELECT * FROM haber WHERE onay=1 And DateDiff('d',tarih,Now())>30 ORDER BY id DESC"
rsbbs0hatir.Open sorbbs0hatir,Sur,1,3
if not rsbbs0hatir.eof then
%>
<%
i=0
do while i < 1 and not rsbbs0hatir.eof
%>
<%randomize
random= Int ((Rnd*rsbbs0hatir.recordcount)+0)
rsbbs0hatir.move(random)
%>
<%=rsbbs0hatir("haberbaslik")%> " class="style136">
|
|
|
|
|
")
End If %>
<%
Set rsbbssd0 = Server.CreateObject("ADODB.Recordset")
sorbsdbs0 = "Select TOP 5 * from encokokunanlar"
rsbbssd0.Open sorbsdbs0,Sur,1,3
%>
<%
i=0
do while i < 1 and not rsbbssd0.eof
%>