Files
2026-02-23 10:01:00 +09:00

301 lines
10 KiB
Plaintext

<!-- #include virtual = "/manager/common/file/top.asp" -->
<%
' 사이트 기본정보 -----------------------------------------------------------------------
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)
'//----------------------------------------------------------------------------------------
'// 방문자·게시판 정보 -----------------------------------------------------------------------
'부하때문에 제거 20231115 최경수
'//----------------------------------------------------------------------------------------
'// 게시판 정보 -----------------------------------------------------------------------
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)
'//----------------------------------------------------------------------------------------
%>
<!-- 중간 영역 -->
<div id="main_body_<%=skin%>">
<a name="contents" tabindex="<%=getTabIndex()%>"></a>
<!-- 왼쪽 메뉴 -->
<div id="content_left">
<div id="cl_info">
<h2 class="hidden">접속자 정보</h2>
<div class="content">
<img src="/manager/img/human_ic.gif" width="13" height="10" alt="" /><strong><%=session("ss_m_name")%>님 <span class="ip_con">IP_<%=request.ServerVariables("REMOTE_ADDR")%></span></strong>
<br />
<span class="info">홈페이지 관리자모드입니다.</span>
</div>
</div>
<div id="mng_info">
<h2><img src="/manager/img/mng_tit.gif" width="166" height="26" alt="관리 정보" /></h2>
<div class="content">
<ul>
<li><span class="ls_s">버전:</span> <strong>1.00.09.0722</strong></li>
<li><span class="ls_s">도메인:</span><%=sc_url%></li>
<%If sc_date_chk <> "Y" Then %>
<li><span class="ls_s">기간:</span> <%=replace(sc_hdate1, "-", ".")%>~<%=replace(sc_hdate2, "-", ".")%></li>
<li><span class="ls_s">잔여일:</span> <strong><span class="orange"><%=get_ssday(date(), sc_hdate2)%>일</span></strong><a href="#" tabindex="<%=getTabIndex()%>"><img src="/manager/img/daystart_bt.gif" width="46" height="15" alt="기간연장" /></a></li>
<%End if%>
</ul>
</div>
</div>
</div>
<!-- //왼쪽 메뉴 -->
<!-- 가운데 메뉴 -->
<div id="content_center">
<div id="new_notice">
<h2 class="hidden">최근게시물</h2>
<div class="top">
<ul>
<li class="lt">최근게시물 (최근 10일)</li>
<li class="more"><img src="/manager/img/tbt_right3.gif" width="10" height="24" alt="" /></li>
</ul>
</div>
<div class="content">
<ul>
<%
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)
%>
<li><div class="subj"><span class="gray2">[<%=a_bbsname%>]&nbsp;</span><a href="javascript:page_go2('/content/board/view.asp?a_num=<%=a_num%>&amp;b_num=<%=b_num%>');" tabindex="<%=getTabIndex()%>"><%=b_subject_str%><%=get_newimg2(b_regdate, 1)%></a></div><span class="date"><%=b_regdate2%></span></li>
<%
row.movenext
Loop
End if
Set row = nothing
%>
</ul>
</div>
</div>
</div>
<!-- //가운데 메뉴 -->
<!-- 오른쪽 메뉴 -->
<div id="content_right">
<div id="cr_date">
<%
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
%>
<h2 class="hidden">날짜(요일) 정보</h2>
<div class="content"><%=Date() & " " & day_value%></div>
</div>
<form id="reg" method="post" action="memo_ok.asp" >
<div>
<input type="hidden" name="mm_idx" value="<%=mm_idx%>" />
<input type="hidden" name="mm_id" value="<%=mm_id%>" />
</div>
<div id="cr_memo">
<h2><img src="/manager/img/<%=skin%>/memo_top.gif" width="190" height="38" alt="간편메모장" /></h2>
<div class="content">
<ul>
<li><textarea cols="25" rows="9" id="mm_content" name="mm_content" title="간편메모 입력" class="info" accesskey="m"><%=mm_content%></textarea></li>
<li class="st">저장 <strong><%=mm_wdate%></strong></li>
<li class="bt"><div class="bt01"><a href="javascript:document.getElementById('reg').submit();" tabindex="<%=getTabIndex()%>"><span><strong>저장하기</strong></span></a></div>&nbsp;</li>
</ul>
</div>
</div>
</form>
<div id="cr_banner">
<h2 class="hidden">배너링크</h2>
<div class="content">
<ul>
<li><a href="javascript:void(window.open('http://www.nninc.co.kr'));" title="나눔아이앤씨 새창으로 열림" tabindex="<%=getTabIndex()%>"><img src="/manager/img/banner1.gif" width="160" height="45" alt="나눔아이앤씨 새창으로 열림" /></a></li>
<li><a href="javascript:void(window.open('http://www.nanumtong.co.kr'));" title="나눔통 새창으로 열림" tabindex="<%=getTabIndex()%>"><img src="/manager/img/banner2.gif" width="160" height="45" alt="나눔통 새창으로 열림" /></a></li>
</ul>
</div>
</div>
</div>
<!-- //오른쪽 메뉴 -->
<!--#include virtual = "/manager/common/file/sub_bottom.asp" -->