online uyeleri sıralama

12-10-2008, 19:21:19

Üyeliği durduruldu

merhaba arkadaslar arkadaslık sitesinde online uyeleri 20 uyeden sonra 123346 sayfa olarak her sayfada 20 uye olacak sekilde nasıl yapabilirim yardımcı olabilirmisiniz

Alıntı

<%
sql="SELECT * FROM uye WHERE DateDiff(""n"",son,Now)<=35 AND online=true ORDER BY son DESC"
Set online=Conn.Execute(sql)

sql="SELECT COUNT(*) FROM uye WHERE DateDiff(""n"",son,Now)<=35 AND online=true"
Set say_uye=Conn.Execute(sql)
sayi=say_uye(0)

On Error Resume Next
i=0
If sayi=0 Then
%>
<%
Else
%>
<table width="95%" cellpadding="0" cellspacing="2" align="center">

<tr >
<td>

<DIV align=center>

<TABLE style="BORDER-COLLAPSE: collapse" height=152 width=400 border=0>
<TBODY>
<TR>

<%
If Not online.Eof Then

Do While Not online.Eof
i=i+1

if i<21 then

If online("sehir")=0 Or online("sehir")=99 Then
sehri="Yurtdışı"
Else
sql="SELECT * FROM uye_sehir WHERE id=" & online("sehir")
Set sehir=Conn.Execute(sql)
sehri=sehir("isim")
End If

If online("cins")=1 Then
cinsi="Bay"
Else
cinsi="Bayan"
End If
yasi=Right(Date,4)-Right(online("dogum"),4)
i2=i2+1
%>

<%If 7=0 Then%>
<TABLE style="BORDER-COLLAPSE: collapse" height=152 width=384 border=0>
<TBODY>
<TR>
<%end if%>

<TD align=left width=382>
<TABLE id=table72 style="BORDER-COLLAPSE: collapse" borderColor=#c0c0c0 width=84 border=1>
<TBODY><TR><TD>
<DIV align=center>
<div align="left">
<TABLE id=table71 style="BORDER-COLLAPSE: collapse" width="93%" bgColor=#ffffff border=0>
<TBODY><TR><TD borderColor=#ffffff align=middle bgColor=#f0edfe colSpan=3>
<b>
<FONT style="FONT-SIZE: 8pt" face=Arial color=#FFFFFF><a href="#" OnClick="popup('uye.asp?id=<%=online("id")%>','uye ',483,494,1)">
<font color="#FF0000"><%=online("nick")%>.</font></a></FONT></TD></TR>
<TR><TD borderColor=#ffffff align=middle colSpan=3 height=110>
<P align=center>
<%

sql="SELECT * FROM resim WHERE uye_id=" & online("id")
Set resim_bayan=Conn.Execute(sql)

If resim_bayan.Eof Then
if online("cins")=1 then
bayan = "yok_1.gif"
else
bayan = "yok_2.gif"
end if
Else
bayan = resim_bayan("resim")
End If

%><%If bayan<>"yok_2.gif" and bayan<>"yok_1.gif" Then%><a href="#" OnClick="popup('resim_goster.asp?isim=<%=bayan%>&i d=<%=resim_bayan("id")%>','resim',300,200,1)"><%En d If%><img border="0" src="uye_resim/<%=bayan%>" width="76" height="91"><%If bayan<>"yok_2.gif" and bayan<>"yok_1.gif" Then%></a><%End If%>
</P></TD></TR></TD></TR>
<TR><TD borderColor=#ffffff align=middle width="50%">
<IMG height=11 src="http://www.arkadasiniz.com/images/nokta_online.gif" width=12 align=left border=0><font color="#800080">
<%=sehri%></TD>
<TD borderColor=#ffffff align=middle width="41%" height=2><FONT style="FONT-WEIGHT: 700; FONT-SIZE: 8pt" face=Arial color=#800080>
<P align=right><%=yasi%></FONT></P></TD></TR>
</TBODY></TABLE>
</div>
<TABLE id=table87 height=24 cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD vAlign=top>
<P align=center><b><SPAN style="FONT-SIZE: xx-small"><a href="#" OnClick="popup('mesaj.asp?bolum=yeni&ext=<%=online ("nick")%>&refresh=no','mesaj',483,494,1)" title=" Özel Mesaj Gönder : <%=online("nick")%> ">
<img src="images/send_message_1.gif" border="0"></a></span></b><br>
<b><SPAN style="FONT-SIZE: xx-small"><a href="#" OnClick="popup('mesaj_liste.asp?bolum=yeni_engel&e xt=<%=online("nick")%>','popup',300,200,1)" title=" Engel Listeme Kaydet : <%=online("nick")%> ">
<font color="#FFFFFF">Engelle</font></a></td></span></b></P></TD></TR></TBODY></TABLE>
</DIV></TD></TR></TBODY></TABLE></TD>

<%If i mod 4=0 Then%>
</TR></TBODY></TABLE>

</DIV >

</td>
</tr>
</table>
<%
sql="SELECT COUNT(*) FROM uye WHERE aktif=true"
Set tum_uye=Conn.Execute(sql)
tum=tum_uye(0)

sql="SELECT * FROM uye WHERE DateDiff(""n"",son,Now)<=35 AND online=true ORDER BY son"
Set tum_online=Conn.Execute(sql)

If tum_online.Eof Then
tum_on = 0
Else
tum_on=tum_online(0)
End If
%>
<center>
<b>
<a href="online.asp"><font color="#FF0000">[ Tüm Online Üyeler<%If i>12 Then%>i
goruntulemek icin tıklayın (<%=i%>)<%End If%> ]<%If tum_on>0 Then%></font></a><font color="#FF0000"><%End If%>
</font></b>
</center>
<p> </p>

<%
End If
%>

24-10-2008, 18:29:33

#2

~~roberti~~

Üyeliği durduruldu

yokmu yardım edecek birisi

24-10-2008, 18:49:48

#3

iSo

o w -arez scripti adam etmeye calısacagına kendin bir script yaz. daha iyi.

w-arez karşıyım.

27-10-2008, 00:51:10

#4

Aspffice

Oyunsu sende warezsin o zaman bende sana karşıyım arkadaş yazamıcak konumdaki çabalıyor. bilmiyorsan yazmana gerek yok.

Roberti
Online üyeleri listeleyip. birde online üyelerin olduğu bir sayfada gösterimini yapabilirsin yalnış anlamada kimse sana burda hazır kodu yazıp önüne sunmaz.. aspindir.com da örnek uygulamaları editleyip kendi vt'ne ve bağlantına göre düzenleyip halledebilirsin..

27-10-2008, 15:44:15

#5

erolife

Kimlik doğrulama veya yönetimden onay bekliyor.

varitabanı olarak mysql mi access mi kullanıyorsun ? Ona göre kod vereyim.

27-10-2008, 17:11:59

#6

Peksoft

erolife adlı üyeden alıntı: mesajı görüntüle

varitabanı olarak mysql mi access mi kullanıyorsun ? Ona göre kod vereyim.

Mysql sayfalama kodu verebilirmisin.

27-10-2008, 17:25:33

#7

erolife

MySQL için benim kullandığım sayfalama kodunun basitleştirilmiş hali aşağıda.

çalışan halini http://www.eniyisecenek.com/sayfa.asp?sayfa=1 adresinden kontrol edebilirsiniz.

<% 
 Function VeriSay(SQL)
  set objRs1 = objConn.Execute(SQL)
   if objRs1(0) = "0" Then
    VeriSay = 0
   else
    VeriSay = objRs1(0)
   end if
  objRs1.Close
  Set objRs1 = Nothing
 End Function
 
 
  iSayfa = Request.QueryString("sayfa")
  iKayitSayi = 20
   if Not Isnumeric(iSayfa) OR iSayfa = "" Then
    iSayfa = 1
    iBaslangic = 0
   else
    iBaslangic = (iSayfa-1)*iKayitSayi
   end if
     strSQL = "SELECT * FROM tblTabloAdi ORDER BY fldFieldID DESC limit "& iBaslangic &", "& iKayitSayi
   set objRs = objConn.Execute(strSQL)
  %>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
 
 <% if Not objRs.EOF Then
  i = iBaslangic
  Do While Not objRs.EOF %>
    <tr>
    <td width="4%" valign="top"><div align="center"><% =i+1 %></div></td>
    <td width="96%" valign="top"><% =objRs("fldFieldAdi") %></td>
  </tr>
  <% objRs.MoveNext
    i = i+1
    Loop
  %>
  <% iToplamSayi=VeriSay("SELECT COUNT(*) FROM tblTabloAdi") %>
  <tr>
    <td colspan="2"><div align="center">
 
   <% 
    for i = 1 To int(Replace(iToplamSayi,".",",")/iKayitSayi)+1
     if i = int(iSayfa) Then
    %>
    <strong><% =i %></strong>&nbsp;
    <% else %>
    <a href="sayfa.asp?sayfa=<% =i %>"><% =i %></a>
 
<%      end if
    next %>
    </div></td>
  </tr>
    <%
 
end if %> 
</table>

Umarım işinizi görür

27-10-2008, 17:51:34

#8

Peksoft

Teşekkür ederim.

27-10-2008, 18:18:55

#9

Peksoft

<%
KayitSayisi = 5
If Request.QueryString("say") <> "" Then
Sayfa = CInt(Request.QueryString("say"))
Else
Sayfa = 1
End If
strSQL = "SELECT * FROM blog where kat="& id &" order by id asc LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi&""
Set listele = baglanti.Execute(strSQL)
Set SQLTop = baglanti.Execute("SELECT COUNT(id) FROM blog where kat="& id &" ")
TopKayit = SQLTop(0)
i=1
Set kategori = baglanti.execute("select * from kategori where kat="&  id &" ")
kategori = kategori("kategori")


if listele.eof then
response.write "Henüz bu kategoriye program eklenmemiş."
end if
Do While Not listele.Eof
adi = listele("baslik")
%>
<a href="/oku/<%=listele("id")%>-<%=cevir(adi)%>"><h1><%=adi%></h1></a>
<%=temiz(left(listele("icerik"),275))%> <br />
<%
i=i+1
listele.MoveNext
Loop

If CInt(TopKayit) > CInt(KayitSayisi) Then
SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi)
Response.Write "Toplam "&Cint(SayfaSayisi)&" sayfa var "&Cint(Sayfa)&". sayfadasınız."
If NOT Sayfa = "1" then
Response.Write "<a href=?say=1>&nbsp;«</a>"
Response.Write "<a href=?say=" & Sayfa-1 & ">&nbsp;<</a>"
End If
If Sayfa-1 > 99 then
Response.Write "<a href=?say=" & Sayfa-100 & ">&nbsp;" & Sayfa-100 & "</a>"
End If
If Sayfa-1 > 49 then
Response.Write "<a href=?say=" & Sayfa-50 & ">&nbsp;" & Sayfa-50 & "</a>"
End If
If Sayfa-1 > 9 then
Response.Write "<a href=?say=" & Sayfa-10 & ">&nbsp;" & Sayfa-10 & "</a>"
End If

If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1

If cint(Sayfa) = 2 then
GeriKac = 1
ElseIf cint(Sayfa) = 3 then
GeriKac = 2
ElseIf cint(Sayfa) = 4 then
GeriKac = 3
Else
GeriKac = 4
End If
If cint(Sayfa) = 1 and Cint(SayfaSayisi) = 4 then
IleriKac = 3
ElseIf cint(Sayfa) = 1 and Cint(SayfaSayisi) = 3 then
IleriKac = 2
ElseIf cint(Sayfa) = 1 and Cint(SayfaSayisi) = 2 then
IleriKac = 1
Else
IleriKac = 4
End If
If Cint(SayfaSayisi)-Sayfa = 1 then
IleriKac2 = 1
ElseIf Cint(SayfaSayisi)-Sayfa = 2 then
IleriKac2 = 2
ElseIf Cint(SayfaSayisi)-Sayfa = 3 then
IleriKac2 = 3
ElseIf Cint(SayfaSayisi)-Sayfa = 0 then
IleriKac2 = 0
Else
IleriKac2 = 4
End If

If cint(Sayfa) = 1 then
for y=1 to IleriKac
if y=cint(Sayfa) then
response.write "<b>"&y&"</b>"
else
response.write "<a href=""?say="&y&""">&nbsp;"&y&"</a>"
end if
next
ElseIf cint(Sayfa) = SayfaSayisi then
for y=Sayfa-GeriKac to SayfaSayisi
if y=cint(Sayfa) then
response.write "<b>&nbsp;"&y&"</b>"
else
response.write "<a href=""?say="&y&""">&nbsp;"&y&"</a>"
end if
next
Else
for y=Sayfa-GeriKac to Sayfa+IleriKac2
if y=cint(Sayfa) then
response.write "<b>"&y&"</b>"
else
response.write "<a href=""?say="&y&""">&nbsp;"&y&"</a>"
end if
next
End If
If Cint(SayfaSayisi)-Sayfa > 9 then
Response.Write "<a href=?say=" & Sayfa+10 & ">&nbsp;" & Sayfa+10 & "</a>"
End If
If Cint(SayfaSayisi)-Sayfa > 49 then
Response.Write "<a href=?say=" & Sayfa+50 & ">&nbsp;" & Sayfa+50 & "</a>"
End If
If Cint(SayfaSayisi)-Sayfa > 99 then
Response.Write "<a href=?say=" & Sayfa+100 & ">&nbsp;" & Sayfa+100 & "</a>"
End If
If Cint(SayfaSayisi)-Sayfa > 0 then
Response.Write "<a href=?say=" & Sayfa+1 & ">&nbsp;></a>"
End If
End If
%>

Arkadaşlar bu şekilde kategorilerdeki kayıtları sayfalıyorum ama diğer sayfaya geçmiyor, tıklıyorum yine ilk sayfa geliyoru, sorun nerde bakabilirmisiniz.