|
|
|
|
 |
|
채영이 / 2001-08-23 / 오후 1:19:52 / 203.255.3.190
조회수 : 139
|
| [질문] 카운터 질문입니다.< |
> [서버에 있는 카운터]
> <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
>
> Sub Application_OnStart
> Set Application("DBConn")=Server.CreateObject("ADODB.Connection")
> Application("DBConn").Open ("DSN=*****;UID=**;PWD=******")
> Application("time") = now
> Application("count") = 0
> 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
> End Sub
>
> Sub Session_OnEnd
> Application.Lock
> Application("Count")=Application("Count")-1
> Application.UnLock
> End Sub
> </script>
> ----------------------------------------------
> [본인작성 카운터]
> <script language="VBScript" Runat="Server">
>
> sub Application_OnStart
>
> Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
> VisitCountFileName = "C:\inetpub\wwwroot\work\bycksan\test\count\visitnum\visit.txt"
> SetOut = FileObject.OpenTextFile(VisitCountFileName,1,FALSE,FALSE)
> Application("count")=Out.Readline
> Application("VisitCountFileName") = VisitCountFileName
> 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
>
> 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
>
> </script>
> -----------------------------------------------
> 현재 회사홈페이지카운터는 "host : "www.*****" is not in the auth block of the conf file"
> 을 가르키고 있네요.
> 담당자 말로는 다른 곳에 링크걸었는데 지원이 안된다
> 고 해서 다시 만들어 보았습니다....
> 본인이 만든 이 카운터를 다시 서버에다 집어넣고
> visit.txt만들어서 집어넣으면 되나요.
> 저 개인적으로는 [서버에 있는 카운터]는 괜찮은 것
> 같은 데요...
> 방식 좀 가르쳐 주세요...
-----------------------------------------------------------
방식이라는게 무슨 말씀이신가요?
프로그램을 다 해 놓으시고 방식이란건 뭘 말씀하시는건지...
님이 하시는 방식이 맞습니다...
카운트 만드는 방법은 asp책에 보면 자세히 나와 있습니다.
책 사기가 아까우시면 서점에 가셔서 잠시 보셔도 될것 같네요...
이미 알고리즘은 다 아시는 것 같으닌까요...
|
|
|
|