Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp + Mysql Veri Sayfalama Yardım Lütfen Asp + Mysql Veri Sayfalama Yardım Lütfen
-
merhaba arkadaşlar bi portal yazdım isim vermek istemiyorum reklama kaçmasın access tabanlı portal. özellik olarak mysql ekledim db bağlantısı falan hepsi tamam fakat veri sayfalamayı yapamadım. Lütfen bilen arkadaşlar anlatabilirmi nete bakın falan demeyin internettki örnekleri deneyin demeyin denedim a eof bof hatası verdi ya verileri göstermedi yada sıralamadı :/
-
arkadaşlar işte access te çalışan kodlar bunları mysqle göre sayfalattırıcam
<%set rec = server.createobject("ADODB.Recordset")
SQL = "Select * from Forum_M where kat="&idd&" and cevap=0 and sabit=0 order by tarih desc"
rec.open SQL,baglanti,1,3
if not rec.eof then
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rec.pagesize = 20
rec.absolutepage = sayfa
sayfa_sayisi = rec.pagecount
for i=1 to rec.pagesize
if rec.eof then
exit for
end if
kilitdurum=rec("kilit")%>
<td height="23" background="Temalar/<%=tema%>/arkaplan.gif" width="4%" align="center" class="altcizgi sagcizgi"><% if kilitdurum="0" then%><img border="0" src="Temalar/<%=tema%>/Acik.gif"><%else%><img border="0" src="Temalar/<%=tema%>/Kilit.gif" title="Kilitli Konu Cevap Yazamazsınız!"><%end if%></td>
<td height="23" background="Temalar/<%=tema%>/arkaplan.gif" width="4%" class="altcizgi sagcizgi"><p align="center"><b><img border="0" src="<%=rec("simge")%>" width="16" height="16"></b></td>
<td height="23" background="Temalar/<%=tema%>/arkaplan.gif" width="62%" class="altcizgi sagcizgi"> <a href="KonuOku.asp?id=<%=rec("id")%>"><%=rec("konu")%></a><span id="<%=rec("id")%>" class="editText"> </span></td>
<td height="23" background="Temalar/<%=tema%>/arkaplan.gif" align="center" width="17%" class="altcizgi sagcizgi"><%=rec("yazan")%></td>
<td height="23" background="Temalar/<%=tema%>/arkaplan.gif" align="center" width="7%" class="altcizgi sagcizgi"><%=rec("hit")%></td>
<td height="23" background="Temalar/<%=tema%>/arkaplan.gif" align="center" width="6%" class="altcizgi"><%Set recm = Server.CreateObjecT("ADODB.RecordSet"):rSQL = "Select * FROM Forum_M WHERE cevap=1 and cid="&rec("id")&"":recm.open rSQL,Baglanti,3,3%><%=recm.recordcount%></td>
</tr>
<%
rec.movenext
Next
end if
%></table><br><br>
<%
onceki = cint(sayfa) - 1
sonraki = cint(sayfa) + 1
son = sayfa_sayisi
if onceki < 1 then
response.write ""
else
response.Write "<font style=""font-family: Tahoma; font-size: 8pt;""><a href=Forum.asp?Forum=Kat&id="&idd&"&sayfa="& g + 1&" title=""İlk Sayfa""><font face=webdings size=2>7</font></a>"
response.write "<a href=Forum.asp?Forum=Kat&id="&idd&"&sayfa=" & onceki & "><font face=webdings size=2>3</font>Önceki</font></a> "
end if
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then
response.write "<font style=""font-family: Tahoma; font-size: 8pt;"">[<font color=red style=""font-family: Tahoma; font-size: 8pt;""><b>"
response.write g& "</b></font><font style=""font-family: Tahoma; font-size: 8pt;"">] "
%><% else
response.Write "<font style=""font-family: Tahoma; font-size: 8pt;""><a href=Forum.asp?Forum=Kat&id="&idd&"&sayfa=" & g & ">" & g & "</a></font> "
end if
next
if sonraki > sayfa_sayisi then
response.write ""
else
response.write "<a href=Forum.asp?Forum=Kat&id="&idd&"&sayfa=" & sonraki & "><font style=""font-family: Tahoma; font-size: 8pt;""> Sonraki<font face=webdings size=2>4</font></a>"
response.Write "<a href=Forum.asp?Forum=Kat&id="&idd&"&sayfa="& g - 1&" title=""Son Sayfa""><font face=webdings size=2>8</font></font></a> "
end if
%>
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla