Global.asa파일

소개글

Global.asa파일에 대한 보고서 자료입니다.

본문내용

eSystemObject")
VisitCountFileName = "d:\hotclick\visit.txt"
'VisitCountFileName = "f:\wwwhome\boxmart_84083e43\visit.txt"
Set Out = FileObject.OpenTextFile(VisitCountFileName, 1, false, false)
Application("count") = Out.ReadLine
Application("VisitCountFileName") = VisitCountFileName
Application("today_visit") = 0
end sub
sub Application_OnEnd
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out = FileObject.CreateTextFile(Application("VisitCountFileName"), True)
Application.Lock
Out.WriteLine(Application("count"))
Application.UnLock
Application("today_visit") = Application("today_visit") - 1
end sub
sub Session_OnStart
Application.Lock
Application("count") = Application("count") + 1
Application("now_visit") = Application("now_visit") + 1
Application.UnLock
Session.Timeout = 1
if Application("count") MOD 10 = 0 then
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out = FileObject.CreateTextFile(Application("VisitCountFileName"),true)
Application.Lock
Out.WriteLine(Application("count"))
Out.Close
Application.UnLock
end if
if Application("today") <> date then
Application.Lock
Application("today") = date
Application("today_visit") = 1
Application.UnLock
else
Application.Lock
Application("today_visit") = Application("today_visit") + 1
Application.UnLock
end if
'=====================================================================
' 접속 통계내기 위하여 접속정보를 테이블에 저장
'=====================================================================
set fso = Server.CreateObject("Scripting.FileSystemObject")
'set f = fso.OpenTextFile("f:\wwwhome\boxmart_84083e43\connection.dat")
set f = fso.OpenTextFile("d:\hotclick\connection.dat")
strconnect = f.Readline
Set Dbcon = Server.CreateObject("ADODB.Connection")
DbCon.Open strConnect
sql = "INSERT INTO tblstatistics (ip, browser, path,"
sql = sql & " inputdate, s_month, s_day, s_time) values "
sql = sql & "("
sql = sql & "'" & request("REMOTE_ADDR") & "',"
sql = sql & "'" & request("HTTP_USER_AGENT") & "',"
sql = sql & "'" & request("HTTP_REFERER") & "',"
sql = sql & "getdate(),"
sql = sql & month(date) & ","
sql = sql & day(date) & ","
sql = sql & hour(time) & ")"
'Response.Write sql
'Response.End
Dbcon.Execute sql
Dbcon.Close
Set Dbcon = nothing
End Sub
sub Session_OnEnd
application.lock
application("now_visit") = application("now_visit") - 1
application.unlock
'=====================================================================
' 접속 통계내기 위하여 접속정보를 테이블에 저장
'=====================================================================
set fso = Server.CreateObject("Scripting.FileSystemObject")
'set f = fso.OpenTextFile("f:\wwwhome\boxmart_84083e43\connection.dat")
set f = fso.OpenTextFile("d:\hotclick\connection.dat")
strconnect = f.Readline
Set Dbcon = Server.CreateObject("ADODB.Connection")
DbCon.Open strConnect
sql = "update tblcustomer set status = 'N' where user_id = '" & Session("ssnUserid") & "'"
Dbcon.Execute sql
Dbcon.Close
Set Dbcon = nothing
End Sub