アクセスカウンタのバックアップソース(No.12)

#freeze
閲覧総計：&counter();　　（本日：&counter(today);　　昨日：&counter(yesterday);)

　Webプログラミング入門課題の定番「アクセスカウンタ」を作ってみた。　09/08/13

【特徴】Cookie機能を利用し、12時間内の再訪問の場合は、カウンタがカウント
アップしない様に工夫してみた。
　また、どのページでもこのアクセスカウンタが利用できる様に「Webユーザコント
ロール(*.ascx)」で部品化した。
・カウント記録ファイルとして「ファイル名+Counter.txt」ファイルが自動作成されます。

(ポイント)
・「こんなに簡単に作れちゃうんだ。」を体感。
・汎用部品の作り方(Webユーザコントロール)の手法確認

開発環境：VWD2005+AJAX1.0+Toolkit + SQL Server2005
サーバ：ASP.NET2.0+AJAX1.0 + SQL Server2005

【稼動サンプル】
http://www.kuri6005.useiis7.net/4AspNet10/Counter/ascxCounter.aspx
#ref(Counter01.JPG);

【CounterControl.ascx】アクセスカウンタ部品
 <%@ Control Language="VB" ClassName="CounterControl" %>
 
 <script runat="server">
 
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
         Dim HOLDTIME As Integer = 720 'Cookie保持時間(分)
         'ポストバック表示でない場合
         If Not Page.IsPostBack Then
             'アクセスカウンタ
             Dim sr As String = Server.MapPath(System.IO.Path.GetFileNameWithoutExtension(Request.ServerVariables("URL")) & "Counter.txt")
             Dim cokcount As String
             If System.IO.File.Exists(sr) Then
                 '*Counter.txtファイルが既に存在する場合
                 'countデータの読込み
                 Dim count As String = System.IO.File.ReadAllText(sr)
                 'Cookieハンドルの定義
                 Dim cok As HttpCookie = Request.Cookies(System.IO.Path.GetFileNameWithoutExtension(Request.ServerVariables("URL")) & "CokCheck")
                 If Not (cok Is Nothing) Then
                     'Cookie情報があった場合
                     ltrCounter.Text = count
                     cok.Values("cokcount") = count
                     cok.Expires = DateTime.Now.AddMinutes(HOLDTIME)
                     Response.Cookies.Add(cok)
                 Else
                     'Cookie情報がなかった場合
                     'インスタンスをセット
                     cok = New HttpCookie(System.IO.Path.GetFileNameWithoutExtension(Request.ServerVariables("URL")) & "CokCheck")
                     count += 1 'カウンタをカウントアップする
                     ltrCounter.Text = count
                     System.IO.File.WriteAllText(sr, count)
                     cok.Values("cokcount") = count
                     cok.Expires = DateTime.Now.AddMinutes(HOLDTIME)
                     Response.Cookies.Add(cok)
                 End If
             Else
                 '*Conuter.txtファイルが存在しない場合
                 '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")
                 Dim count As String
                 count = 1
                 ltrCounter.Text = count
                 System.IO.File.WriteAllText(sr, count)
                 cok.Values("cokcount") = count
                 cok.Expires = DateTime.Now.AddMinutes(HOLDTIME)
                 Response.Cookies.Add(cok)
             End If
         End If
     End Sub
     
 </script>
 
 
 <asp:Literal ID="ltrCounter" runat="server"></asp:Literal>


【ascxCounter.aspx】稼動確認フォーム
 <%@ Page Language="VB" %>
 
 <%@ Register Src="CounterControl.ascx" TagName="CounterControl" 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 runat="server">
     <title>無題のページ</title>
 </head>
 <body>
     <form id="form1" runat="server">
     <div>
         アクセスカウンタ (Webユーザコントロール(*.ascx)仕様) 09/08/13<br />
         <br />
         閲覧数：
         <uc1:CounterControl ID="CounterControl1" runat="server" />
         <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></div>
     </form>
 </body>
 </html>


【参考にしたページ】
1.アクセスカウンタを作ろう
http://ufcpp.net/study/aspx/counter.html

2.自分自身のファイル名を取得する法
http://www.microsoft.com/japan/msdn/community/gdn/ShowPost-37253.htm



【サーバ設置時のハマリポイント】
　このアクセスカウンタ部品CounterControl.ascxをサーバに設置し、利用しようと
したところエラーが発生し、最初はうまく動いてくれなかった。原因は、対象フォル
ダに「書き込み権限」の許可がされていなかった為、*Counter.txtファイルが書き込
めなかったからだった。
　皆さん、サーバ対象フォルダの「書き込み権限」の許可設定を忘れないようにしま
しょう。　09/08/13

（設定操作）
　サーバにloginし、「ファイルのフォルダの管理(ファイルマネジャ)」で
対象プログラムを設置したフォルダのWeb Visitorの「書き込み」にチェックを付け、
「Apply」ボタンをクリックし、情報更新を行う。
#ref(textRW02.JPG);
- 1 -- [[1]] &new{2012-08-05 (日) 04:15:32};
- 1 -- [[1]] &new{2012-08-05 (日) 04:15:35};
- 1 -- [[-1']] &new{2012-08-05 (日) 04:15:37};
-- 1' -- [[1]] &new{2012-08-05 (日) 04:15:38};
- 1 -- [[1]] &new{2012-08-05 (日) 04:15:39};
- 1 -- [[1]] &new{2012-10-09 (火) 07:01:10};
- 1 -- [[1]] &new{2012-10-09 (火) 07:01:32};
- 1 -- [[-1']] &new{2012-10-09 (火) 07:01:40};
-- 1' -- [[1]] &new{2012-10-09 (火) 07:01:42};
- 1 -- [[1]] &new{2012-10-09 (火) 07:01:50};
- 1 -- [[1]] &new{2014-01-01 (水) 22:31:22};
- 1 -- [[1]] &new{2014-01-01 (水) 22:31:35};
- 1 -- [[-1']] &new{2014-01-01 (水) 22:31:38};
-- 1' -- [[1]] &new{2014-01-01 (水) 22:31:40};
- 1 -- [[1]] &new{2014-01-01 (水) 22:31:45};
- http://www.coachcanadaoutlet.ca http://www.prada-outlet.us http://www.louboutinfemme-pascher.fr http://www.ralphlaurensale.eu.com http://www.jordan3.net http://www.louisvuitton-handbags.com.co http://www.poloralphlaurenhome.net http://www.abercrombie.net.co http://www.holister.name http://www.christian-louboutinoutlet.org http://www.rolexwatchesoutlet.us http://www.abercrombieandfitch.net.co http://www.coachoutletstoreonline.us.org http://www.katespade-outlet.us.com http://www.chanelhandbags.in.net http://www.longchamp-outlet.name http://www.jordan4.net http://www.raybans.name http://www.michaelkorsoutletus.eu.com http://www.louisvuittonoutlets.name http://www.airmax-nike.me.uk http://www.hollisterinc.name http://www.cheaptoms.us http://www.fendi.us.com http://www.michaelkorsoutlet-mk.eu.com http://www.hollister-clothing.net http://www.juicy-couture.us http://www.hollisterclothing.us http://www.pandorajewelry.net.co http://timberlandboots.hugeoff.net http://www.hollisterkids.net http://www.abercrombiestores.net http://www.louisvuittonoutlet-inc.us http://oakley.hugeoff.net http://www.ralph-lauren.net.co http://www.louis-vuitton.us.org http://www.louis--vuitton.us http://lululemon.suleymanaltun.com http://www.marc--jacobs.com http://www.airjordan-pascher.fr http://www.abercrombie.in.net http://www.louisvuitton-lvoutlet.me http://www.guccishoes.us.com http://www.coachoutlet.net.so http://www.michaelkorshandbags.com.so http://www.tory-burchoutlet.in.net http://www.rayban-sunglasses.com.co http://www.retrojordans.name http://www.concords11.com http://www.cheapjordansshoes.in.net http://www.p90xworkouts.us http://truereligion.officialbid.net http://www.guccioutlet.net.co http://burberry.stores.net.co http://www.michaelkorshandbags.eu.com http://www.edhardyclothing.in.net http://www.michaelkorsoutletonlinee.in.net http://www.chiflatiron.com.co http://www.oakleysunglassessale.in.net http://burberryoutlet.officialstore.com.co http://www.coachoutletstoreonline.eu.com http://www.gucci.net.co http://www.abercrombieandfitch.cc http://www.coach-outlet.us.com http://www.michaelkorsoutlet.net.so http://www.cocochaneluk.co.uk http://www.louisvuitton-outlet.us.com http://www.louisvuittonhandbags.net.co http://www.ralph-lauren-outlet.co http://www.louisvuittonuk.me.uk http://www.coach-outlet.us.org http://www.ray-bansunglasses.name http://www.louis-vuitton.net.co http://www.adidasshoes.name http://www.louis-vuittonoutlet.us.org http://www.true-religion-outlet.us.com http://www.michaelkorsonlineoutlet.in.net http://www.jordan13.org http://www.abercrombieoutlet.name http://www.kobeshoes.org http://www.hollister-co.net http://www.holisterclothingstore.com http://www.michaelkorsoutlet.com.so http://www.fitflops.org http://www.kobebryantshoes.name http://www.oakley-sunglasses.net.co http://www.kevindurantshoes.name http://www.pradauk.co.uk http://www.michaelkorsukpurse.co.uk http://www.gucci-outlet.org http://burberry.bidinc.org http://www.oakleysunglassescheap.name http://www.oakleysunglasses.us.com http://michaelkors.officialstore.com.co http://www.cheapsoccershoes.in.net http://www.coachoutlet-storeonline.in.net http://www.todsshoes.us http://www.jordan8.net http://www.christianlouboutinoutlet.org http://www.raybanglasses.me.uk http://www.abercrombieoutlet.us.com http://www.montblanc-pens.name http://www.christianlouboutin.name http://www.oakleysunglasses-wholesale.name http://www.raybansunglassesoutlet.name http://www.christianlouboutin-shoes.info http://www.raybansunglass.net.co http://www.ray-banoutlet.name http://www.michaelkors--outlet.in.net http://www.truereligion.eu.com http://www.coach-factoryoutlet.com.co http://www.outlet-celine.com http://www.christianlouboutinoutlet.com.co http://www.oakleysunglasses-outlet.name http://www.fitflop-shoes.us http://www.soccer-jerseys.us.com http://www.michaelkors.com.so http://www.todsoutlet.name http://www.cheap--nfljerseys.us.com http://www.abercrombie-fitch.cc http://www.tory-burch-outlet.name http://www.redchristianlouboutin.com http://www.hermes-birkin.us http://www.michaelkors-mkoutlet.in.net http://timberland.officialfree.net http://www.chanel-handbags.net.co http://www.christianlouboutinsale.name http://www.jordan11s.name http://www.pandorajewelry.name http://burberryoutlet.newestsite.net http://www.louisvuitton.us.com http://www.montblanc.com.co http://www.cheap-jordans.us.com http://www.toms--shoes.com http://beatsbydrdre.outletoff.net http://www.cheapjerseys-wholesale.us.com http://www.christianlouboutinsale.biz http://www.michael-korsoutletonline.eu.com http://www.abercrombiestore.org http://www.rayban-sunglasses.eu.com http://www.louis-vuittonhandbags.name http://www.oakley-sunglasses.com.co http://timberlandboots.dealsinc.net http://www.nike-airmax.me.uk http://www.jordan11.name http://www.saclongchamp--pascher.fr http://www.michaelkors-outlet.com.co http://www.gucci-outlet.name http://michaelkors.aphidsymposium.org http://www.cheaprolexwatches.name http://www.chanelbags.com.co http://www.toms-shoes.cc http://www.insanityworkout.com.co http://www.louisvuittonoutlet.net.co http://www.coachfactoryoutlet.com.so http://www.jordanretro.name http://coachoutlet.officialinc.net http://www.toms-outlet.com.co http://www.poloralph-lauren.net.co http://toryburchoutlet.stores.net.co http://www.michaelkorsbag.org.uk http://www.coachoutlet-factory.com.co http://www.dior-handbags.us http://chanelhandbags.newstore.com.co http://www.abercrombiekids.name http://www.coachfactoryoutletonline.eu.com http://www.jordan11concord.org http://www.abercrombie-fitch.com.co http://www.michaelkorsoutletclearance.in.net http://www.jordanconcords.net http://www.gucci-outlet.net.co http://www.lebronjames-shoes.net http://www.adidaswings.name http://www.celine-outlet.us http://www.hollisterclothing.info http://www.ghdhairstraighteners.com.co http://www.lebronjames-shoes.name http://www.oakleysunglasses-sale.in.net http://www.longchamphandbags.com.co http://truereligion.onlineinc.net.co http://www.hollisteroutlet.name http://www.katespade-handbags.eu.com http://www.ray-ban-sunglasses.org.uk http://www.jordan6.net -- [[2015711yuanyuan]] &new{2015-07-10 (金) 22:03:19};

#comment_nospam
- 1 -- [[1]] &new{2014-01-01 (水) 22:31:29};
- 1 -- [[1]] &new{2012-10-09 (火) 07:01:21};
- 1 -- [[1]] &new{2012-08-05 (日) 04:15:34};
#vote(参考になった[2],ふつう[1],参考にならなかった[0])
アクセスカウンタ のバックアップソース(No.12)

アクセスカウンタのバックアップソース(No.12)
