<% Response.Expires = -1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" DIM note_content adir="http://gva.ybmsisa.com/"&course&"/step"&step&"/checkup" CALL GetInfo() cybercon.close SET cybercon = nothing %> Untitled Document "221.142.252" Then %>bgproperties=fixed oncontextmenu='return false' ondragstart='return false' onselectstart='return false'<% End If %>>
<%=note_content%>
<% SUB GetInfo() Set voca = Server.CreateObject("ADODB.Recordset") strSQL="select note_content, bonus_content from lecture_handout where intro_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 note_content = voca("note_content") if instr(voca("bonus_content"), "//") then intro_sound = adir&"/"&split(voca("bonus_content"), "//")(6) end if CALL MakeAudio("SPlay", 0, 0, "true", intro_sound) end if voca.close SET voca = nothing END SUB SUB MakeAudio(strID, width, height, AutoStart, FileName) %> <% END SUB %>