|
|
|
|
 |
|
꼭지 / 2001-08-27 / 오후 12:53:12 / 168.126.91.65
조회수 : 134
|
| [질문] 카운터 벌레 좀 잡아주세요.< |
>
> [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.....'
이부분의 경로 문제 인듯 싶습니다..
그럼 이만..
|
|
|
|