|
|
|
|
 |
|
채영이 / 2001-10-27 / 오후 2:19:51 / 203.255.3.190
조회수 : 198
|
| [질문] 카운터 소스 한번 봐주세요.< |
> <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이됩니다.
-----------------------------------------------------------
application("today")에 들어 있는 값과
date에서 나오는 값이 같나 안 같나 비교해 보세요...
그럼..
|
|
|
|