#freeze
閲覧総計：&counter(); （本日：&counter(today); 昨日：&counter(yesterday);)
閲覧数の履歴が残る実用的な「アクセスカウンタ（履歴付き）」を作ってみた。 09/09/23
【背景】アクセスカウンタを利用してみて、現在までの総アクセス数はわかるものの
どの様な流れでアクセス数が伸びて来たのか？以前は頻繁に閲覧されていたが、
現在の閲覧数は減っているのか？別サイトでこのページを紹介されたきっかけで
閲覧数が急増した記録を残しておきたい。とのニーズが出てきました。
これらのニーズに対応した、「履歴付き」アクセスカウンタを作成しました。
【特徴】Cookie機能を利用し、6時間内の再訪問の場合は、カウンタがカウント
アップしない様に工夫してみた。
また、ページの閲覧頻度がどの様に推移しているかが見られる様に10カウント毎の
日時が記録される様に工夫してみた。
また、どのページでもこのアクセスカウンタが利用できる様に「Webユーザコント
ロール(*.ascx)」で部品化した。
・カウント記録ファイルとして「ファイル名+HistoryCounter.txt」ファイルが自動作成されます。
開発環境：VWD2005+AJAX1.0+Toolkit + SQL Server2005
サーバ：ASP.NET2.0+AJAX1.0 + SQL Server2005
【稼動サンプル】
http://www.kuri6005.useiis7.net/4AspNet10/Counter/HistoryCounter.aspx
#ref(HistoryCounter.JPG);
【HistoryCounter.ascx】アクセスカウンタ（履歴付き）部品
<%@ Control Language="VB" ClassName="HistoryCounter" %>
<%@ Import Namespace = "Microsoft.VisualBasic.FileIO" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim HOLDTIME As Integer = 360 'Cookie保持時間(分)
Dim INTERVAL As Integer = 10 'カウント履歴を保存する間隔
Dim stDT(100, 1) As String 'カウンタ情報配列変数
Dim arrayNum, i As Integer '配列行数取得変数
If Not Page.IsPostBack Then
'ポストバック表示でない場合
'カウンタ情報保存ファイルの定義：プログラムファイル名+HistoryCounter.csv
Dim sr As String = Server.MapPath(System.IO.Path.GetFileNameWithoutExtension(Request.ServerVariables("URL")) & "HistoryCounter.csv")
If System.IO.File.Exists(sr) Then
'*HistoryCounter.csvファイルが既に存在する場合
'counter情報の読込み
Dim parser As New TextFieldParser(sr)
parser.TextFieldType = FieldType.Delimited '固定長データではなく可変長データを宣言
parser.SetDelimiters(",") ' 区切り文字はコンマ
arrayNum = 0
While Not parser.EndOfData
Dim row As String() = parser.ReadFields() '1行読み込み
' 配列rowの要素は読み込んだ行の各フィールドの値
stDT(arrayNum, 0) = row(0)
stDT(arrayNum, 1) = row(1)
arrayNum += 1
End While
'Cookieハンドルの定義
Dim cok As HttpCookie = Request.Cookies(System.IO.Path.GetFileNameWithoutExtension(Request.ServerVariables("URL")) & "CokCheck")
If Not (cok Is Nothing) Then
'Cookie情報があった場合
'Counter情報の表示
Literal1.Text = "閲覧数： " & stDT(0, 0) & "<br>" & "<br>"
For i = (arrayNum - 1) To 1 Step -1
Literal1.Text &= stDT(i, 0).ToString & "： " & stDT(i, 1).ToString & "<br>"
Next
'Cookie情報の更新
cok.Values("cokcount") = stDT(0, 0)
cok.Expires = DateTime.Now.AddMinutes(HOLDTIME)
Response.Cookies.Add(cok)
Else
'Cookie情報がなかった場合
'インスタンスをセット
'Cookieの新規作成
cok = New HttpCookie(System.IO.Path.GetFileNameWithoutExtension(Request.ServerVariables("URL")) & "CokCheck")
'カウンタをカウントアップする
stDT(0, 0) += 1
stDT(0, 1) = Now()
'キリ番情報の追加
If (stDT(0, 0) Mod INTERVAL) = 0 Then
stDT(arrayNum, 0) = stDT(0, 0)
stDT(arrayNum, 1) = Now()
arrayNum += 1
End If
'Counter情報の表示
Literal1.Text = "閲覧数： " & stDT(0, 0) & "<br>" & "<br>"
For i = (arrayNum - 1) To 1 Step -1
Literal1.Text &= stDT(i, 0).ToString & "： " & stDT(i, 1).ToString & "<br>"
Next
'Counter情報の更新書出し
'入力するテキスト
Dim strInputText As String = stDT(0, 0) & ", " & stDT(0, 1) & vbCrLf
For i = 1 To arrayNum - 1
strInputText &= stDT(i, 0) & ", " & stDT(i, 1) & vbCrLf
Next
'ファイルに書出し
System.IO.File.WriteAllText(sr, strInputText)
'Cookie情報の更新
cok.Values("cokcount") = stDT(0, 0)
cok.Expires = DateTime.Now.AddMinutes(HOLDTIME)
Response.Cookies.Add(cok)
End If
Else
'*HistoryConuter.csvファイルが存在しない場合
'Cookieハンドルの定義
Dim cok As HttpCookie = Request.Cookies(System.IO.Path.GetFileNameWithoutExtension(Request.ServerVariables("URL")) & "CokCheck")
'インスタンスをセット
cok = New HttpCookie(System.IO.Path.GetFileNameWithoutExtension(Request.ServerVariables("URL")) & "CokCheck")
'カウンタ情報をセット
stDT(0, 0) = 1
stDT(0, 1) = Now()
'Counter情報の表示
Literal1.Text = "閲覧数： " & stDT(0, 0) & "<br>"
'Counter情報の更新書出し
Dim strInputText As String = stDT(0, 0) & ", " & stDT(0, 1) & vbCrLf
'ファイルに書出し
System.IO.File.WriteAllText(sr, strInputText)
'Cookie情報の更新
cok.Values("cokcount") = stDT(0, 0)
cok.Expires = DateTime.Now.AddMinutes(HOLDTIME)
Response.Cookies.Add(cok)
End If
End If
End Sub
</script>
<asp:Literal ID="Literal1" runat="server"></asp:Literal>
【HistoryCounter.aspx】稼動確認フォーム
<%@ Page Language="VB" %>
<%@ Register Src="HistoryCounter.ascx" TagName="HistoryCounter" TagPrefix="uc1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Label1.Text = "こんにちは、" & TextBox1.Text & " さん！"
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>無題のページ</title>
</head>
<body>
<form id="form1" runat="server">
<div>
アクセスカウンタ（履歴付き）09/09/22<br />
(Webユーザコントロール(*.ascx)仕様) <br />
<br />
【ダミー機能】あいさつを返してくれる<br />
お名前：<asp:TextBox ID="TextBox1" runat="server" Width="152px"></asp:TextBox>
<asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="送信" /><br />
<asp:Label ID="Label1" runat="server"></asp:Label><br />
<br />
<uc1:HistoryCounter ID="HistoryCounter1" runat="server" />
</div>
</form>
</body>
</html>
【参考にしたページ】
1.アクセスカウンタを作ろう
http://ufcpp.net/study/aspx/counter.html
2.自分自身のファイル名を取得する法
http://www.microsoft.com/japan/msdn/community/gdn/ShowPost-37253.htm
3.CSVファイルを読み込むには？ 6/08/16
http://www.atmarkit.co.jp/fdotnet/dotnettips/487csvparser/csvparser.html
4.[[アクセスカウンタ]] 09/08/13
【サーバ設置時のハマリポイント】
このアクセスカウンタ部品CounterControl.ascxをサーバに設置し、利用しようと
したところエラーが発生し、最初はうまく動いてくれなかった。原因は、対象フォル
ダに「書き込み権限」の許可がされていなかった為、*Counter.txtファイルが書き込
めなかったからだった。
皆さん、サーバ対象フォルダの「書き込み権限」の許可設定を忘れないようにしま
しょう。 09/08/13
（設定操作）
サーバにloginし、「ファイルのフォルダの管理(ファイルマネジャ)」で
対象プログラムを設置したフォルダのWeb Visitorの「書き込み」にチェックを付け、
「Apply」ボタンをクリックし、情報更新を行う。
#ref(textRW02.JPG);
-- 1' -- &new{2011-05-14 (土) 09:00:04};
- 1 -- [[1]] &new{2012-08-18 (土) 22:23:26};
- 1 -- [[1]] &new{2012-08-18 (土) 22:23:29};
- 1 -- [[-1']] &new{2012-08-18 (土) 22:23:30};
-- 1' -- [[1]] &new{2012-08-18 (土) 22:23:31};
- 1 -- [[1]] &new{2012-08-18 (土) 22:23:32};
- 1 -- [[1]] &new{2012-08-19 (日) 05:39:16};
- 1 -- [[1]] &new{2012-08-19 (日) 05:39:19};
- 1 -- [[-1']] &new{2012-08-19 (日) 05:39:20};
-- 1' -- [[1]] &new{2012-08-19 (日) 05:39:21};
- 1 -- [[1]] &new{2012-08-19 (日) 05:39:22};
- 1 -- [[1]] &new{2012-08-20 (月) 07:40:14};
- 1 -- [[1]] &new{2012-08-20 (月) 07:40:17};
- 1 -- [[-1']] &new{2012-08-20 (月) 07:40:18};
-- 1' -- [[1]] &new{2012-08-20 (月) 07:40:19};
- 1 -- [[1]] &new{2012-08-20 (月) 07:40:20};
- 1 -- [[1]] &new{2014-02-02 (日) 03:09:11};
- 1 -- [[1]] &new{2014-02-02 (日) 03:09:25};
- 1 -- [[-1']] &new{2014-02-02 (日) 03:09:29};
-- 1' -- [[1]] &new{2014-02-02 (日) 03:09:32};
- 1 -- [[1]] &new{2014-02-02 (日) 03:09:34};
- 1 -- [[1]] &new{2015-06-29 (月) 01:12:24};
- 1 -- [[1]] &new{2015-06-29 (月) 01:12:28};
- 1 -- [[-1']] &new{2015-06-29 (月) 01:12:29};
-- 1' -- [[1]] &new{2015-06-29 (月) 01:12:30};
- 1 -- [[1]] &new{2015-06-29 (月) 01:12:31};
- http://www.outletonline-michaelkors.com/ http://www.michaelkors-handbags.in.net/ http://www.michael-korsoutlet.in.net/ http://www.michaelkorsoutlet-store.in.net/ http://www.truereligionoutlets.in.net/ http://www.oakleysunglassesoutlet.us.org/ http://www.oakley-sunglasses.ar.com/ http://www.oakley-sunglasses.ar.com/ http://www.oakleysunglassesdeals.in.net/ http://www.oakleysunglassesdeals.in.net/ http://www.oakleysunglasses.qc.com/ http://www.oakleysunglasses.qc.com/ http://www.rayban-sunglasses.net.co/ http://www.rayban-sunglasses.net.co/ http://www.raybansunglasses.gr.com/ http://www.raybansunglasses.gr.com/ http://www.raybanglasses.in.net/ http://www.raybanglasses.in.net/ http://www.polo--ralphlauren.net/ http://www.polo--ralphlauren.net/ http://www.ralphlauren-outlet.in.net/ http://www.ralphlauren-outlet.in.net/ http://www.burberry-outlet-online.us/ http://www.burberry-outlet-online.us/ http://www.burberry-sale.in.net/ http://www.burberry-sale.in.net/ http://www.toms-shoes.us.org/ http://www.toms-shoes.us.org/ http://www.tomsoutlet.com.co/ http://www.tomsoutlet.com.co/ http://www.michael--korsoutlet.net/ http://www.michael--korsoutlet.net/ http://www.michaelkors-outlet-online.net/ http://www.michaelkors-outlet-online.net/ http://www.christian--louboutin.net/ http://www.christian--louboutin.net/ http://www.tory--burch.org/ http://www.tory--burch.org/ http://www.toryburch-outlet.net/ http://www.toryburch-outlet.net/ http://www.gucci--outlet.net/ http://www.gucci--outlet.net/ http://www.gucci--handbags.com/ http://www.gucci--handbags.com/ http://www.jordan--shoes.us/ http://www.jordan--shoes.us/ http://www.air-jordan.in.net/ http://www.air-jordan.in.net/ http://www.cheap-jordans.in.net/ http://www.cheap-jordans.in.net/ http://www.jordansretro.in.net/ http://www.jordansretro.in.net/ http://www.nikeshoesinc.net/ http://www.nikeshoesinc.net/ http://www.nike-shoes.in.net/ http://www.nike-shoes.in.net/ http://www.air-max-2015.net/ http://www.air-max-2015.net/ http://www.air-max-2015.net/ http://www.airmax-90.in.net/ http://www.airmax-90.in.net/ http://www.airmax-95.in.net/ http://www.airmax-95.in.net/ http://www.nike-free-run.net/ http://www.nike-free-run.net/ http://www.nikefree-5.com/ http://www.nikefree-5.com/ http://www.chanel--handbags.net/ http://www.chanel--handbags.net/ http://www.chanel-bags.in.net/ http://www.chanel-bags.in.net/ http://www.true-religion.cc/ http://www.true-religion.cc/ http://www.north-faceoutlet.in.net/ http://www.north-faceoutlet.in.net/ http://www.coachoutlet-store.in.net/ http://www.coachoutlet-store.in.net/ http://www.abercrombie.ar.com/ http://www.abercrombie.ar.com/ http://www.hollister.cn.com/ http://www.hollister.cn.com/ http://www.hermes.us.org/ http://www.hermes.us.org/ http://www.new-balanceoutlet.net/ http://www.new-balanceoutlet.net/ http://www.reebok-shoes.net/ http://www.reebok-shoes.net/ http://www.lululemon.com.co/ http://www.lululemon.com.co/ http://www.yoga-pants.in.net/ http://www.yoga-pants.in.net/ http://www.rolex--replica.us/ http://www.rolex--replica.us/ http://www.omega-watches.in.net/ http://www.omega-watches.in.net/ http://www.wedding--dresses.net/ http://www.wedding--dresses.net/ http://www.montblancpens.net.co/ http://www.montblancpens.net.co/ http://www.insanityworkout.us.org/ http://www.insanityworkout.us.org/ http://www.nike-mercurial.org/ http://www.jimmy--choo.us/ http://www.jimmy--choo.us/ http://www.ugg-boots.org/ http://www.ugg-boots.org/ http://www.uggs--outlet.net/ http://www.uggs--outlet.net/ http://www.nike-rosherun.net/ http://www.roshe--run.com/ http://www.nikeroshe.net/ http://www.tiffany-andco.net/ http://www.tiffany-andco.net/ http://www.vans--shoes.com/ http://www.vans--shoes.com/ http://www.timberland--boots.com/ http://www.timberland--boots.com/ http://www.beats-bydre.in.net/ http://www.beats-bydre.in.net/ http://www.salvatoreferragamoshoes.net/ http://www.salvatoreferragamoshoes.net/ http://www.cheap-jerseys.in.net/ http://www.cheap-jerseys.in.net/ http://www.cheap-nfljerseys.in.net/ http://www.cheap-nfljerseys.in.net/ http://www.jerseys-fromchina.in.net/ http://www.jerseys-fromchina.in.net/ http://www.mizunowave.net/ http://www.mizunowave.net/ http://www.mizunorunning-shoes.com/ http://www.designerhandbags.com.co/ http://www.designerhandbags.com.co/ http://www.bootsonsale.com.co/ http://www.bootsonsale.com.co/ http://www.basketball--shoes.net/ http://www.basketball--shoes.net/ http://www.cheapeyeglasses.us.com/ http://www.cheapeyeglasses.us.com/ http://www.tommy-hilfiger.us.com/ http://www.tommy-hilfiger.us.com/ http://www.tommyhilfigeroutlet.net/ http://www.tommyhilfigeroutlet.net/ http://www.ed-hardy.in.net/ http://www.ed-hardy.in.net/ http://www.levisjeans.in.net/ http://www.levisjeans.in.net/ http://www.bcbgmax.in.net/ http://www.bcbgmax.in.net/ http://www.bebedresses.in.net/ http://www.bebedresses.in.net/ http://www.balenciaga.in.net/ http://www.balenciaga.in.net/ http://www.marcjacobs.in.net/ http://www.marcjacobs.in.net/ http://www.harrodslondon.org.uk/ http://www.harrodslondon.org.uk/ http://www.chaussureslouboutin-soldes.fr/ http://www.chaussureslouboutin-soldes.fr/ http://www.sac-michael-kors.fr/ http://www.sac-michael-kors.fr/ http://www.nikeblazer1.fr/ http://www.nikeblazer1.fr/ http://www.nikeairforce-1.fr/ http://www.nikeairforce-1.fr/ http://www.michaelkors-outlet.org.uk/ http://www.michaelkors-outlet.org.uk/ http://www.michael-kors-canada.ca/ http://www.michael-kors-canada.ca/ http://www.burberry--uk.me.uk/ http://www.burberry--uk.me.uk/ http://www.timberlandboot.org.uk/ http://www.timberlandboot.org.uk/ http://www.oakley--sunglasses.co.uk/ http://www.louboutinshoes.org.uk/ http://www.air-jordans.co.uk/ http://www.coco-chanelhandbags.co.uk/ http://www.katespadeuk.co.uk/ http://www.truereligion-jeans.co.uk/ http://www.newbalance-trainers.co.uk/ http://www.converse-sale.co.uk/ http://www.lululemon.org.uk/ http://www.beats-bydre.co.uk/ http://www.macmakeupuk.co.uk/ http://www.maccosmetics-uk.co.uk/ http://www.adidas-trainersuk.co.uk/ http://www.gucci-uk.co.uk/ http://www.fitflop.me.uk/ http://www.adidasoriginals.org.uk/ http://www.adidasoriginals.org.uk/ http://www.hermes.org.uk/ http://www.hermes.org.uk/ http://www.pandorauk.co.uk/ http://www.pandorauk.co.uk/ http://www.pandorauk.co.uk/ http://www.rolex--watches.co.uk/ http://www.rolex--watches.co.uk/ http://www.omegawatches.org.uk/ http://www.omegawatches.org.uk/ http://www.michael-jordan.co.uk/ http://www.michael-jordan.co.uk/ http://www.michael-jordan.co.uk/ http://www.michael--kors.org.uk/ http://www.michael--kors.org.uk/ http://www.michael--kors.org.uk/ http://www.weddingdresses.me.uk/ http://www.weddingdresses.me.uk/ http://www.weddingdresses.me.uk/ http://www.converse.org.uk/ http://www.converse.org.uk/ http://www.converse.org.uk/ http://www.hollister-uk.me.uk/ http://www.hollister-uk.me.uk/ http://www.hollister-uk.me.uk/ http://www.tiffany-and-co.org.uk/ http://www.tiffany-and-co.org.uk/ http://www.tiffany-and-co.org.uk/ http://www.airmax-90.co.uk/ http://www.airmax-90.co.uk/ http://www.airmax-90.co.uk/ http://www.louis--vuitton.me.uk/ http://www.louis--vuitton.me.uk/ http://www.louis--vuitton.me.uk/ http://www.mulberryoutlet.me.uk/ http://www.mulberryoutlet.me.uk/ http://www.mulberryoutlet.me.uk/ http://www.north-face.org.uk/ http://www.north-face.org.uk/ http://www.north-face.org.uk/ http://www.timberland.org.uk/ http://www.timberland.org.uk/ http://www.timberland.org.uk/ http://www.rayban--sunglasses.org.uk/ http://www.rayban--sunglasses.org.uk/ http://www.rayban--sunglasses.org.uk/ http://www.asicstrainers.org.uk/ http://www.asicstrainers.org.uk/ http://www.asicstrainers.org.uk/ http://www.prada.me.uk/ http://www.prada.me.uk/ http://www.prada.me.uk/ http://www.toms-shoes.org.uk/ http://www.toms-shoes.org.uk/ http://www.tommy-hilfiger.org.uk/ http://www.tommy-hilfiger.org.uk/ http://www.tommy-hilfiger.org.uk/ http://www.marcjacobs.org.uk/ http://www.marcjacobs.org.uk/ http://www.uggs.org.uk/ http://www.uggs.org.uk/ http://www.ugg--boots.org.uk/ http://www.ugg--boots.org.uk/ http://www.ugg-australia.co.uk/ http://www.ugg-australia.co.uk/ http://www.uggs.org.uk/ http://www.ugg--boots.org.uk/ http://www.ugg-australia.co.uk/ http://www.insanityworkout.co.uk/ http://www.insanityworkout.co.uk/ http://www.nike-free-run.co.uk/ http://www.nike-free-run.co.uk/ http://www.ferragamo.org.uk/ http://www.ferragamo.org.uk/ http://www.fitflops.me.uk/ http://www.fitflops.me.uk/ http://www.fitflops.me.uk/ http://www.nike-mercurial-superfly.co.uk/ http://www.nike-mercurial-superfly.co.uk/ http://www.nike-mercurial-superfly.co.uk/ http://www.nikestoreuk.co.uk/ http://www.nikestoreuk.co.uk/ http://www.nikestoreuk.co.uk/ http://www.guessfactorycanada.ca/ http://www.guessfactorycanada.ca/ http://www.guessfactorycanada.ca/ http://www.nike--store.fr/ http://www.chaussure-nike-pas-cher.fr/ http://www.adidas--superstar.fr/ http://www.adidas-zxflux.fr/ http://www.montre-femme-homme.fr/ http://www.michaeljordan.fr/ http://www.air-max-90.fr/ http://www.bracelet-pandora-bijoux.fr/ http://www.bracelet-swarovski-bijoux.fr/ http://www.sac--chanel.fr/ http://www.ralph--lauren.fr/ http://www.new-balance-femme-574.fr/ http://www.michael--kors.fr/ http://www.lunetterayban.fr/ http://www.tommy--hilfiger.fr/ http://www.lunette-oakley.fr/ http://www.ugg-australia.fr/ http://www.nike--huarache.fr/ http://www.asics-gellyte.fr/ http://www.asics-gellyte.fr/ http://www.asics-gellyte.fr/ http://www.scarpe-nike-store.it/ http://www.scarpe-adidas-superstar.it/ http://www.pandora-bracciali.it/ http://www.orologi-rolex.it/ http://www.tiffany--gioielli.it/ http://www.michael-jordan.it/ http://www.hogan-outlet-online.it/ http://www.swarovski-gioielli.it/ http://www.coco-chanel.it/ http://www.michael-kors-borse.it/ http://www.burberry-outlet-online.it/ http://www.hollister-co.it/ http://www.mac-makeup.com/ http://www.guess-factory.com/ http://www.adidasoutlet.net/ http://www.adidasshoesoutlet.com/ http://www.todsshoes.org/ http://www.fendi.in.net/ http://www.guccibelts.us.org/ http://www.fitflopsale.net/ http://www.kobe9shoes.net/ http://www.kobebryantshoes10.com/ http://www.lebronshoes12.net/ http://www.lebron-11.net/ http://www.lebronjames-shoes.com/ http://www.kevindurant-shoes.net/ http://www.fivefingersshoes.org/ http://www.puma-shoes.net/ http://www.salomon-shoes.net/ http://www.cartier-love-bracelet.us.com/ http://www.dolce-and-gabbana.org/ http://www.dansko-shoes.org/ http://www.stuart-weitzman.net/sdf -- [[sdf]] &new{2015-09-15 (火) 14:01:35};
#comment_nospam
- 1 -- [[1]] &new{2015-06-29 (月) 01:12:27};
- 1 -- [[1]] &new{2014-02-02 (日) 03:09:15};
- 1 -- [[1]] &new{2012-08-20 (月) 07:40:16};
- 1 -- [[1]] &new{2012-08-19 (日) 05:39:18};
- 1 -- [[1]] &new{2012-08-18 (土) 22:23:28};
#vote(参考になった[2],ふつう[1],参考にならなかった[0])
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
