<%elseif appVendorDB = "cyber2_license" then%>
<%Else%>
<%End If%>
| 번호 | 시험유형 | 시험응시조건 | 응시상태 | 점수 | 합격상태 |
|---|---|---|---|---|---|
| 1 | 평가시험 |
<%' If arrRs(65, i) <> "" Then %>
<%' Else %>
출석률 60%이상 <%' End If %> |
<%
Dim teArray(15)
teArray(0) = "기말"
teArray(1) = arrRs(52,i)
teArray(2) = arrRs(35,i)
teArray(3) = arrRs(8,i)
teArray(4) = arrRs(41,i)
teArray(5) = arrRs(42,i)
teArray(6) = arrRs(5,i)
teArray(7) = arrRs(0,i)
teArray(8) = arrRs(49,i)
teArray(9) = arrRs(85,i)
teArray(10) = arrRs(86,i)
teArray(11) = arrRs(97,i)
teArray(12) = arrRs(98,i)
teArray(13) = ""
teArray(14) = arrRs(90,i)
'response.write left(arrRs(42, i),10)
'response.end
%>
<%=TestTake(arrRs(35, i), arrRs(38, i), left(arrRs(41, i),10), left(arrRs(42, i),10), teArray )%> |
<%
'If now() >= DateAdd("d",1,CDate(left(arrRs(42, i),10) & " 15:00:00")) Then%>
<%if TestPoint("기말",arrRs(42,i),arrRs(47, i),1) = 0 Then%>
<%=TestPoint("기말",arrRs(42,i),arrRs(47, i),1) %> <%else%> <%=TestPoint("기말",arrRs(42,i),arrRs(47, i),1) %> <%'if request.ServerVariables("REMOTE_HOST") = "121.186.19.33" or appVendorDB = "kjob_license" or appVendorDB = "met_license" then%> <%=TestMark("기말",arrRs(36,i), arrRs(54,i), arrRs(5,i), left(arrRs(42, i),10), 2)%> <%'end if%> <%end if%> <% 'Else ' response.write "-" 'End If %> |
<% sql_4chk = " select test4cnt_d from lecture where lec_num = '"& arrRs(5, i) &"' " 'Response.write sql_4chk Set rs_4chk = conn.execute(sql_4chk) sql_5chk = " select is_scoring from test2_result where tr_num = '"& arrRs(54, i) &"' " Set rs_5chk = conn.execute(sql_5chk) If Not rs_5chk.EOF AND Not rs_5chk.BOF Then'시험봤냐 안봤냐 If rs_4chk("test4cnt_d") <> 0 then'주관식있냐없냐 is_scoring = rs_5chk("is_scoring") if is_scoring = "on" then'채점했냐 If TestPoint("기말",arrRs(42,i),arrRs(47, i),1) < 60 Then response.write "불합격" ElseIf TestPoint("기말",arrRs(42,i),arrRs(47, i),1) > 59 Then response.write "합격" end if else response.write "주관식 채점중" end if Else If TestPoint("기말",arrRs(42,i),arrRs(47, i),1) < 60 Then response.write "불합격" ElseIf TestPoint("기말",arrRs(42,i),arrRs(47, i),1) > 59 Then response.write "합격" End If End if else response.write "미응시" End If %> |
| -관련시험이 없습니다.- | |||||
"
' End If
'Else
'response.write testCnt
If testCnt = 1 Then
sDt = DateAdd("d",7,CDate(Left(endDt,10) & " 15:00:00"))
eDt = DateAdd("d",9,CDate(Left(endDt,10)))
Else
sDt = DateAdd("d",3,CDate(Left(endDt,10) & " 15:00:00"))
eDt = DateAdd("d",6,CDate(Left(endDt,10)))
End If
testMarkText = testMarkText & " "
testMarkText = testMarkText & " (" & chk_value & ")"
'End if
'End if
TestMark = testMarkText
End Function
Function TestPoint(testType, endDt,jumsu,testCnt)
Dim sDt, eDt
'한예현 수정
TestPoint = "-"
If testType = "쪽지" Then
sDt = DateAdd("d",3,CDate(endDt))
If sDt <= Now() Then
TestPoint = jumsu
End if
Else
If testCnt = 1 Then
eDt = DateAdd("d",7,CDate(Left(endDt,10) & " 15:00:00"))
'If eDt <= Now() Then
TestPoint = jumsu
'End if
Else
eDt = DateAdd("d",3,CDate(Left(endDt,10) & " 15:00:00"))
'If eDt <= Now() Then
TestPoint = jumsu
'End if
End If
End if
End Function
Function NoteSubmit(examCnt, noteResultCnt, noteStartDate, noteEndDate, lec_num, log_num, noteCnt)
Dim chkTest
if request.ServerVariables("REMOTE_HOST") = TestModeIP or request.ServerVariables("REMOTE_HOST") = "119.206.29.243" or auth_testID(Request.Cookies(appVendorDB)("member_id")) then
chkTest = "javascript:show_note(" & lec_num & ", " & log_num & ");"
else
If examCnt >= noteCnt then
If noteResultCnt = 0 Then
response.write auth_testID(Request.Cookies(appVendorDB)("member_id"))
If DateDiff("d",Now(), noteStartDate) =< 0 And datediff("d",Now(), noteEndDate) >= 0 Then
chkTest = "javascript:show_note(" & lec_num & ", " & log_num & ");"
Else
chkTest = "javascript:alert(""쪽지시험 응시기간이 아닙니다."");"
End if
Else
chkTest = "javascript:alert(""이미 응시하셨습니다."");"
End if
Else
chkTest = "javascript:alert(""문제 출제 중입니다."");"
End If
end if
NoteSubmit = chkTest
End Function
%>