|
|
|
|
 |
|
채영이 / 2001-06-02 / 오후 4:27:09 / 203.255.3.190
조회수 : 151
|
| [질문] 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 파일이 생성되지 않아서 그런것 같은데요...
확인해 보세요....
|
|
|
|