꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	아래 소스인데요 굉장히 복잡해여,,,,, 여기저기 프로그램을 썩어서 사용하다보니.... 뒤 썩인것 같아여~ golbal 사용중 현재접속자,오늘접속자는 되는데 전체접속자 합계가 안되내요 뭐가 잘못된는지 잘모르겠어여. 두번째는요. Application("AdminPass") = "kcm7777" 이부분이 되지를 안는것 같아여~ 위치가 잘못된나여,,,,,,??? 부탁드립니다! global.asa가 사이트메인외에 사용하는방법도 있다던데 그걸 어떻게 설정하는지도 좀 가르쳐주시면 감사하겠습니다. 소스입니다! <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart End Sub Sub Application_OnEnd End sub Sub Session_OnStart ' Session의 유지 값을 설정한다 Session.TimeOut = 20 Application("AdminPass") = "7777" ' WebZip,Teleport,NamoWebEditor,GetRight,WebFetch로 부터 접근하는것을 막는다 V_IP = Request.ServerVariables("Remote_Addr") V_Agent = Request.ServerVariables("HTTP_USER_AGENT") If InStr(V_Agent, "WebZIP") Then Response.Redirect "http://" & V_IP Elseif InStr(V_Agent, "Teleport") Then Response.Redirect "http://" & V_IP Elseif InStr(V_Agent, "NamoWebEditor") Then Response.Redirect "http://" & V_IP Elseif InStr(V_Agent, "GetRight") Then Response.Redirect "http://" & V_IP Elseif InStr(V_Agent, "WebFetch") Then Response.Redirect "http://" & V_IP End If Application.Lock Set DbCon=Server.CreateObject("ADODB.Connection") DbCon.Open("DSN=sss;UID=sa;PWD=1234") ' 로그정보의 Key값을 생성하는 루틴 Sec = Second(time) If Cint(Sec) < 10 Then Key = StrReverse(Session.SessionID & "0" & Sec) Else Key = StrReverse(Session.SessionID & Sec) End If ' 로그정보를 남기는 루틴 'SQL = "Insert into user_logs values " 'SQL = SQL & "('" & Key & "','" & Now() & "','" & Now() & "','" & Request.ServerVariables("REMOTE_HOST") & "')" 'DbCon.Execute(SQL) ' 접속 통계를 위한 루틴구성 code = "home" vDate = trim(cstr(date())) '현재 시스템 날짜 (99/04/02) vYear = trim(cstr(year(date))) '시스템 년도 (1999) vMonth = trim(cstr(month(date))) '시스템 월 (4) vDay = trim(cstr(day(date))) '시스템 일(2) vTime = trim(cstr(hour(time))) '시스템 시간 (15) vWeek = trim(cstr(weekday(date))) '시스템 요일값(6) ' Conn_Stat 테이블에 값이 있는지 없는지 체크하고, 값이 있을 경우 해당 코드의 최초, 최근 Number값 읽는다 SQL = "SELECT Count(number),Max(number),Min(number) FROM conn_statistics WHERE code = '" & code & "'" Set lscheck1 = DbCon.Execute(SQL) If lscheck1(0) <> 0 Then '초기 테이블이 존재한다면 mnum = cint(lscheck1(1)) '가장 최근 기록된 레코드 넘버 snum = cint(lscheck1(2)) '최초 기록된 레코드 넘버 ' 가장 최근 기록된 레코드의 필드값을 읽어들임 SQL = "SELECT * FROM conn_statistics WHERE code = '" & code & "' and number=" & lscheck1(1) & " " Set lsyear = DbCon.Execute(SQL) ddate = trim(cstr(lsyear("vdate"))) dyear = trim(cstr(lsyear("vyear"))) dmonth = trim(cstr(lsyear("vmonth"))) dday = trim(cstr(lsyear("vday"))) dtime = trim(cstr(lsyear("vtime"))) tvisit = cint(lsyear("tvisit")) dvisit = cint(lsyear("dvisit")) mvisit = cint(lsyear("mvisit")) wvisit = cint(lsyear("wvisit")) If (ddate = vDate and dtime = vTime) Then '만약 최근 레코드 값이 오늘 날짜 현재시간인 경우 '전체 접속 수 1 증가 SQL = "UPDATE conn_statistics SET avisit=avisit+1 WHERE code='" & code & "' and number=" & snum & " " Set rsupta = DbCon.Execute(SQL) '시간, 일, 월, 요일 접속 수 1씩 증가 SQL = "UPDATE conn_statistics SET " SQL = SQL & "tvisit=tvisit+1,dvisit=dvisit+1,mvisit=mvisit+1,wvisit=wvisit+1 WHERE number=" & mnum & " " Set rsupt = DbCon.Execute(SQL) Else '오늘 날짜 현재시간이 아니라면 If (dyear = vYear and dmonth = vMonth and dday = vDay) Then '오늘 날짜인가를 체크해서 오늘 날짜이면은 '현재 시간값으로 추가해서 새로 레코드 작성 dvisit = cint(dvisit)+1 '일 전체접속수 + 1 mvisit = cint(mvisit)+1 '월 전체접속 수 + 1 wvisit = cint(wvisit)+1 '월별 주 최대값 + 1 '전체 접속수 1 증가 SQL = "UPDATE conn_statistics SET avisit=avisit+1 WHERE code='" & code & "' and number=" & snum & " " Set rsupta = DbCon.Execute(SQL) '현재 날짜에 현재시간으로 새로운 레코드 추가 SQL = "INSERT INTO conn_statistics(code,vdate,vyear,vmonth,vday,vtime,vweek,tvisit,dvisit,mvisit,wvisit,avisit) " & _ "VALUES ('"&code&"','"&vDate&"','"&vYear&"','"&vMonth&"','"&vDay&"','"&vTime&"','"&vWeek&"',1,"&dvisit&","&mvisit&","&wvisit&",0)" Set lsint = DbCon.Execute(SQL) Else '오늘 날짜가 아니라면 If (dyear = vYear and dmonth = vMonth) Then '현재의 달하고 같은가 체크하고 난 후 현재 달 하고 같다면 '현재 날짜를 추가해서 새로 레코드 작성 SQL = "SELECT Count(wvisit),Max(wvisit) FROM conn_statistics WHERE code='" & code & "'" SQL = SQL & " and vyear='" & vYear & "' and vmonth='" & vMonth & "' and vweek='" & vWeek & "'" Set lscw = DbCon.Execute(SQL) '요일 값이 없을 경우 에러가 발생하므로 If lscw(0) = "0" Then '해당 월에 해당 요일의 값이 없다면 mwvisit = 1 '그 요일의 접속 값을 1로 Else mwvisit = cint(lscw(0)) + 1 '이미 해당요일의 값이 있다면 1 증가 End If mvisit = cint(mvisit) + 1 '월 전체 접속수 +1 '현재 날짜의 새로운 레코드 추가 SQL = "INSERT INTO conn_statistics(code,vdate,vyear,vmonth,vday,vtime,vweek,tvisit,dvisit,mvisit,wvisit,avisit) " & _ "VALUES ('"&code&"','"&vDate&"','"&vYear&"','"&vMonth&"','"&vDay&"','"&vTime&"','"&vWeek&"',1,1,"&mvisit&","&mwvisit&",0)" Set lsind = DbCon.Execute(SQL) '전체 접속수 1 증가 SQL = "UPDATE conn_statistics SET avisit=avisit+1 WHERE code='" & code & "' and number=" & snum & " " Set rsupta = DbCon.Execute(SQL) Else '현재의 달이 아니라면 If dyear = vYear Then '올해인가를 체크하고 난 후 올해이면 '현재의 달을 추가해서 새로 레코드 작성 SQL = "INSERT INTO conn_statistics(code,vdate,vyear,vmonth,vday,vtime,vweek,tvisit,dvisit,mvisit,wvisit,avisit) " & _ "VALUES ('"&code&"','"&vDate&"','"&vYear&"','"&vMonth&"','"&vDay&"','"&vTime&"','"&vWeek&"',1,1,1,1,0)" Set lsinm = DbCon.Execute(SQL) '전체접속수 1 증가 SQL = "UPDATE conn_statistics SET avisit=avisit+1 WHERE code='" & code & "' and number=" & snum & " " Set rsupta = DbCon.Execute(SQL) End If End If End If End If Else ' conn_statistics 테이블을 생성하고 초기값 입력 'SQL = "insert into conn_statistics(code,vdate,vyear,vmonth,vday,vtime,vweek,tvisit,dvisit,mvisit,wvisit,avisit) " & _ '" values ('"&code&"','"&vDate&"','"&vYear&"','"&vMonth&"','"&vDay&"','"&vTime&"','"&vWeek&"',1,1,1,1,1) " 'Set lsyearin = DbCon.Execute(SQL) End If Application.UnLock End Sub Sub Session_OnEnd Application.Lock Set DbCon=Server.CreateObject("ADODB.Connection") DbCon.Open("DSN=sss;UID=sa;PWD=1234") SQL = "UPDATE user_logs SET log_out='"&Now()&"' where SubString(log_id,3,10)='"&StrReverse(Session.SessionID)& "'" DbCon.Execute(SQL) SQL = "Delete from temp_buy where SubString(temp_id,3,10) ='" & StrReverse(Session.SessionID) & "'" DbCon.Execute(SQL) Application.UnLock End Sub </SCRIPT> <SCRIPT LANGUAGE="VBscript" RUNAT=Server> Sub Session_OnStart Application.lock ' 한 Session의 처리가 끝날 때까지 다른 Session에 의한 간섭으로 생길 수 있는 ' 오류를 차단하기위해 Application을 잠근다. '현재 방문자수 증가 시작 ' if Not IsNumeric(Application("NowVisitor")) then ' Application("NowVisitor")= 1 ' end if Application("NowVisitor") = Application("NowVisitor") + 1 '현재 방문자수 증가 끝 Set FileObject = Server.CreateObject("Scripting.FileSystemObject") ' 누적 방문자 카운트 On Error Resume Next VisitorsPath = Application("ServerPath") + "/Visitors/Visitors.dat" Set ObjVisitor = FileObject.OpenTextFile (VisitorsPath) visitors = ObjVisitor.ReadLine If len(visitors)=0 Then visitors=1 Else visitors=Cint(visitors)+1 End If Set ObjVisitor = Nothing Set ObjVisitor = FileObject.CreateTextFile (VisitorsPath, TRUE, FALSE) ObjVisitor.lock ObjVisitor.WriteLine(visitors) ObjVisitor.unlock Application("Visitors") = visitors Set ObjVisitor = Nothing ' 누적 방문자 카운트 끝 ' 오늘 방문자 카운트 TodayVisitorsPath = Application("ServerPath") + "/Visitors/TodayVisitors.dat" Set ObjVisitor = FileObject.OpenTextFile (TodayVisitorsPath) Today = CDate(ObjVisitor.ReadLine) TodayVisitors = Cint(ObjVisitor.ReadLine) if Today <> Date() then ' 오늘 방문자의 카운트 때 날짜가 새롭게 바뀌면 초기화한다. ' 오늘 방문자 정보를 기록할 파일생성 AppVisitorsPath = Application("ServerPath") + "/Visitors/"+Cstr(date())+".dat" Set ObjPreVisitor = FileObject.CreateTextFile (AppVisitorsPath, TRUE, FALSE) ObjPreVisitor.lock ObjPreVisitor.WriteLine("총---오늘---20분--- 날짜/시간 --- Host Info --- SessionID --- Browser Info") ObjPreVisitor.unlock Set ObjPreVisitor = Nothing ' 오늘 방문자 정보를 기록할 파일생성 끝 Today = Date() TodayVisitors = 0 end if TodayVisitors = TodayVisitors + 1 ' 오늘 방문자 증가 Set ObjVisitor = Nothing TodayVisitorPath = Application("ServerPath") + "/Visitors/TodayVisitors.dat" Set ObjVisitor = FileObject.CreateTextFile (TodayVisitorPath, TRUE, FALSE) ObjVisitor.lock ObjVisitor.WriteLine(Today) ObjVisitor.WriteLine(TodayVisitors) ObjVisitor.unlock Application("TodayVisitors") = TodayVisitors Set ObjVisitor = Nothing ' 오늘 방문자 카운트 끝 ' 방문자 정보 기록 시작 ' 이 부분은 방문자의 접속정보를 알아내기 위한 부분이다. ' 누적카운트와 오늘카운트, 현재카운트, 날짜/시간, IP Address, SessionID, 접속에 사용한 브라우져 가 기록된다. Dim VisitorInfo() Redim VisitorInfo(1) i=0 AppVisitorsPath = Application("ServerPath") + "/Visitors/"+Cstr(date())+".dat" Set ObjVisitor = FileObject.OpenTextFile (AppVisitorsPath) Do While Not ObjVisitor.AtEndOfStream CurLine = ObjVisitor.ReadLine VisitorInfo(i) = CurLine i = i + 1 Redim Preserve VisitorInfo(i) Loop VisitorInfo(i) = Application("Visitors") & "---" & Application("TodayVisitors") & "---" & Application("NowVisitor") & "---" & now() & "---" & Request.ServerVariables("REMOTE_HOST") & "---" & Session.SessionID & "---" & Request.ServerVariables("HTTP_USER_AGENT") & chr(13) Set ObjVisitor= FileObject.CreateTextFile (AppVisitorsPath, TRUE, FALSE) ObjVisitor.lock for o=0 to i ObjVisitor.WriteLine(VisitorInfo(o)) Next ObjVisitor.unlock Set ObjVisitor = Nothing ' 방문자 정보 기록 끝 Set FileObject = Nothing Application.unlock 'end if End Sub Sub Session_OnEnd '현재 방문자수 감소 시작 Application.lock Application("NowVisitor")= Application("NowVisitor")-1 if Application("NowVisitor") <= 0 then Application("NowVisitor")= 0 end if Application.unlock '현재 방문자수 감소 끝 Session.abandon End Sub Sub Application_OnStart Application.lock Application("NowVisitor") = 0 ' 현재의 방문자수 초기화 Application("ServerPath") = Server.MapPath ("/") ' 웹서버의 논리경로 설정 Application.unlock End Sub </SCRIPT> 부탁드려여^^

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *