|
|
|
|
 |
|
돌맹이 / 2001-08-23 / 오후 1:02:49 / 203.234.144.16
조회수 : 118
|
| [질문] 카운터 질문입니다.< |
[서버에 있는 카운터]
<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만들어서 집어넣으면 되나요.
저 개인적으로는 [서버에 있는 카운터]는 괜찮은 것
같은 데요...
방식 좀 가르쳐 주세요... |
|
|
|