ASPの統計情報/記事の日次、週次、月次、総訪問数などの方法が表示され、困っている友達は参考にすることができます。
次のようにコードをコピーします。
<%
'//hittime 日付型: 最終アクセス時刻を取得します
'//ヒット数値型: 合計ページビューを取得
'//hitsday 数値型: 今日の閲覧数を取得します
'//hitsweeks 数値型: 今週の閲覧数を取得
'//hitmonths 数値型: 今月の閲覧数を取得
'これらの 5 つのフィールドをデータベースに追加します。
set rs1=server.CreateObject("adodb.recordset")
rs1.open "id=26 の qwbmnewssss から * を選択",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=何も設定しない
%>