Sayfalarken En Altta Linkler Olsn.. Ama Konu Mesajından Sonra Koyuyo

Tahribat.com Forumları
line

Asp - Php - Cgi - Perl
line

Sayfalarken En Altta Linkler Olsn.. Ama Konu Mesajından Sonra Koyuyo

06/Ara/08 18:06 Kısayol Şikayet Özel Mesaj

RootB

Kayıt Tarihi: 31/Ekim/2008

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

<!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; chacevapet=iso-8859-9" />
<title>Untitled Document</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body background="images/bg.png">
<div>
<div align="center">
  <table width="80%" cellpadding="0" cellspacing="0" class="Taslak">
<tr>
  <td> </td>
</tr>
</table>
</div>
</div>
<br>
<div>
<div align="center">
  <table width="80%" cellpadding="0" cellspacing="0" class="Taslak">
<tr>
  <td colspan="3"> </td>
</tr>
<%
set rec = server.createobject("adodb.recordset")
sql="select * from Konular where id=" & request.querystring("id") & " ORDER BY id ASC"
rec.open sql,conn,1,3
%>
<%
if rec.eof then%>
<br><center><%="Böyle bir forum konusu yok!"%></center>
<%else%>
<%rec("hit")=rec("hit")+1
rec.update
end if%>
<tr>
  <td height="200" width="8" valign="top" rowspan="3"> </td>
  <td height="25" width="180" valign="top"> </td>
  <td height="200" rowspan="3" valign="top" align="left"> <%=rec("konu_icerik")%></td>
</tr>
<tr>
  <td height="90" width="180" valign="top"> </td>
</tr>
<tr>
  <td height="90" width="180" valign="top"> </td>
</tr>
</table>
</div>
<br>
</div>
<%
set cevap = server.createobject("adodb.recordset")
sql="select * from Konular where tur=0 and konusu=" & request.querystring("id") & " Order by id ASC"
cevap.open sql,conn,1,3
if (not cevap.eof) Then
%>
<% sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
cevap.pagesize = 1 'Sayfada kaç adet veri bulunacak
cevap.absolutepage = sayfa
sayfa_sayisi = cevap.pagecount
for i=1 to cevap.pagesize
if cevap.eof then
exit for
end if
%>
<div align="center">
<table width="80%" cellpadding="0" cellspacing="0" class="Taslak">
<tr>
  <td colspan="3"> </td>
</tr>
<tr>
  <td height="200" width="8" valign="top" rowspan="3"> </td>
  <td height="25" width="180" valign="top"> </td>
  <td height="200" rowspan="3" valign="top" align="left"> <%=cevap("konu_icerik")%></td>
</tr>
<tr>
  <td height="90" width="180" valign="top"> </td>
</tr>
<tr>
  <td height="90" width="180" valign="top"> </td>
</div><br>
<% cevap.movenext
   Next%>
   <%end if%>
   <%
onceki = cint(sayfa) - 1
sonraki = cint(sayfa) + 1
%>
              <%
if onceki < 1 then
response.write ""
else
response.write " <a href=forumoku.asp?sayfa=" & onceki & "&id=" & request.QueryString("id") & ">Önceki</a>"
end if
%>
 
<%
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then 'eğer bulunduğumuz sayfa ise ona link vermiyoruz
response.write "["
response.write g& "] "
%>
<% else
response.Write "<a href=forumoku.asp?sayfa=" & g & "&id=" & request.QueryString("id") & ">" & g & "</a> "
end if
next %>
 
<%
if sonraki > sayfa_sayisi then
response.write ""
else
response.write "<a href=forumoku.asp?sayfa=" & sonraki & "&id=" & request.QueryString("id") & ">Sonraki</a>"
end if
%>

</body>
</html>

Alıntı yap
06/Ara/08 18:08 Kısayol Şikayet Özel Mesaj

RootB

Kayıt Tarihi: 31/Ekim/2008

sorunu çözdüm..
çözüm : sayfalama linklerini bir table içine aldım ve en alta ekledim

Alıntı yap

Toplam Hit: 682 Toplam Mesaj: 2

Cevapla