Gönderen: 12-Şubat-2007 Saat 17:51 | Kayıtlı IP

<%
'Online Users Box / todays vistors
Function ModuleOnlineUsers()
    If blnActiveUsers = False Then Exit Function
    If HideModule("OnlineUsers") Then Exit Function

    Call ModuleTitle("Online Users", "OnlineUsers", "100%", 1)

    Response.Write(vbCrLf & "     <tr>")
    Response.Write(vbCrLf & "      <td bgcolor=""" & strTableColour & """ class=""smText"">")
    Response.Write(vbCrLf & "      <b>" & strTxtTotalUsersOnline & ":</b> " & intOnlineUsers)
    Response.Write(vbCrLf & "      <br><br>")
    Response.Write(vbCrLf & "      " & strTxtWeHave & " <b>" & intTotalMembersOnline & "</b> " & strTxtLMembers & ", <b>" & intTotalSpydersOnline & "</b> spiders, <b>" & intTotalGuestsOnline & "</b> " & strTxtLGuestsAnd & " <b>" & intTotalAnonymousMembersOnline & "</b> " & strTxtLAnonymousUsersOnline & ".")
    Response.Write(vbCrLf & "      <br><br>")
    Response.Write(vbCrLf & "      <b>" & strTxtMembersOnline & ":</b><br>" & strMembersOnline & "<br>")
    Response.Write(vbCrLf & "      <br><br>")
    Response.Write(vbCrLf & "      <center>[ <a href=""" & strExtraForumPath & "active_users.asp"" class=""smLink"">" & strTxtViewFullList & "</a> ]")
    Response.Write(vbCrLf & "      <br>[" & strTxtBasedOnTheLast & " <b>10</b> " & strTxtMinutes & "]</center>")
    Response.Write(vbCrLf & "      <br>")
    Response.Write(vbCrLf & "      <center>" & strTxtYouAreVisitorNumber & " " & Clng(Session("VistorNumber")) & "</center>")
    Response.Write(vbCrLf & "      <br>")
    Response.Write(vbCrLf & "      </td>")
    Response.Write(vbCrLf & "     </tr>")

    Dim intTotalTodaysVisitors

    If strDatabaseType = "SQLServer" Then
        strSQL = "EXECUTE wwfSPTodaysVisitors"
    Else
        strSQL = "SELECT " & strDBTable & "Author.Username, " & strDBTable & "Author.Author_ID, " & strDBTable & "Author.Group_ID FROM " & strDBTable & "Author "
        strSQL = strSQL & "WHERE " & strDBTable & "Author.Last_visit > #" & DateAdd("d", -1, Now()) & "# "
        strSQL = strSQL & "ORDER BY " & strDBTable & "Author.Last_visit DESC;"
    End If

    rsCommon.Open strSQL, adoCon, 1

    intTotalTodaysVisitors = rsCommon.RecordCount

    Response.Write(vbCrLf & " <tr>")
    Response.Write(vbCrLf & "  <td bgcolor=""" & strTableColour & """ valign=""top"" class=""smText""><b>Todays Visitors (" & intTotalTodaysVisitors & "):</b></td>")
    Response.Write(vbCrLf & " </tr>")
    Response.Write(vbCrLf & " <tr>")
    Response.Write(vbCrLf & "  <td bgcolor=""" & strTableColour & """ height=""100"" valign=""top"" class=""table""><span class=""smText"">")
    Response.Write(vbCrLf & "  <div class=""ScrollBox"">")

    If rsCommon.EOF Then
        Response.Write(vbCrLf & "None.")
    Else
        DO UNTIL rsCommon.EOF
            Response.Write(vbCrLf & "    <a href=""javascript:openWin('" & strExtraForumPath & "pop_up_profile.asp?PF=" & rsCommon("Author_ID") &  "','profile','toolbar=0,location=0,status=0,menubar=0,scroll bars=1,resizable=1,width=590,height=425')""  class=""smLink"">")

            If rsCommon("Group_ID") = 1 OR rsCommon("Group_ID") = 3 Then
                Response.Write("<b>" & rsCommon("Username") & "</b></a>")
            Else
                Response.Write(rsCommon("Username")  & "</a>")
            End If

        rsCommon.MoveNext
        If NOT rsCommon.EOF Then Response.Write(", ")
        Loop
    End If

    rsCommon.Close

    Response.Write(vbCrLf & "  </div>")
    Response.Write(vbCrLf & "  </td>")
    Response.Write(vbCrLf & " </tr>")

    If blnActiveUsers AND blnRecordStats Then

        Call FormatTableTitleSub(Array(strTxtMostOnline & ": " & intMostOnlineUsers), 1)

        Response.Write(vbCrLf & "     <tr>")
        Response.Write(vbCrLf & "      <td bgcolor=""" & strTableColour & """ class=""smText"">")
        Response.Write(vbCrLf & "      <table>")
        Response.Write(vbCrLf & "       <tr>")
        Response.Write(vbCrLf & "        <td class=""smText""><b>" & intMostOnlineMembers & ":</b> Members</td>")
        Response.Write(vbCrLf & "        <td class=""smText""><b>" & intMostOnlineAnonymous & ":</b> Anonymous</td>")
        Response.Write(vbCrLf & "       </tr>")
        Response.Write(vbCrLf & "       <tr>")
        Response.Write(vbCrLf & "        <td class=""smText""><b>" & intMostOnlineGuests & ":</b> Guests</td>")
        Response.Write(vbCrLf & "        <td class=""smText""><b>" & intMostOnlineSpiders & ":</b> Spiders</td>")
        Response.Write(vbCrLf & "       </tr>")
        Response.Write(vbCrLf & "      </table>")
        Response.Write(vbCrLf & "      <br>")
        Response.Write(vbCrLf & "      <b>" & strTxtOccured & "</b>:<br>" & DateFormat(dtmMostOnlineDate, saryDateTimeData) & " at " & TimeFormat(dtmMostOnlineDate, saryDateTimeData))
        Response.Write(vbCrLf & "      </td>")
        Response.Write(vbCrLf & "     </tr>")

    End If

    Call ModuleBottom("100%")
End Function
%>

Response.Write(vbCrLf & "   <table width=""" & strTableVariableWidth & """ border=""0"" cellspacing=""4"" cellpadding=""3"" align=""center"">")
Response.Write(vbCrLf & "    <tr>")


Response.Write(vbCrLf & "    <td class=""smText""> " & strTxtTheTimeNowIs & " " & DateFormat(now(), saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(now(), saryDateTimeData) & ".<br />")

'If this is not the first time the user has visted the site display the last visit time and date
If dtmLastVisitDate < CDate(Request.Cookies(strCookieName)("LV")) Then
       Response.Write(strTxtYouLastVisitedOn & " " & DateFormat(Session("dtmLastVisit"), saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(Session("dtmLastVisit"), saryDateTimeData) & ".")
End If