꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> > > > [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") = 0 > > > > > > 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") > > Set Out = FileObject.CreateTextFile(Application("visitCountFileName"),TRUE) > > > > 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> > > > > > > [main.asp] > > <div id="Layer10" style="position:absolute; width:200px; height:84px; z-index:10; left: 476px; top: 394px"> > > <table border="0" width="208"> > > <tr> <font size="-1" color="ffffff">현재 카운터는 : > > <% > > count = application("count") > > > > for i=1 to Len(count) > > select case Mid(count,i,1) > > > > case "1" > > response.write "<img src = 'C:\image\1.jpg' align='middle'>" > > case "2" > > response.write "<img src = 'C:\image\2.jpg' align='middle'>" > > case "3" > > response.write "<img src = 'C:\image\3.jpg' align='middle'>" > > case "4" > > response.write "<img src = 'C:\image\4.jpg' align='middle'>" > > case "5" > > response.write "<img src = 'C:\image\5.jpg' align='middle'>" > > case "6" > > response.write "<img src = 'C:\image\6.jpg' align='middle'>" > > case "7" > > response.write "<img src = 'C:\image\7.jpg' align='middle'>" > > case "8" > > response.write "<img src = 'C:\image\8.jpg' align='middle'>" > > case "9" > > response.write "<img src = 'C:\image\9.jpg' align='middle'>" > > case "0" > > response.write "<img src = 'C:\image\0.jpg' align='middle'>" > > > > end select > > next > > %> > > 이렇게 했는데 "현재 카운터는 : ***" 이부분에 > > 그림이 뜰질 않네요.... > > 고수님 가르쳐 주세요. > > global.asa에서 잘못 된 느낌만 들고 답은 보이질 > > 않네요...... > > > ----------------------------------------------------------- > > > count = application("count") > Response.Write count > > 라고 출력을 해보십시요.. > 그러면 아마 숫자형태로 찍힐것 같네요.. > > 이미지 경로를 웹의 경로로 주셔서 하는데, 실제적인 물리디렉토리 경로로 주셨네요... > 그래서 안 뜨지 싶습니다.. > > 그리고 굳이 Select Case로 다 조건을 비교 할 필요 없이.. > > > For i= 1 to Len(Count) > imgName=Mid(Count, i, 1) > Response.write "<img src = 'C:\image\" &imgName &".jpg' align='middle'>" > Next > > 이렇게 해주면 코드가 훨씬 줄어 들것 같습니다. > > 문제는 'C:\image.....' > 이부분의 경로 문제 인듯 싶습니다.. > > 그럼 이만.. > -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *