|
|
|
|
 |
|
해피 / 2001-06-01 / 오후 10:11:00 / 211.190.56.234
조회수 : 162
|
| [질문] 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>
|
|
|
|