Статистическая информация ASP/методы статей о ежедневных, еженедельных, ежемесячных и общих посещениях, к которым могут обратиться нуждающиеся друзья. Скопируйте код кода следующим образом:
<%
'//тип даты посещения: получаем время последнего доступа
'//числовой тип обращений: получаем общее количество просмотров страниц
'//числовой тип hitsday: получить количество просмотров за сегодня
'//числовой тип hitsweeks: получить количество просмотров на этой неделе
'//числовой тип hitmonths: получить количество просмотров в этом месяце
'Добавьте эти 5 полей в базу данных.
установите 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(месяцы посещений) = rs1(месяцы посещений) + 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=ничего
%>