<%
'course="tcanwp"
'step=2
'lev=0
'sec=2
dim PartNum1, PartNum2, PartNum3, PartNum4, PartNum5, PartNum6, PartNum7, PartNum8, PartNum9
DIM muncnt
idir="http://gva.ybmsisa.com/"&course&"/step"&step&"/checkup1/"
adir="http://gva.ybmsisa.com/"&course&"/step"&step&"/checkup1"
%>
ETS TOEIC Test 김대균 전략 특강
"221.142.252" Then
%>
bgproperties=fixed oncontextmenu='return false' ondragstart='return false' onselectstart='return false'
<%
End If
%> bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
'관련된 문제 추출
Sql = "select idx, select_example, select_content from lecture_checkup1 where intro_idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") order by number"
Set pre = cybercon.execute(Sql)
If pre.BOF And pre.EOF Then
response.write "문제가 입력되지 않았습니다."
Else
a = 0
Do Until pre.EOF
Set mun = server.createobject("ADODB.Recordset")
If pre("select_example") = 1 Then '객관식 문제 가져오기
sql = "select * from lecture_chk1_ga where idx = "& fncdbvalue(pre("idx")) &" order by part, num"
mun.open sql, cybercon, 1
part = mun("part")
a = a + 1
Select Case part
case 1
PART1
case 2
PART2
case 3
PART3
case 4
PART4
case 5
PART5
case 6
PART6
case 7
PART7
End Select
End If
mun.close
Set mun = Nothing
pre.movenext
Loop
End IF
pre.close
Set pre = Nothing
cybercon.close
Set cybercon = Nothing
%>
문제를 풀어보셨으면, 강의를 다시재생하여 수업을 계속 들으세요.동영상아래 재생버튼을누르시거나 오른쪽 버튼을누르시면 수업이 다시 시작됩니다.
<%
SUB OXTableLayer(isCorrect, leftpx)
'leftpx=400
%>
<%
END SUB
SUB MakeAudio(strID, width, height, AutoStart, FileName)
%>
<%
END SUB
SUB AnswerArea(answer)
%>
<%=answer%>
<%
END SUB
SUB PartHeader(partnum)
Select Case part
case 1 : strPART = "I" : case 2 : strPART = "II" : case 3 : strPART = "III" : case 4 : strPART = "IV"
case 5 : strPART = "V" : case 6 : strPART = "VI" : case 7 : strPART = "VII"
End Select
%>
Part <%=strPART%>
<%
END SUB
SUB PART1 %>
<%
If partnum1 <> 99 Then
muncnt=0
CALL PartHeader(1)
partnum1 = 99
End If
%>
<%
END SUB
SUB PART3
if partnum3 <> 99 then
muncnt=0
CALL PartHeader(3)
partnum3 = 99
End If
Sql = "select con_header, sound, start_num, relation_num from lecture_chk1_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num"))
Set chk1_ji = cybercon.execute(Sql)
If Not(chk1_ji.eof) Then
%>
<%
END SUB
SUB PART4
if partnum4 <> 99 then
muncnt=0
CALL PartHeader(4)
partnum4 = 99
End If
Sql = "select con_header, sound, start_num, relation_num from lecture_chk1_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num"))
Set chk1_ji = cybercon.execute(Sql)
If Not(chk1_ji.eof) Then
%>
<%
END SUB
SUB PART6
if partnum6 <> 99 then
muncnt=0
CALL PartHeader(6)
partnum6 = 99
End If
Sql = "select con_header, start_num, relation_num from lecture_chk1_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num"))
Set chk1_ji = cybercon.execute(Sql)
If Not(chk1_ji.eof) Then
%>
<%CALL AnswerArea(mun("answer"))%>
<%
END SUB
SUB PART7
if partnum7 <> 99 then
muncnt=0
CALL PartHeader(7)
partnum7 = 99
End If
%>
<%
Sql = "select con_header, content, image, start_num, relation_num from lecture_chk1_ji where idx in (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&") and start_num = "& fncdbvalue(mun("num"))
Set chk1_ji = cybercon.execute(Sql)
If Not(chk1_ji.eof) Then
%>
<%=answer%>
Part <%=strPART%>