<% 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">
<%=trim(split(arrVoca(3,0), "//")(0))%>
<%=trim(arrVoca(4,0))%>
<%=trim(arrVoca(0,0))%>
');"> <% SUB GetInfo() Set voca = Server.CreateObject("ADODB.Recordset") strSQL="select content, sound, image, explain, script from lecture_review_ji where idx =(select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&")" voca.Open strSql, cybercon, adOpenForwardOnly, adLockReadOnly if voca.EOF then else arrVoca = voca.GetRows end if voca.close SET voca = nothing END SUB %>