% Dim arrRs, arrCha, log_num, PageSize, goPage, objcount, arrIp, macIP Dim lec_num lec_num = trimReq("lec_num") log_num = trimReq("log_num") PageSize = trimReq("PageSize") If len(PageSize) = 0 Then PageSize = 10 goPage = trimReq("goPage") If len(goPage) = 0 Then goPage = 1 arrRs = LectureMemberList(Request.Cookies(appVendorDB)("member_id"), "", "", PageSize, goPage) arrIp = MemberMACIP() macIP = Request.Cookies("macIP") Function DiscussTake(cnt, takeDate) Dim discussTakeText If cnt = 0 Then discussTakeText = "미참여" Else discussTakeText = left(takeDate,10) End if DiscussTake = discussTakeText End Function Function DiscussMark(scoreDate) Dim discussMarkText If isNull(scoreDate) Then discussMarkText = "-" Else discussMarkText = left(scoreDate,10) End if DiscussMark = discussMarkText End Function Function DiscussPoint(score,endDt) eDt = DateAdd("d",21,CDate(endDt & " 17:00:00")) If eDt <= Now() Then DiscussPoint = score Else DiscussPoint = "-" End if End Function %>
번호 | 과정구분 | 과정명 | 참여기간 | 참여현황 | 채점현황 | 점수 |
---|---|---|---|---|---|---|
<%=objcount%> | <% If arrRs(22, i) = "2" Then response.Write "환급" Else response.Write "일반" End if %> | <% Dim jsAction If DateDiff("d",Now(), arrRs(45, i)) =< 0 And datediff("d",Now(), arrRs(46, i)) >= 0 then if AuthLoginFlag then '공인인증서 로그인 사용여부(common.asp 상수) if Request.Cookies(appVendorDB)("orcs_yn") <> "Y" then if (arrIP(0, 0) = "Y" AND instr(arrIP(1, 0), macIp)) or (arrIP(2, 0) = "Y" AND instr(arrIP(3, 0), macIp)) or (arrIP(4, 0) = "Y" AND instr(arrIP(5, 0), macIp)) then 'MACIP 확인 jsAction = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" else jsAction = "auth_login("& arrRs(0, i) &"); return false;" end if else jsAction = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" end if else jsAction = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" end if else 'jsAction = "alert('토론 참여기간이 아닙니다');" jsAction = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" end if '테스트 모드 체크(common.asp 설정) if TestModeFlag or request.ServerVariables("REMOTE_HOST") = TestModeIP or request.ServerVariables("REMOTE_HOST") = "119.206.29.243" or request.ServerVariables("REMOTE_HOST") = "210.207.177.191" or fnc_testID(Request.Cookies(appVendorDB)("member_id")) then jsAction = "showStudyUtil('토론','discuss','"& arrRs(14, i) &"','"& arrRs(0, i) &"'); return false;" end if %> <%=arrRs(17, i)%> |
<%=left(arrRs(45, i),10)%>~<%=left(arrRs(46, i),10)%> |
<%=DiscussTake(arrRs(56, i), arrRs(57, i))%> |
<%=DiscussMark(arrRs(58,i))%> |
<% 'arrRs(60, i)%><%'=arrRs(60, i)%> <%=DiscussPoint(arrRs(60,i),left(arrRs(46, i),10))%> |