당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)
ID와 Password를 입력하세요.
입국하기
|
영주권 신청
몸부림 골라골라
소근소근
도란도란
낙서마당
착각한아이
숫자맞추기
소원빌기
흔적남기기
꿈속여행
친구집 놀러가기
모두드림님의 홈
在祐님의 홈
현우님의 홈
별아해님의 홈
햇살님의 홈
이나니님의 홈
유리알님의 홈
냠냠이님의 홈
꼭지님의 홈
대성님의 홈
수정하실때는 필수항목을 모두 입력하셔야 합니다.
이름
*
공지사항
비공개
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
*
