|
|
|
|
 |
|
프리맨 / 2001-10-27 / 오후 12:02:30 / 211.214.83.220
조회수 : 177
|
| [질문] 카운터 소스 한번 봐주세요.< |
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Set fso = Server.CreateObject("Scripting.FileSystemObject")
VisitCountFileName = "f:\inetpub\wwwroot\bestdaytest\visitnum\visit.txt"
Set Out = fso.OpenTextFile(VisitCountFileName,1,false,FALSE)
'총 카운터 읽어오기
Application("visit")=Out.ReadLine
Application("VisitCountFileName")=VisitCountFileName
Application("now_visit") = 1
'
' 오늘의카운트 시작
'카운트읽어오기 시작
todayfilepath = "f:\inetpub\wwwroot\bestdaytest\visitnum\today_visit.txt"
set todayout = fso.OpenTextFile(todayfilepath,1,false,false)
application("today_visit")=todayout.readline
application("todayfilepath")=todayfilepath
'카운트읽어오기 끝
'날짜읽어오기 시작
todayfilepath_day = "f:\inetpub\wwwroot\bestdaytest\visitnum\today_visit_day.txt"
set todayout_day = fso.OpenTextFile(todayfilepath_day,1,false,false)
application("today")=todayout_day.readline
application("todayfilepath_day")=todayfilepath_day
'날짜읽어오기 끝
' 오늘의카운트 끝
set fso = nothing
End Sub
Sub Application_OnEnd
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' 총 방문자 저장
Set Out = fso.CreateTextFile(Application("VisitCountFileName"),TRUE,FALSE)
Out.WriteLine(Application("visit"))
'오늘의 카운트 시작
'오늘의 카운트 저장 시작
set todayout=fso.createtextfile(application("todayfilepath"),true,false)
todayout.writeline(application("today_visit"))
'오늘의 타운트 저장 끝
'오늘의 날짜 저장 시작
set todayout_day=fso.createtextfile(application("todayfilepath_day"),true,false)
todayout_day.writeline(application("today"))
'오늘의 날짜 저장 끝
'오늘의 카운트 끝
set fso = nothing
End sub
Sub Session_OnStart
ip = request("remote_addr")
Application.lock
Application("visit")= Application("visit")+1
Application.unlock
Application.lock
Application("now_visit")= Application("now_visit")+1
Application.unlock
'
if Application("today_visit") mod 5 = 0 then
'
'오늘의 카운트 저장 시작
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set todayout=fso.createtextfile(application("todayfilepath"),true,false)
Application.Lock
todayout.writeline(application("today_visit"))
Application.UnLock
'오늘의 타운트 저장 끝
Set fso=nothing
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
'오늘의 카운트 끝
End Sub
Sub Session_OnEnd
Application.lock
Application("now_visit")= Application("now_visit")-1
Application.unlock
End Sub
</SCRIPT>
오늘 카운터가 이상합니다. 서버를 죽였다가 살리면
1이됩니다. |
|
|
|