<%
Response.Expires = -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
DIM arrVoca
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">
<%
SUB GetInfo()
Set voca = Server.CreateObject("ADODB.Recordset")
strSQL="select num, content, answer_count, answer, sound 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
arrVoca = voca.GetRows
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
%>