ASPの統計情報/記事の日次、週次、月次、総訪問数などの方法が表示され、困っている友達は参考にすることができます。次のようにコードをコピーします。
<%
'//hittime 日付型: 最終アクセス時刻を取得します
'//ヒット数値型: 合計ページビューを取得
'//hitsday 数値型: 今日の閲覧数を取得します
'//hitsweeks 数値型: 今週の閲覧数を取得
'//hitmonths 数値型: 今月の閲覧数を取得
'これらの 5 つのフィールドをデータベースに追加します。
set rs1=server.CreateObject(adodb.recordset)
rs1.open select * from qwbmnewssss where id=26,conn,1,3
rs1.eof と rs1.bof の場合
応答.書き込みエリー
それ以外
hittime = rs1(hittime) '最終アクセス時刻を取得します
薄暗い日現在、月現在、週間現在
dayNow = day(date()) '今は何日ですか?
monthNow = month(date()) '今は何月ですか?
WeekNow = Weekday(date()) '現在の曜日 0 は日曜日です
rs1(ヒット数) = rs1(ヒット数) + 1 ' 合計ビュー数 + 1
if datediff(d,hittime,now()) = 0 then '最終アクセス日と現在の時刻および日数を比較します
rs1(hitsday) = rs1(hitsday) + 1 '今日の閲覧数 + 1
それ以外
rs1(hitsday) = 1 '今日のビュー = 1
終了する場合
monthNow = month(ヒットタイム)の場合
rs1(hitmonths) = rs1(hitmonths) + 1 '今月の視聴回数 + 1
それ以外
rs1(hitmonths) = 1 '今月の閲覧数 + 1
終了する場合
if datediff(d,hittime,now()) > 6 then '週の期間を処理するときに問題が発生しました。前回のアクセスが金曜日で、次のアクセスが翌週の火曜日の場合でも、レコードは重ねられます。 。
rs1(ヒット週数) = 1
それ以外
WeekNow <> 1 の場合
rs1(ヒット週数) = rs1(ヒット週数) + 1
それ以外
WeekNowss = Weekday(hittime) '最後に訪問した曜日
WeekNow = WeekNowss の場合
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(hits)%><br />
今日の訪問数: <%=rs1(hitsday)%><br />
週間訪問数: <%=rs1(hitsweeks)%><br />
今月の訪問数: <%=rs1(hitmonths)%><br />
<%
終了する場合
rs1.close
rs1=何も設定しない
%>