<%@LANGUAGE="VBSCRIPT" CODEPAGE = "65001" %>
<%
Session.CodePage = 65001 '한글
Response.CharSet = "UTF-8" '한글
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-control", "no-staff"
Response.Expires = -1
%>
<%
'리뉴얼페이지로 이동
Response.Redirect "/"
'접속 카운트
to_Date = year(date) & month(date) & day(date)
set view = new M4View
view.setTable("T_Accept_Count")
view.setColumn("Accept_CNT")
view.setWhere("Date = 'TOTAL'")
set rs = view.Query()
if rs.eof then
Total_CNT = 0
else
Total_CNT = rs(0)
end if
set rs = nothing
set view = nothing
set view = new M4View
view.setTable("T_Accept_Count")
view.setColumn("Accept_CNT")
view.setWhere("Date = '"& to_Date &"'")
set rs = view.Query()
if rs.eof then
ToDay_CNT = 0
else
ToDay_CNT = rs(0)
end if
set rs = nothing
set view = nothing
Accept_CNT = "총방문자수 : "& Total_CNT & " 금일 방문자수 : "& ToDay_CNT
'공지사항 리스트업
page = 1
list_num = 10
page_num = 10
set list = new M4List
list.setListCount(2) '화면에 보여주는 목록 개수
list.setPageCount(page_num) '페이지 목록 보여주는 개수
list.setCurrentPage(page) '현재 페이지
list.setTable("T_BoardA") '테이블
list.setListColumn("idx") '대표 컬럼
list.setColumn("idx")
list.setColumn("Subject")
list.setColumn("Ins_Date")
strWhere = " seq = 1 "
list.setWhere(strWhere)
list.setOrderBy("idx desc")
total = list.getTotalCount()
list.setParameter("keytype="& keytype &"&keyword="& keyword)
leftlast_img = "
"
left_img = "
"
right_img = "
"
rightlast_img = "
"
page_list = list.getPageList2("news_list.html",leftlast_img,left_img,right_img,rightlast_img)
set rslist = list.Query()
if rslist.eof then
strHTML = ""&_
""&_
""&_
"| 등록된 뉴스 및 공지사항이 없습니다. | "&_
" "&_
" | "&_
"
"
else
strHTML = ""
do until rslist.eof
strHTML = strHTML & ""&_
" | "&_
"
"
rslist.movenext
loop
end if
set rslist = nothing
set list = nothing
'역학인 리스트 업
set list = new M4List
list.setListCount(list_num) '화면에 보여주는 목록 개수
list.setPageCount(page_num) '페이지 목록 보여주는 개수
list.setCurrentPage(page) '현재 페이지
list.setTable("T_Epidemiology") '테이블
list.setListColumn("idx") '대표 컬럼
list.setColumn("idx") '0: 인덱스
list.setColumn("AttachFile") '1: 첨부파일
list.setColumn("Mime") '2: 마임
list.setColumn("Name") '3: 이름
list.setColumn("StoreName") '4: 상호명
list.setColumn("Counsel_Time") '5: 상담시간
list.setWhere("Main_View = 1")
list.setOrderBy("idx asc")
total = list.getTotalCount()
list.setParameter("keytype="& keytype &"&keyword="& keyword)
leftlast_img = ""
left_img = ""
right_img = ""
rightlast_img = ""
page_list = list.getPageList2("news_list.html",leftlast_img,left_img,right_img,rightlast_img)
set rslist = list.Query()
if rslist.eof then
vmode = "no"
else
ArrRslist = rslist.getrows()
ArrCols = ubound(ArrRslist,1) '컬럼
ArrRows = ubound(ArrRslist,2) '레코드
end if
set rslist = nothing
set list = nothing
call DBClose()
if vmode = "no" then
strHTML2 = ""
else
strHTML2 = ""
for i=0 to ArrRows
'Response.Write ArrRslist(1,i)&"
"
strHTML2 = strHTML2 & ""
strHTML2 = strHTML2 & " "&vbCrLf
strHTML2 = strHTML2 & " "&vbCrLf
if ArrRslist(1,i) <> "" and left(ArrRslist(2,i),5) = "image" then
strHTML2 = strHTML2 & " "
strHTML2 = strHTML2 & " ![](/Upload_Files/Epidemiology/"& ArrRslist(1,i) &") | "
else
strHTML2 = strHTML2 & " "
strHTML2 = strHTML2 & "  | "
end if
strHTML2 = strHTML2 & " "&vbCrLf
strHTML2 = strHTML2 & " "
strHTML2 = strHTML2 & " | "& ArrRslist(3,i) &" | "
strHTML2 = strHTML2 & " "
strHTML2 = strHTML2 & " "
strHTML2 = strHTML2 & " "& ArrRslist(4,i) &"
상담 시간
"& ArrRslist(5,i) &" | "
strHTML2 = strHTML2 & " "
strHTML2 = strHTML2 & " "
strHTML2 = strHTML2 & " | "
strHTML2 = strHTML2 & " | "
next
if ArrRows < 9 then
for i=ArrRows to 9
strHTML2 = strHTML2 & " | "
if i <> 9 then
strHTML2 = strHTML2 & " | "
end if
next
end if
end if
%>
