꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 *