<%
'データベース接続
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.Mappath("scripts/fujikawa.mdb")
'値をセットします。
date_time = Now
jikoku = hour(Now)
ip = Request.ServerVariables("REMOTE_ADDR")
ref = Request.ServerVariables("HTTP_REFERER")
If ref = "" Then
ref = "http://www.lausanne.jp"
End If
'データを追加します。
StrSQL = "insert into log ("
StrSQL = StrSQL & " date_time, "
StrSQL = StrSQL & " jikoku, "
StrSQL = StrSQL & " ip, "
StrSQL = StrSQL & " ref "
StrSQL = StrSQL & ") values ("
StrSQL = StrSQL & "#" & date_time & "#,"
StrSQL = StrSQL & jikoku & ","
StrSQL = StrSQL & "'" & ip & "',"
StrSQL = StrSQL & "'" & ref & "'"
StrSQL = StrSQL & ")"
ObjConn.Execute(StrSQL)
'データベース接続解除
ObjConn.Close
Set ObjConn = Nothing
%>
<%
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
sPathCountFile = Server.MapPath("Scripts/counter.dat")
On Error Resume Next
Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE)
If Err.Number > 0 Then '***** 初回起動？
iCount = 0
dtOld = Date()
iCountT = 0
iCountY = 0
Else
'***** カウントファイルの読み込み
iCount = strmFile.ReadLine
dtOld = CDate(strmFile.ReadLine)
iCountT = strmFile.ReadLine
iCountY = strmFile.ReadLine
End If
'***** カウント処理
If dtOld <> Date() Then '***** 日付が変わった？
dtOld = Date()
iCountY = iCountT
iCountT = 0
End If
iCount = iCount + 1
iCountT = iCountT + 1
strmFile.Close
'***** カウントファイルへ書き込み
Set strmFile = objFile.OpenTextFile(sPathCountFile, 2, TRUE)
strmFile.WriteLine iCount
strmFile.WriteLine dtOld
strmFile.WriteLine iCountT
strmFile.WriteLine iCountY
strmFile.Close
%>
