|
|
|
|
 |
|
해피 / 2001-06-04 / 오후 6:30:02 / 211.190.56.234
조회수 : 168
|
| [질문] 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위치가 가상디렉토리 밑에 두면 되잖아요.
|
|
|
|