화상영어 교재

<% yoil=request("yoil") code=request("code") BOOK_CODE=request("BOOK_CODE") uid=request("uid") EDAY_NAME = right(FormatDateTime(DATE,1),3) If BOOK_CODE<>"" Then If CODE<>"" Then Else Select Case (BOOK_CODE) Case "TP0005" KSEQ="SELECT BOOK_MON,BOOK_TUE,BOOK_WED,BOOK_THU,BOOK_FRI FROM T_TB_TEXTBOOK WHERE BOOK_CODE='TP0005'" Set KRS = Server.CreateObject("ADODB.Recordset") KRS.Open KSEQ, dbcon, 1, 1 Select Case (EDAY_NAME) Case "월요일" CODE=KRS("BOOK_MON") Case "화요일" CODE=KRS("BOOK_TUE") Case "수요일" CODE=KRS("BOOK_WED") Case "목요일" CODE=KRS("BOOK_THU") Case "금요일" CODE=KRS("BOOK_FRI") Case "토요일" CODE=KRS("BOOK_MON") Case "일요일" CODE=KRS("BOOK_MON") End Select Case "TP0004" KSEQ="SELECT BOOK_MON,BOOK_TUE,BOOK_WED,BOOK_THU,BOOK_FRI FROM T_TB_TEXTBOOK WHERE BOOK_CODE='TP0004'" Set KRS = Server.CreateObject("ADODB.Recordset") KRS.Open KSEQ, dbcon, 1, 1 Select Case (EDAY_NAME) Case "월요일" CODE=KRS("BOOK_MON") Case "화요일" CODE=KRS("BOOK_TUE") Case "수요일" CODE=KRS("BOOK_WED") Case "목요일" CODE=KRS("BOOK_THU") Case "금요일" CODE=KRS("BOOK_FRI") Case "토요일" CODE=KRS("BOOK_MON") Case "일요일" CODE=KRS("BOOK_MON") End Select Case "TP0003" KSEQ="SELECT BOOK_MON,BOOK_TUE,BOOK_WED,BOOK_THU,BOOK_FRI FROM T_TB_TEXTBOOK WHERE BOOK_CODE='TP0003'" Set KRS = Server.CreateObject("ADODB.Recordset") KRS.Open KSEQ, dbcon, 1, 1 Select Case (EDAY_NAME) Case "월요일" CODE=KRS("BOOK_MON") Case "화요일" CODE=KRS("BOOK_TUE") Case "수요일" CODE=KRS("BOOK_WED") Case "목요일" CODE=KRS("BOOK_THU") Case "금요일" CODE=KRS("BOOK_FRI") Case "토요일" CODE=KRS("BOOK_MON") Case "일요일" CODE=KRS("BOOK_MON") End Select Case "TP0002" KSEQ="SELECT BOOK_MON,BOOK_TUE,BOOK_WED,BOOK_THU,BOOK_FRI FROM T_TB_TEXTBOOK WHERE BOOK_CODE='TP0002'" Set KRS = Server.CreateObject("ADODB.Recordset") KRS.Open KSEQ, dbcon, 1, 1 Select Case (EDAY_NAME) Case "월요일" CODE=KRS("BOOK_MON") Case "화요일" CODE=KRS("BOOK_TUE") Case "수요일" CODE=KRS("BOOK_WED") Case "목요일" CODE=KRS("BOOK_THU") Case "금요일" CODE=KRS("BOOK_FRI") Case "토요일" CODE=KRS("BOOK_MON") Case "일요일" CODE=KRS("BOOK_MON") End Select Case "TP0009" KSEQ="SELECT BOOK_MON,BOOK_TUE,BOOK_WED,BOOK_THU,BOOK_FRI FROM T_TB_TEXTBOOK WHERE BOOK_CODE='TP0009'" Set KRS = Server.CreateObject("ADODB.Recordset") KRS.Open KSEQ, dbcon, 1, 1 Select Case (EDAY_NAME) Case "월요일" CODE=KRS("BOOK_MON") Case "화요일" CODE=KRS("BOOK_TUE") Case "수요일" CODE=KRS("BOOK_WED") Case "목요일" CODE=KRS("BOOK_THU") Case "금요일" CODE=KRS("BOOK_FRI") Case "토요일" CODE=KRS("BOOK_MON") Case "일요일" CODE=KRS("BOOK_MON") End Select Case "TP0008" KSEQ="SELECT BOOK_MON,BOOK_TUE,BOOK_WED,BOOK_THU,BOOK_FRI FROM T_TB_TEXTBOOK WHERE BOOK_CODE='TP0008'" Set KRS = Server.CreateObject("ADODB.Recordset") KRS.Open KSEQ, dbcon, 1, 1 Select Case (EDAY_NAME) Case "월요일" CODE=KRS("BOOK_MON") Case "화요일" CODE=KRS("BOOK_TUE") Case "수요일" CODE=KRS("BOOK_WED") Case "목요일" CODE=KRS("BOOK_THU") Case "금요일" CODE=KRS("BOOK_FRI") Case "토요일" CODE=KRS("BOOK_MON") Case "일요일" CODE=KRS("BOOK_MON") End Select Case "TP0025" KSEQ="SELECT BOOK_MON,BOOK_TUE,BOOK_WED,BOOK_THU,BOOK_FRI FROM T_TB_TEXTBOOK WHERE BOOK_CODE='TP0025'" Set KRS = Server.CreateObject("ADODB.Recordset") KRS.Open KSEQ, dbcon, 1, 1 Select Case (EDAY_NAME) Case "월요일" CODE=KRS("BOOK_MON") Case "화요일" CODE=KRS("BOOK_TUE") Case "수요일" CODE=KRS("BOOK_WED") Case "목요일" CODE=KRS("BOOK_THU") Case "금요일" CODE=KRS("BOOK_FRI") Case "토요일" CODE=KRS("BOOK_MON") Case "일요일" CODE=KRS("BOOK_MON") End Select Case Else : KSEQ="SELECT BOOK_MON,BOOK_TUE,BOOK_WED,BOOK_THU,BOOK_FRI FROM T_TB_TEXTBOOK WHERE BOOK_CODE='TP0005'" Set KRS = Server.CreateObject("ADODB.Recordset") KRS.Open KSEQ, dbcon, 1, 1 Select Case (EDAY_NAME) Case "월요일" CODE=KRS("BOOK_MON") Case "화요일" CODE=KRS("BOOK_TUE") Case "수요일" CODE=KRS("BOOK_WED") Case "목요일" CODE=KRS("BOOK_THU") Case "금요일" CODE=KRS("BOOK_FRI") Case "토요일" CODE=KRS("BOOK_MON") Case "일요일" CODE=KRS("BOOK_MON") End Select End Select End If Else BOOK_CODE="TP0005" KSEQ="SELECT BOOK_MON,BOOK_TUE,BOOK_WED,BOOK_THU,BOOK_FRI FROM T_TB_TEXTBOOK WHERE BOOK_CODE='TP0005'" Set KRS = Server.CreateObject("ADODB.Recordset") KRS.Open KSEQ, dbcon, 1, 1 Select Case (EDAY_NAME) Case "월요일" CODE=KRS("BOOK_MON") Case "화요일" CODE=KRS("BOOK_TUE") Case "수요일" CODE=KRS("BOOK_WED") Case "목요일" CODE=KRS("BOOK_THU") Case "금요일" CODE=KRS("BOOK_FRI") Case "토요일" CODE=KRS("BOOK_MON") Case "일요일" CODE=KRS("BOOK_MON") End Select End If If CODE="photo_dictionary" Then CODE="cover_page" End If %>

<% If BOOK_CODE<>"" then Select Case (BOOK_CODE) Case "TP0005" code2="ADVANCED2" Case "TP0004" code2="ADVANCED1" Case "TP0003" code2="INTERMEDIATE2" Case "TP0002" code2="INTERMEDIATE1" Case "TP0009" code2="BASIC" Case "TP0008" code2="PRIMARY" Case "TP0025" code2="PRIMARY" Case Else : code2="FLUENT" End Select Else code2="FLUENT" End If Response.write code2 %>

<% qq = "SELECT * FROM T_TB_TEXTBOOK where BOOK_CODE='" & BOOK_CODE &"'" 'Response.write qq Set book = Server.CreateObject("ADODB.Recordset") book.Open qq, dbConnect, 1 BOOK_MON = book("BOOK_MON") BOOK_TUE = book("BOOK_TUE") BOOK_WED = book("BOOK_WED") BOOK_THU = book("BOOK_THU") BOOK_FRI = book("BOOK_FRI") %>
<% if uid<>"" then SQL = "SELECT * FROM" & " " & code & " " & "where NID=" & uid & " and AEX2_2='Y' order by NID desc" Else SQL = "SELECT top 1 * FROM" & " " & code & " where AEX2_2='Y' order by NID desc" End If 'Response.write SQL Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.Open Sql, dbConnect2, 1 savedir = "http://www.timescampus.co.kr/admin_managent/admin_managent/newsbord/" & code & "_files" src=savedir&"/"&rs3("MUS") cotrol="http://www.timescampus.co.kr/admin_managent/admin_managent/newsbord/" & code & "_files" cotrol2=cotrol&"/"&rs3("MUS") NID=rs3("NID") REG_DATE=rs3("REG_DATE") ECONTENT=rs3("ECONTENT") ECOMP = trim(rs3("ECOMP")) if ECOMP<>"" Then BCOMP = split(ECOMP,".") CCOMP = BCOMP(0)&".lcm" DCOMP = BCOMP(0)&".exm" end if AEX1_3 = Trim(rs3("AEX1_3")) AEX1_4 = Trim(rs3("AEX1_4")) If AEX1_4 <> "" Then num = split(AEX1_4,"_") num1 = num(0) num2 = num(1) End If AEX2_3=Trim(rs3("AEX2_3")) AEX2_4=Trim(rs3("AEX2_4")) AEX2_5=Trim(rs3("AEX2_5")) TITLE=Trim(rs3("TITLE")) CONTENT=Trim(rs3("CONTENT")) AEX1_3=rs3("AEX1_3") AEX1_3=Replace(AEX1_3, "/", "
") ECONTENT=rs3("ECONTENT") ECONTENT=Replace(ECONTENT, vbLf, vbLf & "
") 'broswerList = IsArray(MSIE,Chrome,Firefox,iPhone,iPad,Android,PPC,Safari,Trident,none) %> <% If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 5.0") > 0 Then newversion = 1 ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 6.0") > 0 Then newversion = 1 ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 7.0") > 0 Then newversion = 1 ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 8.0") > 0 Then newversion = 1 ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 9.0") > 0 Then newversion = 1 ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 10.0") > 0 Then newversion = 1 ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 11.0") > 0 Then newversion = 1 ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Chrome") > 0 Then newversion = 2 ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Safari") > 0 Then newversion = 2 ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Firefox") > 0 Then newversion = 2 Else newversion = "2" End If If AEX2_5<>"" Then filename2 = Split(AEX2_5,"/") End If %>

<%=TITLE%>   

    <% If AEX2_5<>"" Then %> <% If newversion<>1 Then %>
    • <% End If %>
    • <% If BOOK_CODE<>"TP0025" Then %>
    • <% End If %> <% End If %>
Comprehension Question오늘의 주제에 대해 이해해 보세요.
Discussion Question오늘의 주제에 대해 강사님과 토론해 보세요.