Global.asa파일

소개글

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

본문내용

ileSystemObject\")
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