Статистическая информация ASP/методы статей о ежедневных, еженедельных, ежемесячных и общих посещениях, к которым могут обратиться нуждающиеся друзья.
Скопируйте код кода следующим образом:
<%
'//тип даты посещения: получаем время последнего доступа
'//числовой тип обращений: получаем общее количество просмотров страниц
'//числовой тип hitsday: получить количество просмотров за сегодня
'//числовой тип hitsweeks: получить количество просмотров на этой неделе
'//числовой тип hitmonths: получить количество просмотров в этом месяце
'Добавьте эти 5 полей в базу данных.
set rs1=server.CreateObject("adodb.recordset")
rs1.open "выберите * из qwbmnewssss, где id=26",conn,1,3
если rs1.eof и rs1.bof, то
ответ.напишите "эрри"
еще
hittime = rs1("hittime") 'Получить время последнего доступа
тусклый деньСейчас,месяцСейчас,мызнаем
dayNow = day(date()) 'Какой сейчас день?
месяцNow = месяц(дата()) 'Какой сейчас месяц?
WeekNow = Weekday(date()) 'Текущий день недели 0 — воскресенье.
rs1("хиты") = rs1("хиты") + 1 'Общее количество просмотров + 1
if dateiff("d",hittime,now()) = 0 then 'Сравнить дату последнего доступа с текущим временем и количеством дней
rs1("Hitsday") = rs1("Hitsday") + 1 'Сегодняшние просмотры + 1
еще
rs1("hitsday") = 1 'Сегодняшние просмотры = 1
конец, если
если месяцNow = месяц(время обращения), то
rs1("hitmonths") = rs1("hitmonths") + 1 'Просмотров в этом месяце + 1
еще
rs1("hitmonths") = 1 'Просмотров в этом месяце + 1
конец, если
if dateiff("d",hittime,now()) > 6 then 'Возникла проблема при обработке периода недели. Если предыдущее время - пятница, а следующий доступ - вторник следующей недели, записи по-прежнему будут сохраняться. быть наложены.
rs1("хиты недели") = 1
еще
если неделяNow <> 1, то
rs1("недели хитов") = rs1("недели хитов") + 1
еще
WeekNowss = Weekday(hittime) 'День недели, когда последний раз посещался
если неделяСейчас = неделяСейчас, то
rs1("недели хитов") = rs1("недели хитов") + 1
еще
rs1("хиты недели") = 1
конец, если
конец, если
конец, если
rs1("hittime") = now() 'Обновляем вопрос о последнем посещении
rs1.обновление
%>
Сравнение времени: <%=datediff("d",hittime,now())%><br />
Текущее время: <%=now()%><br />
Время последнего клика: <%=hittime%><br />
Текущий день: <%=dayNow%><br />
Текущий месяц: <%=monthNow%><br />
Текущая неделя: <%=weekNow%><br />
Всего просмотров:<%=rs1("хиты")%><br />
Сегодняшние посещения: <%=rs1("hitsday")%><br />
Еженедельные посещения: <%=rs1("hitsweeks")%><br />
Количество посещений в этом месяце: <%=rs1("hitmonths")%><br />
<%
конец, если
rs1.закрыть
установить rs1=ничего
%>