Arkadaşlar aslında bugün online olan üyeler bloğu yapmak için uğraşıyordum. Ama başaramadım. Bunu yaptım. En son siteye giriş yapan üyeleri gösteriyor. Ben En Son Giriş Yapan 100 Üye olarak ayarladım. 100 üye çok yer kaplamaz mı diye bir korkunuz olmasın. Kendi sitemde 200 kişi olarak ayarlanmış.
Yükseklik sabit olduğu için sayıyı arttırabilirsiniz. Sağ ve sol blokta veya orta blokta kullanabilirsiniz. Her ikisinde de güzel duruyor. ekte gönderdim, Ayrıca kod olarakta ekleyeceğim.
Sayıyı
intLastSeen = 100 ' number of members last seen to display
şu kodda bulunan 100'ü değiştirerek ayarlaya bilirsiiz. resmini de ekledim.
KOD
<%
mwpThemeTitle= "En Son Giriş Yapan 100 Üye"
mwpThemeBlock_open()%>
<td onMouseOver="this.style.backgroundColor=''" onMouseOut="this.style.backgroundColor="""><font class="blok_font"><div align="center">
<div align="left" class="page" style="border:thin inset; padding:1px; height:140px; overflow:auto">
<%if strDBNTUserName = "" then
doNotLoggedInForm
else
dim intLastSeen
intLastSeen
= 100
' number of members last seen to display
%>
<% if (mlev = 4 or mlev = 3) then%>
<%=displayLastSeen%>
<%
end if
mwpThemeBlock_close()%>
<%
function DisplayLastSeen()
dim rs
set rs = server.CreateObject("adodb.recordset")
strSql = "SELECT TOP " & intLastSeen & " member_ID, m_name, m_lastheredate FROM " & strMemberTablePrefix & "MEMBERS ORDER BY M_LASTHEREDATE DESC"
rs.Open strSql, my_Conn
%>
<%
intCounter = 1
do while not rs.EOF%>
<font size="1" color="#FF0000">-»</font> <font color="#0000FF"><a href="pop_profile.asp?mode=display&id=<%=rs("member_id")%>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize-1 %>" color="#828282"><%= rs("m_name")%>
<%
intCounter = intCounter + 1
rs.movenext
loop
rs.Close
set rs = nothing
end function
end if
%>
</div>
"Bu Konuya Teşekkür Edenler":
burajan, AdmiN, ebruliheceler, ZaFeRySb, koraysadi
