꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> 아래의 파일은 global.asa파일입니다. > 방문자가 사이트에 몇번째 방문했는지 알아보려고 하는 것입니다. 그런데, 맞는지 틀린지를 모르겠습니다. > 보시고 틀린 부분이 있으면 고쳐서 좀 가르쳐 주세용부탁드립니다. > > Sub Application_OnStart > Const ForReading = 1 > Const ForWriting = 2 > Const ForAppending = 8 > Dim strFile > strFile = "d:\asp\visit\visit.txt" > Set objFSO = CreateObject("Scripting.FileSystemObject") > Set objFile = objFSO.OpenTextFile(strFile, ForReading) > VisitFile = objFile.Readline > Application("visit") = VisitFile > Application("user") = 0 > objFile.Close > End Sub > Sub Application_OnEnd > End Sub > Sub Session_OnStart > Const ForReading = 1 > Const ForWriting = 2 > Const ForAppending = 8 > Dim strFile > strFile = "d:\asp\visit\visit.txt" > Set objFSO = CreateObject("Scripting.FileSystemObject") > Set objFile = objFSO.OpenTextFile(strFile, ForWriting) > Application.Lock > Application("visit") = Application("visit") + 1 > intVisit = Application("visit") > Application.Unlock > Session("visitcount") = intVisit > Application.Lock > Application("user") = Application("user") + 1 > intUser = Application("user") > Application.Unlock > objFile.WriteLine > intVisit objFile.Close > End Sub > Sub Session_OnEnd > Application.Lock > Application("user") = Application("user") - 1 > Application.Unlock > End Sub > objFile.Close > > 보신다구 수고하셨습니다. > 빠른 답변Sub Application_OnStart > Const ForReading = 1 > Const ForWriting = 2 > Const ForAppending = 8 > Dim strFile > strFile = "d:\asp\visit\visit.txt" > Set objFSO = CreateObject("Scripting.FileSystemObject") > Set objFile = objFSO.OpenTextFile(strFile, ForReading) > VisitFile = objFile.Readline > Application("visit") = VisitFile > Application("user") = 0 > objFile.Close > End Sub > Sub Application_OnEnd > End Sub > Sub Session_OnStart > Const ForReading = 1 > Const ForWriting = 2 > Const ForAppending = 8 > Dim strFile > strFile = "d:\asp\visit\visit.txt" > Set objFSO = CreateObject("Scripting.FileSystemObject") > Set objFile = objFSO.OpenTextFile(strFile, ForWriting) > Application.Lock > Application("visit") = Application("visit") + 1 > intVisit = Application("visit") > Application.Unlock > Session("visitcount") = intVisit > Application.Lock > Application("user") = Application("user") + 1 > intUser = Application("user") > Application.Unlock > objFile.WriteLine > intVisit objFile.Close > End Sub > Sub Session_OnEnd > Application.Lock > Application("user") = Application("user") - 1 > Application.Unlock > End Sub > objFile.Close > > 보신다구 수고하셨습니다. > 빠른 답변 부탁 드립니다. > > -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *