<% Response.Expires = -1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" DIM arrVocaJu, arrVocaJi idir="http://gva.ybmsisa.com/"&course&"/step"&step&"/review/" adir="http://gva.ybmsisa.com/"&course&"/step"&step&"/review" CALL GetInfo() cybercon.close SET cybercon = nothing %> "221.142.252" Then %>bgproperties=fixed oncontextmenu='return false' ondragstart='return false' onselectstart='return false'<% End If %> topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgcolor="#ffffff">
<%for qcnt=0 to ubound(arrVocaJu,2)%> <%next%>
 
 
<% arr_word = split(arrVocaJi, "//") IF ISARRAY(arr_word) THEN %>
<% FOR i=0 to UBOUND(arr_word)%> <% NEXT%>
<% END IF%>
 
<%=arrVocaJu(0, qcnt)%>. <%response.write GenSortAnsQuiz(arrVocaJu(1,qcnt), arrVocaJu(0,qcnt))%>
 
<% SUB GetInfo() Set voca = Server.CreateObject("ADODB.Recordset") strSQL="select num, content, answer_count, answer, sound, explain from lecture_review_ju where idx in (select idx from lecture_review where intro_idx =(select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&")) order by num" voca.Open strSql, cybercon, adOpenForwardOnly, adLockReadOnly if voca.EOF then else arrVocaJu = voca.GetRows end if voca.close strSQL="select content from lecture_review_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)&") order by start_num" voca.Open strSql, cybercon, adOpenForwardOnly, adLockReadOnly if voca.EOF then else arrVocaJi = voca("content") end if voca.close SET voca = nothing END SUB Function GenSortAnsQuiz(str,number) s = "" v = "" ans_count = 1 str = replace(str,chr(13),"
") str = replace(str," ","  ") for i = 1 to len(str) select case mid(str,i,1) case "[" s = s & "" ans_count = ans_count + 1 exit for else v = v & mid(str,i,1) end if next v = "" case else s = s & mid(str,i,1) end select next GenSortAnsQuiz = s End Function %>