꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	> > > 오류 형식: > > > 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 을 미리 넣어 두고 한번 해 보세요.... 아마 잘 될것입니다.... 그럼...

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *