<% response.Cookies("sett_book") = "" %> <% test2code = request("test2code") 'response.write test2code 'response.write test2code Dim is_type ': is_type = trimReq("is_type") Dim cate1_code : cate1_code = trimReq("cate1_code") Dim cate2_code : cate2_code = trimReq("cate2_code") Dim arrLecture Sub load() arrLecture = LectureList(is_type) End Sub Function LectureList(is_type) Dim strSql, rs, addSql, sql_lec, rs_lec, lec_sub_list sql_lec = " select top 1 lec_sub_list from lecture_organ where site_key = '"& appVendorDB &"' " if request.ServerVariables("REMOTE_HOST") = "121.186.19.33" then 'response.write "






"& sql_lec end if Set rs_lec = conn.execute(sql_lec) If Not rs_lec.bof And Not rs_lec.eof Then lec_sub_list = rs_lec("lec_sub_list") End If 'Response.write appVendorDB '교제용 수강신청페이지 If appVendorDB = "study_license" then lec_sub_list = "438,439" End if addSql = " Where a.lec_num=d.lec_num " addSql = addSql & " and a.cate2_code = b.cate2_code " addSql = addSql & " and a.teacher_id = c.ti_id " addSql = addSql & " and a.cate1_code = d.cate1_code " addSql = addSql & " and a.cate2_code = d.cate2_code " addSql = addSql & " and datediff(day,a.reg_date2,getdate()) <= 0 " addSql = addSql & " and a.is_del='no' and b.is_del='no' and c.is_del='no' and a.subscribe <> 'no' " If Len(cate2_code) > 0 Then addSql = addSql & "AND d.cate2_code = '"& cate2_code &"'" End if addSql = addSql & "AND a.cate2_code='05005' " strSql = "Select " strSql = strSql & " a.lec_num, a.cate2_code, a.lec_subject, a.lec_period, a.price_normal " strSql = strSql & " , c.ti_name, a.lec_code, b.cate2_name, a.is_insure, a.return_rate, a.lec_period_day" strSql = strSql & ", lec_period_month " strSql = strSql & ", a.college, a.spCollege, a.division, a.grade, a.price_grade, a.subscribe " strSql = strSql & ", lec_date1, lec_date2 , a.cnt_progress" strSql = strSql & " , lecMyCnt = (select count(log_num) from mem_study_log where lec_num = a.lec_num and is_del='no' and mem_id = '"& request.Cookies(appvendordb)("member_id") &"') " strSql = strSql & ", a.content8, a.main_images, a.content4, a.content5, a.content1" strSql = strSql & " From lecture a, lec_cate2 b, teacher_info c, cate_dir d" strSql = strSql & addSql strSql = strSql & " ORDER BY a.college asc, a.spCollege asc " if request.ServerVariables("REMOTE_HOST") = "121.186.19.33" then 'response.write "






"& strSql end if set rs = conn.Execute(strSql) If Not rs.EOF AND Not rs.BOF Then LectureList = rs.getrows() End if rs.Close() End Function Function print_cateName(num, cateCode) Dim strSql, rs strSql = "SELECT cate" & num & "_name " strSql = strSql & " FROM lec_cate" & num strSql = strSql & " Where is_del='no' AND cate" & num & "_code = '"&cateCode&"' " 'Response.Write strSql Set rs = conn.Execute(strSql) If Not rs.BOF AND Not rs.EOF Then print_cateName=rs(0) End If rs.Close() End Function Function ImgSubscribe(val) Dim imgNum Select Case val Case "on" imgNum = 1 Case "oo" imgNum = 2 Case "no" imgNum = 3 End Select ImgSubscribe = "" End Function Call load() %>

▶DIAT

  • <% Dim strNow If cate2_code = "" Then strNow = strNow & " 전체과정" Else strNow = strNow & " " & print_cateName(2,cate2_code) & "" End If %>
<% Call main_load() %> <%Sub main_load()%>
<% Dim i, price, cate_name If IsArray(arrLecture) Then For i = Lbound(arrLecture, 2) To Ubound(arrLecture, 2) If arrLecture(4, i) <> "" AND arrLecture(4, i) <> 0 Then price = FormatNumber(arrLecture(4, i), 0) & "원" Else price = "준비중" End If If cate_name <> arrLecture(7, i)Then cate_name = arrLecture(7, i) End If %>
<%'=ImgSubscribe(arrLecture(17, i))%><%=arrLecture(2, i)%>
<%if arrLecture(0, i) <> 190 and arrLecture(0, i) <> 191 and arrLecture(0, i) <> 192 and arrLecture(0, i) <> 193 then%> <%If arrLecture(17, i) <> "no" then%> <%if arrLecture(0, i) = "" then%> <%'=ImgSubscribe(arrLecture(17, i))%><%=arrLecture(2, i)%> <%else%> <%'=ImgSubscribe(arrLecture(17, i))%><%=arrLecture(2, i)%> 자격증 정보
교           수
:
<%=arrLecture(5, i)%>
강 좌 / 기 간
:
<%=arrLecture(25, i)%>
촬 영 시 기
:
2017년 최신강좌
수 강 기 간
:
평생합격보장반(합격시까지)
자격발급기관
:
<%=arrLecture(24, i)%>
교육운영기관
:
<%=OrganName%>
수 강 혜 택
:
<%=arrLecture(26, i)%>
<%end if%> <%End if%> <%end if%> 		<%if arrLecture(21,i) > 0 then%> <%else%> <%if arrLecture(0,i) = "" or arrLecture(0,i) = "" or arrLecture(0,i) = "" then%> <%else%> <%end if%> <%end if%> <%If all_price <> "" Then%> <% if arrLecture(5, i) <> "" then if IsNumeric(arrLecture(5, i)) then response.write FormatNumber(arrLecture(5, i),0) else response.write "금액오류" end if else response.write "-" end if %>원
<%=FormatNumber(all_price,0)%>원
<%Else%> <%IF appVendorDB <> "" THEN%>
<% if arrLecture(14, i) <> "" then if IsNumeric(arrLecture(14, i)) then response.write FormatNumber(arrLecture(14, i),0) else response.write "금액오류" end if else response.write "-" end if %>원

<%=FNumber(arrLecture(16, i)*arrLecture(15, i))%>원 <% '꼬리표 추가기능 subscribe = replace(arrLecture(17, i)," ","") %> <%if subscribe = "A" then%> <%elseif subscribe = "B" then%> <%elseif subscribe = "C" then%> <%elseif subscribe = "D" then%> <%elseif subscribe = "E" then%> <%elseif subscribe = "F" then%> <%elseif subscribe = "G" then%> <%elseif subscribe = "H" then%> <%else%> <%end if%>
<%end if%> <%End If%>
<%If all_cnt_progress <> "" Then%> <%=all_cnt_progress%> <%Else%> <%End If%> <% Next Else %> 수강신청할 강좌가 없습니다 <% End if %>
선택한 과목 수강신청하기
선택한 과목 수강신청하기 <%End sub%>