<% '------------------------------------------------------------------------------- 'Template '------------------------------------------------------------------------------- %> <% '------------------------------------------------------------------------------- 'Config '------------------------------------------------------------------------------- Public Sub Config() ' 이벤트 시행으로 임시로 코드 삽입함. (이벤트 클릭시 가입되어 있으면 Placement Test로 이동, 가입안되었으면 가입페이지로 이동 ' 2010년4월1일 신정옥 팀장요청 ' if len(us.gets("webid")) = 0 then ' ' 로그인이 안되었으면 가입화면으로 ' response.write "" ' response.end ' end if Page.S = fn.dic("s") Page.Cate = "1050000" End Sub '------------------------------------------------------------------------------- 'Local Function '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- 'Content '------------------------------------------------------------------------------- Public Sub RenderContent() %> <% if US.GETS("WEBID") = "" then%> <%elseif US.GETS("WEBID")<>"" and US.GETS("LECTYPE")<>"MEMBER" then%> <%else%> <% dim courseNm,courseIdx,useridx,ssql set db = new dbclass ssql = " select * from consult_ec " ssql = ssql & " inner join course_apply_info on idx = app2_useridx " ssql = ssql & " left join category on app2_courselevel = cateidx " ssql = ssql & " left join course_info on app2_courseidx = co_idx " ssql = ssql & " where webid ='"&us.gets("WEBID")&"' " ssql = ssql & " and ( app2_State ='A' or app2_State ='R' )" ssql = ssql & " order by app2_sugangDate desc " 'ssql = ssql & " and (app2_LecState='A' or app2_LecState='R') " db.sql = ssql ' db.view() set rs = db.execrs() set db = nothing %>
<% dim TotSuNum, TotAddNum, TotRegNum, TotSugNum1, TotSugNum2, TotStudyNum, TotRegSuNum do until rs.eof TotSuNum = rs("app2_TotSuNum") TotAddNum = rs("app2_TotAddNum") TotRegNum = rs("예약") TotSugNum1 = rs("출석") TotSugNum2 = rs("결석") TotStudyNum = TotSuNum + TotAddNum - (TotRegNum + TotSugNum1+TotSugNum2) ' 잔여 : 총예약가능수 - 소진수(출,결석) - 예약수 TotRegSuNum = TotSugNum1 + TotSugNum2 ' 소진 : 출결석 처리된 것 계 %> <% rs.MoveNext : loop%>
Lecture 수강기간 등록일 상태
<% if isNull(rs("CateName")) then response.write rs("co_mark") else response.write fn.courseChgNm(rs("CateName")) end if %> <% if rs("app2_LecState") <> "R" then response.write formatdatetime ( rs("app2_startDate"),2 ) & "~" &formatdatetime ( rs("app2_endDate"),2 ) end if %> <%=formatdatetime ( rs("app2_sugangDate"),2 )%> <% if rs("app2_State") = "A" and rs("app2_LecState")<>"E" and TotRegNum+TotStudyNum>0 then response.write "수강중" elseif rs("app2_State") = "A" and (rs("app2_LecState")="E" or TotRegNum+TotStudyNum=0) then response.write "수강완료" elseif rs("app2_LecState") = "R" then response.write "미수업" end if %>
<%end if%> <% End Sub %>