|
|
|
|
 |
|
채영이 / 2001-08-29 / 오후 6:15:42 / 203.255.3.190
조회수 : 140
|
| [질문] 카운팅에러입니다.
|
> [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개나 있네요.... 흠...
|
|
|
|