|
|
 |
|
한스 / 2001-06-10 / 오전 2:28:26 / 203.228.58.245
조회수 : 151
|
| [질문] golbal 사용중 방문자 합계가 안되내요! 도와주세요^^ |
아래 소스인데요
굉장히 복잡해여,,,,,
여기저기 프로그램을 썩어서 사용하다보니....
뒤 썩인것 같아여~
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>
부탁드려여^^
|
|
|
|