%
' 사이트 기본정보 -----------------------------------------------------------------------
R_Fields = "sc_idx, sc_url, sc_hdate1, sc_hdate2, sc_hdd, sc_copyright, sc_logouttime, sc_date_chk, sc_hdd_chk"
R_tablename_str = "site_config"
R_WHERE_str = " WHERE sc_idx=1"
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
'//----------------------------------------------------------------------------------------
'// 폴더용량 -----------------------------------------------------------------------
'Set state = Server.CreateObject("Scripting.Dictionary")
'
''//홈디렉토리 용량을 구해온다..
'dir = server.MapPath("/") & "\"
'state("is_filesize") = get_dirsize(dir)
'
''//하드 사용용량
'state("is_sc_hdd") = sc_hdd*1024*1024*1024
'
''//사용퍼센트
'per = formatnumber(state("is_filesize") / state("is_sc_hdd") * 100)
'
'
''// DB 사용량
'Set tmp = dbcon.execute("select table_name = convert(varchar(30), min(o.name)), table_size = ltrim(str(sum(reserved) * 8192 / 1024.,15,0) ) from sysindexes i inner join sysobjects o on (o.id = i.id) where i.indid in (0, 1, 55) and o.xtype = 'U' group by i.id order by table_name ")
'
'Do Until tmp.eof
' state("size_db") = state("size_db") + tmp("table_size")
' tmp.movenext
'loop
'
'Set tmp = nothing
'
''//DB 제한용량 (100MB)
'state("db_hdd") = 100*1024*1024
'
'per2 = formatnumber( ( state("size_db") / 1024 ) / state("db_hdd") * 100)
'//----------------------------------------------------------------------------------------
'// 방문자·게시판 정보 -----------------------------------------------------------------------
sql = "select top 1 vYY,vMM,vDD,vHH,vMT from visit_counter order by vNum"
Set rs = dbcon.execute( sql )
countStart = rs("vYY") & "-" & rs("vMM") & "-" & rs("vDD") & " " & rs("vHH") & ":" & rs("vMT")
sql = "select count(*) as vCount from visit_counter"
Set rs = dbcon.execute( sql )
countTotal = rs("vCount")
'//countYesterday(어제 방문자수)
Yesterday = DateSerial(Year(now), Month(now), Day(now)-1)
sql ="select count(*) as YCount from visit_counter where vYY=" & Year(Yesterday) & " and vMM = " & month(Yesterday) & " and vDD = " & day(Yesterday)
Set rs = dbcon.execute( sql )
countYesterday = rs("YCount")
'countToday(오늘 방문자수)
sql ="select count(*) as TCount from visit_counter where vYY = " & Year(now) & " and vMM = " & Month(now) & " and vDD = " & Day( now )
Set rs = dbcon.execute( sql )
countToday = rs("TCount")
'countTop(최고 방문자수)
sql = "select top 1 vYY,vMM,vDD,count(*) as vC from visit_counter group by vYY,vMM,vDD order by vC desc"
Set rs = dbcon.execute( sql )
countTop = rs("vC")
'//countUnder(최소 방문자수)
sql ="select vYY,vMM,vDD,count(*) as vC from visit_counter group by vYY,vMM,vDD order by vC asc"
Set rs = dbcon.execute( sql )
countUnder = rs("vC")
'//countAVG(평균 방문자수)
sql = "select vYY,vMM,vDD,count(*) as vC from visit_counter group by vYY,vMM,vDD"
Set col = dbcon.execute( sql )
countAVG = 0
i = 1
Do Until col.eof
countAVG = countAVG + col("vC")
i = i + 1
col.movenext
loop
countAVG = countAVG / i
Set rs = Nothing
Set col = nothing
'//----------------------------------------------------------------------------------------
'// 게시판 정보 -----------------------------------------------------------------------
sql = "select count(*) as bCount from board_config "
Set rs2 = dbcon.execute( sql )
bCount = rs2("bCount")
'//----------------------------------------------------------------------------------------
'// 전체게시글 갯수 -----------------------------------------------------------------------
'ViewCreate()
sql ="select count(*) as bCount2 from board_total "
Set rs2 = dbcon.execute( sql )
bCount2 = rs2("bCount2")
'//----------------------------------------------------------------------------------------
'// 오늘 게시글 갯수 -----------------------------------------------------------------------
is_b_regdate = Date()
sql ="select count(*) as bCount3 from board_total where b_regdate like '" & is_b_regdate & "%' "
Set rs2 = dbcon.execute( sql )
bCount3 = rs2("bCount3")
'//----------------------------------------------------------------------------------------
'// 月 사이트 방문현황 -----------------------------------------------------------------------
YY = inputValue( request("YY") )
MM = inputValue( request("MM") )
DD = inputValue( request("DD") )
If YY = "" and MM = "" and DD = "" and TT = "" then
YY = Year(now)
MM = Right( "0" & Month(now), 2 )
'//$DD = date("d");
End if
'//where 조건
SetWhere()
'//카운터 수의 합을 구한다
qry ="select count(*) as TCount from visit_counter " & qryValue
Set col = dbcon.execute( qry )
sumCount = col("TCount")
if year_val <> "" and month_val <> "" Then
dataLength = Day( DateSerial(year_val, month_val+1, 1-1) )
else
dataLength = 31
End if
Dim arrValue(31), arrData(31, 3)
For i=1 to dataLength
arrValue(i) = 0
next
'//카운터 수의 합을 구한다
qry = "select vDD,count(*) as VCount from visit_counter " & qryValue & " group by vDD order by vDD"
'//echo $qry;
Set col = dbcon.execute( qry )
Do Until col.eof
arrValue( col("vDD") ) = col("VCount")
col.movenext
loop
Set col = nothing
maxCount = 0
minCount = 100000
For j = 1 To dataLength
arrData(j,0) = arrValue(j) '카운터
If sumCount > 1 then
arrData(j, 1) = (arrValue(j) / sumCount) * 100
if arrData(j,1) > 0 then arrData(j,1) = formatnumber( arrData(j,1), 0)
arrData(j,2) = (arrValue(j) / sumCount) * 550
else
arrData(j, 1) = 0
arrData(j, 2) = 0
End If
If minCount > arrValue(j) then minCount = arrValue(j)
If maxCount < arrValue(j) Then maxCount = arrValue(j)
if arrData(j,0) = 0 then
arrData(j,0) = ""
End if
if arrData(j,2) = 0 then
arrData(j,2) = ""
End if
next
'//----------------------------------------------------------------------------------------
'// 사이트 기본정보 -----------------------------------------------------------------------
R_Fields = "mm_idx, mm_content, mm_wdate, mm_id"
R_tablename_str = "manager_memo"
R_WHERE_str = " WHERE mm_id='" & session("ss_m_id") & "'"
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
'//----------------------------------------------------------------------------------------
%>
접속자 정보
<%=session("ss_m_name")%>님 IP_<%=request.ServerVariables("REMOTE_ADDR")%>
홈페이지 관리자모드입니다.
버전: 1.00.09.0722
도메인: <%=sc_url%>
<%If sc_date_chk <> "Y" Then %>
기간: <%=replace(sc_hdate1, "-", ".")%>~<%=replace(sc_hdate2, "-", ".")%>
잔여일: <%=get_ssday(date(), sc_hdate2)%>일
<%End if%>
최근게시물
최근게시물 (최근 10일)
<%
If SESSION("ss_g_num") = "1" then
sql = "select a_num, a_bbsname, b_num, b_subject, b_regdate, b_name from board_total where b_regdate >= '"&(Date()-10)&"' order by b_regdate desc"
Else '총관리자가 아닐경우 내가 관리권한있는 게시판만 가져오기
sql = "select a_num, a_bbsname, b_num, b_subject, b_regdate, b_name from board_total where b_regdate >= '"&(Date()-10)&"' and ( a_num in (select a_num from board_config where a_ad_cms_id like '%"&SESSION("ss_m_id")&"%') or a_num in (select a_num from board_access where g_num = '" & SESSION("ss_g_num") & "' and bl_ad_cms = 'Y') ) order by b_regdate desc"
End if
Set row = dbcon.execute( sql )
If Not( row.bof Or row.eof ) Then
Do Until row.eof
a_num = row("a_num")
a_bbsname = row("a_bbsname")
b_num = row("b_num")
If a_num = "99755066" Or a_num = "79629137" then
b_subject = row("b_name")
Else
b_subject = row("b_subject")
End if
b_subject_str = remove_tags( b_subject )
b_subject_str = StringToHTML( b_subject_str, 50, false )
b_regdate = Left(row("b_regdate"), 10 )
b_regdate2 = Right(b_regdate, 5)
%>
<%=b_regdate2%>
<%
row.movenext
Loop
End if
Set row = nothing
%>
방문자·게시판 정보
방문자·게시판 정보
방문자·게시판 양식
오늘의 방문자
<%=formatnumber(countToday, 0)%> 명
총 방문자
<%=formatnumber(countTotal, 0)%> 명
어제의 방문자
<%=formatnumber(countYesterday,0)%>명
현재 게시판 수
<%=bCount%>개
이달의 방문자
<%=formatnumber(sumCount, 0)%>명
전체 게시글
<%=bCount2%>개
최고방문자
<%=formatnumber(countTop, 0)%>명
오늘 등록된 게시글
<%=bCount3%>개
<%
today = Weekday(Date())
Select Case today
Case 1 : day_value = "(일)"
Case 2 : day_value = "(월)"
Case 3 : day_value = "(화)"
Case 4 : day_value = "(수)"
Case 5 : day_value = "(목)"
Case 6 : day_value = "(금)"
Case 7 : day_value = "(토)"
End select
%>
날짜(요일) 정보
<%=Date() & " " & day_value%>