ASP-Statistikinformationen/-methoden für Artikel täglich, wöchentlich, monatlich und Gesamtbesuche, Freunde in Not können sich darauf beziehen.
Kopieren Sie den Codecode wie folgt:
<%
'//hittime date type: Ermittelt die letzte Zugriffszeit
'//hits numerischer Typ: Gesamtseitenaufrufe abrufen
'//hitsday numerischer Typ: Ermitteln Sie die Anzahl der Aufrufe heute
'//hitsweeks numerischer Typ: Anzahl der Aufrufe dieser Woche ermitteln
'//hitmonths numerischer Typ: Anzahl der Aufrufe in diesem Monat ermitteln
'Fügen Sie diese 5 Felder zur Datenbank hinzu.
set rs1=server.CreateObject("adodb.recordset")
rs1.open „select * from qwbmnewssss where id=26“,conn,1,3
wenn rs1.eof und rs1.bof dann
Response.write „erry“
anders
hittime = rs1("hittime") 'Letzte Zugriffszeit abrufen
dunkler TagJetzt,MonatJetzt,Wochejetzt
dayNow = day(date()) 'Welcher Tag ist heute?
monatlichNow = Monat(Datum()) 'Welcher Monat ist jetzt?
WeekNow = Weekday(date()) 'Der aktuelle Tag der Woche 0 ist Sonntag
rs1("hits") = rs1("hits") + 1 'Gesamtzahl der Aufrufe + 1
if datediff("d",hittime,now()) = 0 then 'Vergleiche das Datum des letzten Zugriffs mit der aktuellen Uhrzeit und der Anzahl der Tage
rs1("hitsday") = rs1("hitsday") + 1 'Heutige Aufrufe + 1
anders
rs1("hitsday") = 1 'Heutige Aufrufe = 1
Ende wenn
wenn monatlichNow = Monat(Hittime), dann
rs1("hitmonths") = rs1("hitmonths") + 1 'Aufrufe diesen Monat + 1
anders
rs1("hitmonths") = 1 'Aufrufe diesen Monat + 1
Ende wenn
if dateiff("d",hittime,now()) > 6 then 'Es liegt ein Problem bei der Verarbeitung des Wochenzeitraums vor. Wenn der vorherige Zeitpunkt Freitag ist und der nächste Zugriff Dienstag der nächsten Woche ist, werden die Datensätze weiterhin angezeigt überlagert werden.
rs1("hitsweeks") = 1
anders
wenn WeekNow <> 1 dann
rs1("hitsweeks") = rs1("hitsweeks") + 1
anders
WeekNowss = Weekday(hittime) 'Der zuletzt besuchte Wochentag
wenn WeekNow = WeekNowss dann
rs1("hitsweeks") = rs1("hitsweeks") + 1
anders
rs1("hitsweeks") = 1
Ende wenn
Ende wenn
Ende wenn
rs1("hittime") = now() 'Aktualisiere die letzte Besuchsfrage
rs1.update
%>
Zeitvergleich: <%=datediff("d",hittime,now())%><br />
Aktuelle Zeit: <%=now()%><br />
Zeit des letzten Klicks: <%=hittime%><br />
Aktueller Tag: <%=dayNow%><br />
Aktueller Monat: <%=monthNow%><br />
Aktuelle Woche: <%=weekNow%><br />
Gesamtansichten:<%=rs1("hits")%><br />
Heutige Besuche: <%=rs1("hitsday")%><br />
Wöchentliche Besuche: <%=rs1("hitsweeks")%><br />
Anzahl der Besuche in diesem Monat: <%=rs1("hitmonths")%><br />
<%
Ende wenn
rs1.close
setze rs1=nichts
%>