꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	> [main.asp] > <tr> <font size="-1" color="BROWN">방문자 수 > <% > count = application("count") > > for i=1 to Len(count) > select case Mid(count,i,1) > > case "1" > response.write "<img src = 'image\1.jpg' align='middle'>" > case "2" > response.write "<img src = '\image\2.jpg' align='middle'>" > case "3" > response.write "<img src = '\image\3.jpg' align='middle'>" > case "4" > response.write "<img src = '\image\4.jpg' align='middle'>" > case "5" > response.write "<img src = '\image\5.jpg' align='middle'>" > case "6" > response.write "<img src = '\image\6.jpg' align='middle'>" > case "7" > response.write "<img src = '\image\7.jpg' align='middle'>" > case "8" > response.write "<img src = '\image\8.jpg' align='middle'>" > case "9" > response.write "<img src = '\image\9.jpg' align='middle'>" > case "0" > response.write "<img src = '\image\0.jpg' align='middle'>" > > end select > next > %> 번째 입니다. > > > [global.asa] > <script language="VBScript" Runat="Server"> > > sub Application_OnStart > > Set Application("DBConn")=Server.CreateObject("ADODB.Connection") > Application("DBConn").Open ("DSN=***;UID=;PWD=***") > > Set FileObject = Server.CreateObject("Scripting.FileSystemObject") > VisitCountFileName = "C:\visitnum\visit.txt" > > > Application("VisitCountFileName") = VisitCountFileName > Application("time") = now > Application("count") = 10000 > > > End sub > > > > > Sub Application_OnEnd > > Set FileObject = Server.CreateObject("Scripting.FileSystemObject") > Set Out = FileObject.CreateTextFile(Application("visitCountFileName"),TRUE) > > Application.Lock > Out.WriteLine(Application("count")) > Application.unlock > > End sub > > > Sub Session_OnStart > > ipaddr = Request.ServerVariables("REMOTE_ADDR") > SQL = "INSERT INTO userCount(ssdat, ipaddress) VALUES(getdate(), '"&ipaddr&"')" > Application("DBConn").execute(SQL) > Application.lock > Application("count") = Application("count")+1 > Application.unlock > > session.timeout = 20 > > If Application("count") MOD 10 = 0 then > Set FileObject = Server.CreateObject("Scripting.FileSystemObject") > > > Application.lock > > out.writeLine(Application("count")) > > out.close > Application.unlock > End if > > End Sub > > Sub Session_OnEnd > > End Sub > > > Sub Session_OnEnd > Application.Lock > Application("Count")=Application("Count")-1 > Application.UnLock > End Sub > </script> > > > 카운터는 시작되었습니다. > 그런데요. 한참 카운팅하다가 예)10100 --> 10084로 > 바뀌네요. > 제가 보기에 에러가 보이질 않아서요. > 우왕 후에 이 사실을 알았는데 왜 그런지 좀 가르쳐 > 주세요.... > ----------------------------------------------------------- 흠... 대충 봤을때 소스상에 여러 문제가 보이는데요... 일단 방문자의 카운트수는 파일로 세고 방문자의 정보는 DB에다 집어 넣고 있는것 같네요... DB를 사용할거면 아예 파일을 사용하지 않고 그냥 DB로부터 SELECT를 하면 되지 않나요? 굳이 방문자의 수를 파일에 기록할 필요가 없겠죠... 그 다음에 Applicaiotn_OnStart에서요 Application("count") = 10000 이라는 문장이 보이는군요... 이렇게 되면 컴을 켰다 껄때마다 카운트가 10000으로 초기화 될텐데.... 그렇지 않나요? 흠.... 그리고 카운트의 숫자가 내려가는 이유는 Session_OnEnd에서 왜 Application("count")에서 빼기를 하시는지요? 그렇게 되면 당연히 Application("count")의 숫자가 내려갈 거고... 그럼 화면에는 카운트의 숫자가 줄겠지요... Session_OnEnd가 2개나 있네요.... 흠...

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *