Bu gün Forumu ziyaret eden üyeler eklentisi

|
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center"> <tr class="tableLedger"> <td colspan="2"><% = strTxtWhatsGoingOn %></td> </tr> <tr class="tableSubLedger"> <td colspan="2"><% = strTxtForumStatistics %></td> </tr> <tr class="tableRow"> <td width="5%" align="center"><img src="<% = strImagePath %>forum_statistics.<% = strForumImageType %>" alt="<% = strTxtForumStatistics %>" title="<% = strTxtForumStatistics %>" /></td> <td width="95%" nowrap="nowrap"><%Response.Write(strTxtOurUserHavePosted & " " & FormatNumber(lngTotalNumberOfPosts, 0) & " " & strTxtPostsIn & " " & FormatNumber(lngTotalNumberOfTopics, 0) & " " & strTxtTopicsIn & " " & intNumberofForums & " " & strTxtForums & _ "<br />" & strTxtLastPost & "; " & DateFormat(dtmLastEntryDateAllForums) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDateAllForums) & " " & strTxtBy & " <a href=""member_profile.asp?PF=" & lngLastEntryUserIDAllForums & strQsSID2 & """ rel=""nofollow"">" & strLastEntryUserAllForums & "</a>")'Display some statistics for the members If lngNoOfMembers > 0 ThenResponse.Write("<br />" & strTxtWeHave & " " & FormatNumber(lngNoOfMembers, 0) & " " & strTxtForumMembers & _ "<br />" & strTxtTheNewestForumMember & " <a href=""member_profile.asp?PF=" & saryMemebrStats(1,0) & strQsSID2 & """ rel=""nofollow"">" & saryMemebrStats(0, 0) & "</a>")End If%></td> </tr> <%'Get the number of active users if enabled If blnActiveUsers Then %> <tr class="tableSubLedger"> <td colspan="2"><a href="active_users.asp<% = strQsSID1 %>"> <% = strTxtActiveUsers %> </a></td> </tr> <tr class="tableRow"> <td width="5%" align="center"><a href="active_users.asp<% = strQsSID1 %>"><img src="<% = strImagePath %>active_users.<% = strForumImageType %>" alt="<% = strTxtActiveUsers %>" title="<% = strTxtView & " " & strTxtActiveUsers %>" border="0" /></a></td> <td width="95%"><% 'Get the active users online For intArrayPass = 1 To UBound(saryActiveUsers, 2) 'If this is a guest user then increment the number of active guests veriable If saryActiveUsers(1, intArrayPass) = 2 Then intActiveGuests = intActiveGuests + 1 'Else if the user is Anonymous increment the Anonymous count ElseIf CBool(saryActiveUsers(8, intArrayPass)) Then intAnonymousMembers = intAnonymousMembers + 1 'Else add the name of the members name of the active users to the members online string ElseIf CBool(saryActiveUsers(8, intArrayPass)) = false Then If strMembersOnline <> "" Then strMembersOnline = strMembersOnline & ", " strMembersOnline = strMembersOnline & "<a href=""member_profile.asp?PF=" & saryActiveUsers(1, intArrayPass) & strQsSID2 & """ rel=""nofollow"">" & saryActiveUsers(2, intArrayPass) & "</a>" End If Next'Calculate the number of members online and total people online intActiveUsers = UBound(saryActiveUsers, 2) 'Calculate the members online by using the total - Guests - Annoymouse Members intActiveMembers = intActiveUsers - intActiveGuests - intAnonymousMembersResponse.Write(strTxtInTotalThereAre & " " & intActiveUsers & " <a href=""active_users.asp" & strQsSID1 & """>" & strTxtActiveUsers & "</a> " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuests & ", " & intActiveMembers & " " & strTxtMembers & ", " & intAnonymousMembers & " " & strTxtAnonymousMembers) If strMembersOnline <> "" Then Response.Write(vbCrLf & " <br />" & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline) End If%> </td> </tr> <%'If birthdays is enabled show who has a birthday today If strBirthdays <> "" Then %> <tr class="tableSubLedger"> <td colspan="2"><% = strTxtTodaysBirthdays %></td> </tr> <tr class="tableRow"> <td width="5%" align="center"><img src="<% = strImagePath %>todays_birthdays.<% = strForumImageType %>" alt="<% = strTxtTodaysBirthdays %>" title="<% = strTxtTodaysBirthdays %>" /></td> <td width="95%"><% = strBirthdays %></td> </tr> <% End If %> <tr class="tableSubLedger"> <td colspan="2">Bugün Forumu Ziyaret Eden Üyeler</td> </tr> <tr class="tableRow"> <td width="4%" align="center"><img src="<% = strImagePath %>active_users.gif" alt="<% = strTxtActiveUsers %>" /></td> <td width="96%"><% Dim Num Num = 0 Dim Visiters_of_Members_Today Dim LngMmeber_Vistor_ID Dim GroupID_typeIf strDatabaseType = "SQLServer" Then strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID " strSQL = strSQL & "FROM tblAuthor " strSQL = strSQL & "where day(tblAuthor.Last_visit) = day(getdate()) and month(tblAuthor.Last_visit) = month(getdate()) and year(tblAuthor.Last_visit) = year(getdate()) " strSQL = strSQL & "ORDER BY tblAuthor.Last_visit DESC;" Else strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID " strSQL = strSQL & "FROM tblAuthor " strSQL = strSQL & "where day(tblAuthor.Last_visit) = day(Date()) and month(tblAuthor.Last_visit) = month(Date()) and year(tblAuthor.Last_visit) = year(Date())" strSQL = strSQL & "ORDER BY tblAuthor.Last_visit DESC;" End If'Query the database rsCommon.Open strSQL, adoCondo while NOT rsCommon.EOF Num = Num + 1 Visiters_of_Members_Today = rsCommon("Username") LngMmeber_Vistor_ID = rsCommon("Author_ID") GroupID_type = rsCommon("Group_ID") If GroupID_type = 1 Then Response.Write(vbCrLf & " <span class=""smltext""><a title=""Yönetici-Profil Ýçin Týklayýn"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & strQsSID2 &""" class=""tHeading""><font color=""#FF0000"">" & Visiters_of_Members_Today & "</font></a></span>") If GroupID_type = 3 Then Response.Write(vbCrLf & " <span class=""smltext""><a title=""Moderatör-Profil Ýçin Týklayýn"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & strQsSID2 &""" class=""tHeading""><font color=""#008000"">" & Visiters_of_Members_Today & "</font></a></span>") If GroupID_type = 4 Then Response.Write(vbCrLf & " <span class=""smltext""><a title=""Yeni Üye-Profil Ýçin Týklayýn"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & strQsSID2 &"""><font size=""1"" color=""#2755AB"">" & Visiters_of_Members_Today & "</font></a></span>") If GroupID_type = 5 Then Response.Write(vbCrLf & " <span class=""smltext""><a title=""Üye-Profil Ýçin Týklayýn"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & strQsSID2 &"""><font size=""1"" color=""#FF33CC"">" & Visiters_of_Members_Today & "</font></a></span>") If GroupID_type = 6 Then Response.Write(vbCrLf & " <span class=""smltext""><a title=""Kýdemli Üye-Profil Ýçin Týklayýn"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & strQsSID2 &"""><font size=""1"" color=""#00CCFF"">" & Visiters_of_Members_Today & "</font></a></span>") If GroupID_type > 6 Then Response.Write(vbCrLf & " <span class=""smltext""><a title=""Kýdemli Üye-Profil Ýçin Týklayýn"" href=""member_profile.asp?PF=" & LngMmeber_Vistor_ID & strQsSID2 &"""><font size=""1"" color=""#00CCFF"">" & Visiters_of_Members_Today & "</font></a></span>") rsCommon.MoveNext Loop %> </br> </br> <% Response.Write(" <p align=""center""><font color=""#000000"" size=""1"">" & "Bugün Forumu " & Num & " üye ziyaret etti</font><br><font color=""#FF0000""> Yönetici </font><font color=""#008000""> Moderatör </font><font color=""#00CCFF""> Kýdemli Üye </font><font color=""#FF33CC""> Üye </font><font color=""#2755AB""> Yeni Üye </font></span><br>" )'Clean up Call closeDatabase() %></td> </tr> </table>

