アクセスカウンタ
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
閲覧総計：&counter(); （本日：&counter(today); 昨日...
Webプログラミング入門課題の定番「アクセスカウンタ」を作...
【特徴】Cookie機能を利用し、12時間内の再訪問の場合は、カ...
アップしない様に工夫してみた。
また、どのページでもこのアクセスカウンタが利用できる様...
ロール(*.ascx)」で部品化した。
・カウント記録ファイルとして「ファイル名+Counter.txt」フ...
(ポイント)
・「こんなに簡単に作れちゃうんだ。」を体感。
・汎用部品の作り方(Webユーザコントロール)の手法確認
開発環境：VWD2005+AJAX1.0+Toolkit + SQL Server2005
サーバ：ASP.NET2.0+AJAX1.0 + SQL Server2005
【稼動サンプル】
http://www.kuri6005.useiis7.net/4AspNet10/Counter/ascxCou...
#ref(Counter01.JPG);
【CounterControl.ascx】アクセスカウンタ部品
<%@ Control Language="VB" ClassName="CounterControl" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVa...
Dim HOLDTIME As Integer = 720 'Cookie保持時間(分)
'ポストバック表示でない場合
If Not Page.IsPostBack Then
'アクセスカウンタ
Dim sr As String = Server.MapPath(System.IO....
Dim cokcount As String
If System.IO.File.Exists(sr) Then
'*Counter.txtファイルが既に存在する場合
'countデータの読込み
Dim count As String = System.IO.File.Rea...
'Cookieハンドルの定義
Dim cok As HttpCookie = Request.Cookies(...
If Not (cok Is Nothing) Then
'Cookie情報があった場合
ltrCounter.Text = count
cok.Values("cokcount") = count
cok.Expires = DateTime.Now.AddMinute...
Response.Cookies.Add(cok)
Else
'Cookie情報がなかった場合
'インスタンスをセット
cok = New HttpCookie(System.IO.Path....
count += 1 'カウンタをカウントアップ...
ltrCounter.Text = count
System.IO.File.WriteAllText(sr, count)
cok.Values("cokcount") = count
cok.Expires = DateTime.Now.AddMinute...
Response.Cookies.Add(cok)
End If
Else
'*Conuter.txtファイルが存在しない場合
'Cookieハンドルの定義
Dim cok As HttpCookie = Request.Cookies(...
'インスタンスをセット
cok = New HttpCookie(System.IO.Path.GetF...
Dim count As String
count = 1
ltrCounter.Text = count
System.IO.File.WriteAllText(sr, count)
cok.Values("cokcount") = count
cok.Expires = DateTime.Now.AddMinutes(HO...
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="CounterC...
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitiona...
<script runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVa...
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)...
<br />
閲覧数：
<uc1:CounterControl ID="CounterControl1" runat="...
<br />
<br />
あいさつを返してくれる<br />
お名前：<asp:TextBox ID="TextBox1" runat="server...
<asp:Button ID="Button1" runat="server" OnClick=...
<asp:Label ID="Label1" runat="server"></asp:Labe...
</form>
</body>
</html>
【参考にしたページ】
1.アクセスカウンタを作ろう
http://ufcpp.net/study/aspx/counter.html
2.自分自身のファイル名を取得する法
http://www.microsoft.com/japan/msdn/community/gdn/ShowPos...
【サーバ設置時のハマリポイント】
このアクセスカウンタ部品CounterControl.ascxをサーバに設...
したところエラーが発生し、最初はうまく動いてくれなかった...
ダに「書き込み権限」の許可がされていなかった為、*Counter....
めなかったからだった。
皆さん、サーバ対象フォルダの「書き込み権限」の許可設定...
しょう。 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...
- http://www.outletonline-michaelkors.com/ http://www.mic...
- 2015-10-6 xiaozhengm http://www.louisvuitton-lvoutl...
- http://www.cybermondaydeals.in.net http://www.michaelk...
- 20190109 junda http://www.coach-factory-outlet-online.u...
- http://www.oakleysunglassese.us.com/ http://www.oakley...
- Often the http://www.tiffanyandco-canada.ca/ dream, htt...
- http://www.oakleysunglassesa.us.com/ http://www.oakley-...
- Download Zapya for PC http://www.zapyapc.com/zapya-for-...
- 1 -- [[1]] &new{2016-11-17 (木) 16:29:13};
- 1 -- [[-1']] &new{2016-11-17 (木) 16:29:15};
- chenyingying2017106 http://www.oakley-sunglasses.net.co...
- nice information it is.http://www.zapyapc.com/ http://...
- This is really informative. https://www.imoforwindowsp...
- mcseyteasrvw@hotmail.com -- [[linda]] &new{2020-08-31 (...
- seighwvpkm@hotmail.com -- [[frank]] &new{2020-09-02 (水...
- mclaslewuabd@hotmail.com -- [[james]] &new{2020-09-02 (...
- ceshakwmn@hotmail.com -- [[marianne]] &new{2020-09-14 (...
- gelelegsytd@hotmail.com -- [[ernestine]] &new{2020-09-1...
- ceshakwmn@hotmail.com -- [[laurie]] &new{2020-09-20 (日...
- lethifkvs@hotmail.com -- [[leigh]] &new{2020-10-23 (金)...
- nenetetajgpdm@hotmail.com -- [[karina]] &new{2020-10-28...
- Watch All Korean and Japanese Full Subbed and Dubbed Dr...
- thenulkkrq@hotmail.com -- [[dominick]] &new{2020-12-17 ...
- losipsetyrig@hotmail.com -- [[leigh]] &new{2021-02-22 (...
- phetapraym@hotmail.com -- [[ronald]] &new{2021-03-03 (...
- https://seositecheckup.com/seo-audit/dalilaqarat.com ht...
#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(参考になった[3],ふつう[3],参考にならなかった[0])
終了行:
閲覧総計：&counter(); （本日：&counter(today); 昨日...
Webプログラミング入門課題の定番「アクセスカウンタ」を作...
【特徴】Cookie機能を利用し、12時間内の再訪問の場合は、カ...
アップしない様に工夫してみた。
また、どのページでもこのアクセスカウンタが利用できる様...
ロール(*.ascx)」で部品化した。
・カウント記録ファイルとして「ファイル名+Counter.txt」フ...
(ポイント)
・「こんなに簡単に作れちゃうんだ。」を体感。
・汎用部品の作り方(Webユーザコントロール)の手法確認
開発環境：VWD2005+AJAX1.0+Toolkit + SQL Server2005
サーバ：ASP.NET2.0+AJAX1.0 + SQL Server2005
【稼動サンプル】
http://www.kuri6005.useiis7.net/4AspNet10/Counter/ascxCou...
#ref(Counter01.JPG);
【CounterControl.ascx】アクセスカウンタ部品
<%@ Control Language="VB" ClassName="CounterControl" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVa...
Dim HOLDTIME As Integer = 720 'Cookie保持時間(分)
'ポストバック表示でない場合
If Not Page.IsPostBack Then
'アクセスカウンタ
Dim sr As String = Server.MapPath(System.IO....
Dim cokcount As String
If System.IO.File.Exists(sr) Then
'*Counter.txtファイルが既に存在する場合
'countデータの読込み
Dim count As String = System.IO.File.Rea...
'Cookieハンドルの定義
Dim cok As HttpCookie = Request.Cookies(...
If Not (cok Is Nothing) Then
'Cookie情報があった場合
ltrCounter.Text = count
cok.Values("cokcount") = count
cok.Expires = DateTime.Now.AddMinute...
Response.Cookies.Add(cok)
Else
'Cookie情報がなかった場合
'インスタンスをセット
cok = New HttpCookie(System.IO.Path....
count += 1 'カウンタをカウントアップ...
ltrCounter.Text = count
System.IO.File.WriteAllText(sr, count)
cok.Values("cokcount") = count
cok.Expires = DateTime.Now.AddMinute...
Response.Cookies.Add(cok)
End If
Else
'*Conuter.txtファイルが存在しない場合
'Cookieハンドルの定義
Dim cok As HttpCookie = Request.Cookies(...
'インスタンスをセット
cok = New HttpCookie(System.IO.Path.GetF...
Dim count As String
count = 1
ltrCounter.Text = count
System.IO.File.WriteAllText(sr, count)
cok.Values("cokcount") = count
cok.Expires = DateTime.Now.AddMinutes(HO...
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="CounterC...
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitiona...
<script runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVa...
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)...
<br />
閲覧数：
<uc1:CounterControl ID="CounterControl1" runat="...
<br />
<br />
あいさつを返してくれる<br />
お名前：<asp:TextBox ID="TextBox1" runat="server...
<asp:Button ID="Button1" runat="server" OnClick=...
<asp:Label ID="Label1" runat="server"></asp:Labe...
</form>
</body>
</html>
【参考にしたページ】
1.アクセスカウンタを作ろう
http://ufcpp.net/study/aspx/counter.html
2.自分自身のファイル名を取得する法
http://www.microsoft.com/japan/msdn/community/gdn/ShowPos...
【サーバ設置時のハマリポイント】
このアクセスカウンタ部品CounterControl.ascxをサーバに設...
したところエラーが発生し、最初はうまく動いてくれなかった...
ダに「書き込み権限」の許可がされていなかった為、*Counter....
めなかったからだった。
皆さん、サーバ対象フォルダの「書き込み権限」の許可設定...
しょう。 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...
- http://www.outletonline-michaelkors.com/ http://www.mic...
- 2015-10-6 xiaozhengm http://www.louisvuitton-lvoutl...
- http://www.cybermondaydeals.in.net http://www.michaelk...
- 20190109 junda http://www.coach-factory-outlet-online.u...
- http://www.oakleysunglassese.us.com/ http://www.oakley...
- Often the http://www.tiffanyandco-canada.ca/ dream, htt...
- http://www.oakleysunglassesa.us.com/ http://www.oakley-...
- Download Zapya for PC http://www.zapyapc.com/zapya-for-...
- 1 -- [[1]] &new{2016-11-17 (木) 16:29:13};
- 1 -- [[-1']] &new{2016-11-17 (木) 16:29:15};
- chenyingying2017106 http://www.oakley-sunglasses.net.co...
- nice information it is.http://www.zapyapc.com/ http://...
- This is really informative. https://www.imoforwindowsp...
- mcseyteasrvw@hotmail.com -- [[linda]] &new{2020-08-31 (...
- seighwvpkm@hotmail.com -- [[frank]] &new{2020-09-02 (水...
- mclaslewuabd@hotmail.com -- [[james]] &new{2020-09-02 (...
- ceshakwmn@hotmail.com -- [[marianne]] &new{2020-09-14 (...
- gelelegsytd@hotmail.com -- [[ernestine]] &new{2020-09-1...
- ceshakwmn@hotmail.com -- [[laurie]] &new{2020-09-20 (日...
- lethifkvs@hotmail.com -- [[leigh]] &new{2020-10-23 (金)...
- nenetetajgpdm@hotmail.com -- [[karina]] &new{2020-10-28...
- Watch All Korean and Japanese Full Subbed and Dubbed Dr...
- thenulkkrq@hotmail.com -- [[dominick]] &new{2020-12-17 ...
- losipsetyrig@hotmail.com -- [[leigh]] &new{2021-02-22 (...
- phetapraym@hotmail.com -- [[ronald]] &new{2021-03-03 (...
- https://seositecheckup.com/seo-audit/dalilaqarat.com ht...
#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(参考になった[3],ふつう[3],参考にならなかった[0])
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
