<%
dim sYear, sMonth, eYear, eMonth, sDate, eDate
dim useridx,ssql,cnt,cntTot,cntAtt,cntAbs,compNo
sYear = fn.form("sYear") : sMonth = fn.form("sMonth")
eYear = fn.form("eYear") : eMonth = fn.form("eMonth")
useridx = US.gets("IDX")
if sYear = "" then
sYear = year(date) : sMonth = month(date) ': eYear = sYear : eMonth = sMonth
else
sYear = clng(sYear) : sMonth = clng(sMonth) ': eYear = clng(eYear) : eMonth = clng(eMonth)
end if
set db = new dbclass
' 당분간 기업고객도 일반회원과 같이 1일~31일 기준으로 검색함
' 기업고객인지 check
' db.sql = "select 기업번호 from consult_ec where idx='" & useridx & "'"
' db.view()
' set rs = db.execrs()
' db.clear()
' if not (rs.eof or rs.bof) then
' compNo = rs(0)
' else
compNo = 0
' end if
' 검색일자로 조정
sDate = "" : eDate = ""
' if compNo>0 then
' 기업고객 검색일자(시작일) 가져오기
' ssql = "select 시작일,종료일 from 기업고객월정보 where 기업번호=" & compNo & " AND 연도=" & sYear & " AND 월=" & sMonth
' db.sql = ssql
' db.view()
' set rs = db.execrs()
' db.clear()
' if not (rs.eof or rs.bof) then
' sDate = rs(0) : eDate = rs(1)
' end if
' 기업고객 검색일자(종료일) 가져오기
' ssql = "select 시작일 from 기업고객월정보 where 번호=" & compNo & " AND 연도=" & eYear & " AND 월=" & eMonth
' db.sql = ssql
' db.view()
' set rs = db.execrs()
' db.clear()
' if not rs.eof and rs.bof then eDate = rs(0)
' end if
if sDate = "" then sDate = sYear&"-"&sMonth&"-01"
if eDate = "" then
if sMonth=12 then
eDate = dateadd("d" ,-1,sYear+1&"-01-01")
else
eDate = dateadd("d" ,-1,sYear&"-"&sMonth+1&"-01")
end if
end if
' if eDate = "" then eDate = dateadd("d" ,-1,eYear&"-"&eMonth+1&"-01")
ssql = " select course_regist2.* , employee.name as eNm , co_Mark , teacher.name as eNm1 from course_regist2 "
ssql = ssql & " left join course_apply_info on ca_app2idx = app2_idx "
ssql = ssql & " left join course_info on app2_courseidx = co_idx "
ssql = ssql & " left join employee on ca_regId = employee.Id "
ssql = ssql & " left join teacher on ca_regId = teacher.Id "
ssql = ssql & " where ca_uidx='"&useridx&"' "
ssql = ssql & " and (ca_studyCheck1 <> 0 and ca_studyCheck2 <> 0) "
ssql = ssql & " and ca_suDay between '"&sDate&"' and '"&eDate&"' "
ssql = ssql & " order by ca_suDay desc "
db.sql = ssql
' db.view()
set rs = db.execrs()
cnt = rs.recordcount
db.clear()
set db = nothing
%>
| No |
출결일자 |
과목 |
시간 |
출결 |
강사 |
시간 |
출결 |
강사 |
내용 |
<%
if not (rs.eof or rs.bof) then
cntTot = rs.recordCount
cntAtt = 0
cntAbs = 0
do until rs.eof
if rs("ca_studyCheck1")= "1" or rs("ca_studyCheck2")= "1" then
cntAtt = cntAtt+1
else
cntAbs = cntAbs+1
end if
%>
| <%=cnt%> |
<%=rs("ca_suDay")%> |
<%=rs("co_Mark")%> |
<%=rs("ca_suTime1")%> |
<%
if rs("ca_studyCheck1") = "0" then
response.write "예약"
elseif rs("ca_studyCheck1")= "1" or rs("ca_studyCheck2")= "1" then
response.write "[출석]"
else
response.write "[결석]"
end if
%>
|
<%=rs("ca_TNm1")%> |
<%=rs("ca_suTime2")%> |
<%
if rs("ca_studyCheck2") = "0" then
response.write "예약"
elseif rs("ca_studyCheck2")= "1" or rs("ca_studyCheck2")= "1" then
response.write "[출석]"
else
response.write "[결석]"
end if
%>
|
<%=rs("ca_TNm2")%> |
<%=rs("ca_text")%> |
<%
cnt = cnt - 1
rs.MoveNext
loop
end if
dim percent : percent= 0
if cntTot>0 then percent = cntAtt/cntTot*100
%>
| 총수업횟수 : |
<%=cntTot%>회 |
| 수 강 횟 수 : |
<%=cntAtt%>회 |
| 결 석 횟 수 : |
<%=cntAbs%>회 |
| 출 석 률 : |
<%=formatnumber(percent,0)%>% |