Eintrag Besuche in den letzten 24 Stunden

Question

Ich versuche die letzten Besuche pro Stunde in den letzten 24 Stunden aufzulisten. Ich dachte, der folgende Code würde es tun, aber ich bekomme das Ergebnis unten. Irgendeine Idee, wo ich es vermasselt habe?

[, 0], [, 0], [, 0], [, 0], [, 0], [, 0], [, 0], [, 0], [, 0], [ , 0], [, 0], [, 0], [, 0], [, 0], [, 0], [, 0], [, 0], [, 0], [, 0], [ , 0], [0], [0], [0], [0],

Dim ListHours() 
HoursInCurrentDay = "24" 
Redim ListHours(HoursInCurrentDay) 
For Days = 0 To 23 
    ListHours(Hours) = Hours 
Next 
SQLARR2 = ListHours 
For x = 1 to ubound(SQLARR2) 
    SQL = "SELECT COUNT(DISTINCT VISITORIP) AS TOTALVISITS" 
    SQL = SQL & " FROM STATS" 
    SQL = SQL & " WHERE DATEPART(hh, GETDATE()) = '"& SQLARR2(x) &"' AND DATEENTERED BETWEEN CONVERT(VARCHAR(10), GETDATE()-1, 101) AND CONVERT(VARCHAR(10), GETDATE(), 101)" 
    Set objVisits = objConn.Execute(SQL)  

    If objVisits.EOF Then 
    Else 

    List = List + "[" & SQLARR2(x) & "," & objVisits("TOTALVISITS") & "]," 

    End If 
Next 

Response.Write List 

Answer 1

Suche Bei dem angegebenen Ergebnis bemerke ich, dass SQLARR2 (x) keinen Wert generiert. Alle Ergebnisse sind [, 0], wobei das erste (fehlende) Element die Stunde und das zweite Element die Zahl ist. Ich glaube nicht, ListHours Werte sind richtig, wie Sie Stunden Variable nicht einen Auftrag hat definiert ist (jedenfalls nicht im Code-Schnipsel.)

Wenn Sie

For Days = 0 To 23   
    ListHours(Hours) = Hours 
Next 

zu

For Days = 0 To 23   
    ListHours(Days) = Days 
Next 

ändern

die richtigen Stunden sollten zu Ihrer Liste hinzugefügt werden. Dies sollte auch die Abfrage (und das Abfrageergebnis) beheben, da SQLARR2 (x) ebenfalls zum Erstellen des dynamischen SQL verwendet wird.

Ich hoffe es hilft.

Answer 2

können nicht nur Sie eine einfache Abfrage wie verwenden:

SELECT * FROM VISITS WHERE (VISIT.TIME > now - 24hours AND VISIT.TIME < now)