|
|
|
|
 |
|
채영이 / 2001-06-04 / 오후 9:30:42 / 203.255.3.190
조회수 : 176
|
| [질문] global.asa오류 |
> > > 오류 형식:
> > > Microsoft VBScript 런타임 오류 (0x800A0035)
> > > 파일을 찾을 수 없습니다.
> > > /bjha/global.asa, line 7
> > > 처음 카운터를 실행하면 오류가 나고
> > > 두번째 새로고침해야 오류가 없어요.카운터는
> > > 전체,현재,오늘 입니다.
> > > <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
> > >
> > > Sub Application_OnStart
> > > Dim FileObject, visitCountFileName, Out
> > > Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
> > > VisitCountFileName = Server.MapPath("visit.txt")
> > > Set Out = FileObject.OpenTextFile(VisitCountFileName,1,FALSE,FALSE)
> > > Application("Visit")=Out.ReadLine
> > > Application("TodayVisit")=Out.ReadLine
> > > Application("Today")=Out.ReadLine
> > > Application("CurrentVisitor")=0
> > > Application("VisitCountFileName")=VisitCountFileName
> > > End Sub
> > > Sub Application_OnEnd
> > > Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
> > > Set Out = FileObject.CreateTextFile(Application("VisitCountFileName"),TRUE,FALSE)
> > > Application.Lock
> > > Out.WriteLine(Application("Visit"))
> > > Out.WriteLine(Application("TodayVisit"))
> > > Out.WriteLine(Application("Today"))
> > > Application.UnLock
> > >
> > > End sub
> > >
> > > Sub Session_OnStart
> > > Dim FileObject, Out
> > >
> > > Application.lock
> > > Application("Visit")= Application("Visit")+1
> > > Application("CurrentVisitor")=Application("CurrentVisitor")+1
> > > if Application("Today") = date() then
> > > Application("TodayVisit")=Application("TodayVisit")+1
> > > Application("Today") = date()
> > > else
> > > Application("TodayVisit")=0
> > > Application("Today") = date()
> > > end if
> > > Application.unlock
> > >
> > > Session.Timeout = 20
> > >
> > > If Application("Visit") MOD 5 = 0 Then
> > > Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
> > > Set Out = FileObject.CreateTextFile(Application("VisitCountFileName"),TRUE,FALSE)
> > >
> > > Application.lock
> > > Out.WriteLine(Application("Visit"))
> > > Out.WriteLine(Application("TodayVisit"))
> > > Out.WriteLine(Application("Today"))
> > > Application.unlock
> > > End If
> > >
> > >
> > > End Sub
> > >
> > > Sub Session_OnEnd
> > > Application.Lock
> > > Application("CurrentVisitor")=Application("CurrentVisitor")-1
> > > Application.UnLock
> > >
> > > End Sub
> > >
> > > </SCRIPT>
> > >
> > >
> > -----------------------------------------------------------
> >
> > visit.txt 파일이 생성되지 않아서 그런것 같은데요...
> >
> > 확인해 보세요....
> >
> >
> -----------------------------------------------------------
> 답변주셔서 감사합니다..
> 당연히 visit.txt만들었습니다.그런데두 에러가 나네요.
> visit.txt에 방문객숫자가 기록되어 있어야되죠
> 그런데 visit.txt에 아무것두 없어요.
> visit.txt위치가 가상디렉토리 밑에 두면 되잖아요.
>
>
-----------------------------------------------------------
visist.txt를 만들고 그 안에
0
0
2001-05-08
을 미리 넣어 두고 한번 해 보세요....
아마 잘 될것입니다.... 그럼...
|
|
|
|