出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[4056] Re:アクセスカウンタ
投稿者：Lightningさん 2004/02/10 9:17:24
> >クッキーに最終アクセス時間を保持させてもいいし、ファイルにIPなりホストネームと共に保持してもいいね
>
> 力不足のため、このやり方がわかりません。。
> （いろいろ調べてはいるのですが・・）
クッキーに最終アクセスタイムを保存するなら
Response.Cookies("LastAccessTime") = now
でいいし
（読むときはRequest.Cookies("LastAccessTime"))
IPの取得はYasさんのサンプルとかを見れば一目瞭然かと・・・


一応、クッキーナサンプルを・・・
かなり適当でカウントをクッキーに保存してますが、これで1時間ごとにアクセスがあればカウントアップするはず

<%
dim LATime,count

count = 0
if Request.Cookies("count") <> "" then
count = Request.Cookies("count")
LATime = Request.Cookies("LastAccessTime")
end if

response.write "<p>" & LATime
response.write "<p>" & now

if Year(LATime) >= Year(now) then
if Month(LATime) >= Month(now) then
if Day(LATime) >= Day(now) then
if hour(LATime) >= hour(now) then
else
count = count + 1

response.Cookies("count") = count
response.Cookies("LastAccessTime") = now
end if
end if
end if
end if
response.write count
%>
アクセスカウンタ 　 hhhさん [2004/01/26 18:44:33] [4007]
　 Re:アクセスカウンタ 　 YasNet(管理人)さん [2004/01/26 19:37:48] [4008]
　 　 Re:アクセスカウンタ 　 hhhさん [2004/01/26 20:22:21] [4010]
　 　 　 Re:アクセスカウンタ 　 YasNet(管理人)さん [2004/01/26 21:18:01] [4011]
　 　 　 　 Re:アクセスカウンタ 　 hhhさん [2004/01/27 10:03:34] [4012]
　 　 　 　 　 Re:アクセスカウンタ 　 hhhさん [2004/01/27 18:06:38] [4014]
　 　 　 　 　 　 Re:アクセスカウンタ 　 YasNet(管理人)さん [2004/01/28 9:44:22] [4015]
　 　 　 　 　 　 　 Re:アクセスカウンタ 　 Lightningさん [2004/01/28 17:10:03] [4019]
　 　 　 　 　 　 　 　 Re:アクセスカウンタ 　 hhhさん [2004/02/09 18:26:17] [4055]
　 　 　 　 　 　 　 　 　 Re:アクセスカウンタ 　 Lightningさん [2004/02/10 9:17:24] [4056]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ