꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> > [서버에 있는 카운터] > > <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책에 보면 자세히 나와 있습니다. > > 책 사기가 아까우시면 서점에 가셔서 잠시 보셔도 될것 같네요... > > 이미 알고리즘은 다 아시는 것 같으닌까요... > > -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *