<% UserID = Request.Cookies("User")("UserID") UserName = Request.Cookies("User")("UserName") UserPower = Request.Cookies("User")("UserPower") admID = Request.Cookies("User")("admID") %>
<% Set db = server.CreateObject("ADODB.Connection") db.Open dbcon set rs = Server.CreateObject("ADODB.RecordSet") SQL = "Select pcImg, pcYoutube from main_banner" rs.Open SQL, db, 1 pcImg = rs("pcImg") If pcImg <> "" Then pcImg = "../ADTS/banner/"&pcImg Else pcImg = "image/new/main_img.gif" End IF pcYoutube = Trim(rs("pcYoutube")) If pcYoutube <> "" Then re_url = Left(pcYoutube,16) If re_url = "https://youtu.be" Then pcYoutube_ = Split(pcYoutube, "/") pcYoutube = "https://www.youtube.com/embed/"&pcYoutube_(3) End if End if Rs.close %>
<% If pcYoutube <> "" Then %> <% Else %> <% End If %>

<% SQL = "Select TOP 4 num, title, regdate, pgroup, stair, step_in from TB_Board" SQL = SQL & " where bbsaID ='20041223100' order by regdate desc, pgroup desc, stair asc " rs.Open SQL, db, 1 IF Not Rs.Eof Then Do Until Rs.Eof p_no = rs("num") p_title = rs("title") p_regdate = rs("regdate") IF len(p_title) > 20 Then p_title = Mid(p_title,1,20) &".." End IF p_pgroup = rs("pgroup") p_step_in = rs("step_in") p_stair = rs("stair") %> <% Rs.MoveNext Loop Else %> <% End IF Rs.close %>
<%=p_title%>
?????????? ???????.
<% old_regi = "Y" SQL = "select lect_register.lectID from lect_register INNER JOIN course ON lect_register.lectID =" SQL = SQL &" course.courID WHERE lect_register.UserID = '"& UserID &"' and numb = '1'" rs.open SQL, db, 1 IF Not rs.Eof Then old_regi = "Y" '예전 결제 과목 있다면 Else old_regi = "N" '예전 결제 과목 없다면 End IF rs.close %>
mypage/login01.asp<% Else %>mypage/member_info.asp<% End IF %>"> <% IF UserID <> "" Then IF old_regi = "N" Then %> <% Else %> <% End IF %> <% Else %> <% End IF %> 결제하기 mypage/login01.asp<% Else %>mypage/mypage_book.asp<% End IF %>">
<% thisurl = "http://"&Request.ServerVariables("HTTP_HOST") %>
<% SQL = "Select TOP 9 num, title, pgroup, stair, step_in, regdate from TB_Board" SQL = SQL & " where bbsaID = '20041223101' order by regdate desc, pgroup desc, stair asc " rs.Open SQL, db, 1 IF Not Rs.Eof Then Do Until rs.Eof p_no = rs("num") p_title = rs("title") p_regdate = rs("regdate") IF len(p_title) > 20 Then p_title = Mid(p_title,1,20) &".." End IF p_pgroup = rs("pgroup") p_step_in = rs("step_in") p_stair = rs("stair") %> <% Rs.MoveNext Loop Else %> <% End IF rs.Close : set rs = Nothing db.close : set db = Nothing %>
<%=p_title%>
?????????? ???????.