<% ' 사이트 기본정보 ----------------------------------------------------------------------- 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 최경수 '//---------------------------------------------------------------------------------------- '//---------------------------------------------------------------------------------------- '// 사이트 기본정보 ----------------------------------------------------------------------- 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) %>
  • [<%=a_bbsname%>] <%=b_subject_str%><%=get_newimg2(b_regdate, 1)%>
    <%=b_regdate2%>
    • <% row.movenext Loop End if Set row = nothing %>
<% 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%>

간편메모장

  • 나눔아이앤씨 새창으로 열림
  • 나눔통 새창으로 열림