<% '------------------------------------------------------------------------------- 'Template '------------------------------------------------------------------------------- %> <% '------------------------------------------------------------------------------- 'Config '------------------------------------------------------------------------------- Public Sub Config() ' 가장 상단에서 설정할 config End Sub '------------------------------------------------------------------------------- 'Local Function '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- 'Content '------------------------------------------------------------------------------- Public Sub RenderContent() %> <% dim seq,bseq,nseq,isEvent seq = fn.dic("seq") bseq = 0 : nseq = 0 set db = new dbclass ' 앞글 검색 db.sql = "SELECT TOP 1 QIdx FROM Board WHERE QIdx>" & seq & " and QDelFg = 0 and QUnique=10703 and QviewArea=0 ORDER BY QIdx ASC" set rs = db.execrs() : db.clear() if not rs.eof then bseq = rs(0) ' 뒷글 검색 db.sql = "SELECT TOP 1 QIdx FROM Board WHERE QIdx<" & seq & " and QDelFg = 0 and QUnique=10703 and QviewArea=0 ORDER BY QIdx DESC" set rs = db.execrs() : db.clear() if not rs.eof then nseq = rs(0) ' 본문 검색 & 읽은수++ db.sql = "SELECT * FROM Board WHERE QUnique=10703 and QIdx=" & seq & " ;" db.sql = "UPDATE Board SET QRead=QRead+1 WHERE QUnique=10703 and QIdx=" & seq & " ;" 'db.view set rs = db.execrs() if not rs.eof then isEvent=rs("QisEvent") set db = nothing 'response.write bseq&","&seq&","&nseq %>

EVENT

<%=rs("QTitle")%> - <%=left(rs("QDate"),10)%>

<%=replace(rs("QContent"),"http://file.themavens.co.kr","")%>
<% if seq=1002763 then %>
<% ' 강사추천 등록 중지(작성된 글 view만 되게 처리) if false then if US.gets("webid")="" then %>
<%else dim arr1, str1, str2, branch branch = fn.dic("branch") ' 지점목록 생성 set db = new dbclass db.sql = " select name from branch where delfg=0 AND headfg=0 and approval='Y'" set rs = db.execrs() if not (rs.eof or rs.bof) then arr1 = rs.GetRows() end if db.clear() set db = nothing if isArray(arr1) then for i = 0 to ubound(arr1, 2) str1 = str1 & "" next end if ' 강사목록 생성 set db = new dbclass db.sql = "select a.NAME,a.FULLNAME from teacher a inner join branch b on a.branch=b.idx where b.name ='"&branch&"' and a.state='A' order by a.name " set rs = db.execrs() if not (rs.eof or rs.bof) then arr1 = rs.GetRows() else arr1 = "" end if db.clear() set db = nothing if isArray(arr1) then for i = 0 to ubound(arr1, 2) str2 = str2 & "" next end if %>
<% end if ' 강사추천 등록 중지(작성된 글 view만 되게 처리) - 여기까지 end if set db = new dbclass db.sql = "SELECT * FROM BoardComment WHERE qunique=" & seq & " AND CDelFg=0 AND cdetc2=0 order by cdate desc;" set rs = db.execrs() set db = nothing if not (rs.eof or rs.bof) then %>
    <%do until rs.eof%>

  • <%=rs("MID")%> - <%=rs("CDEtc4")%>   <%=rs("CDEtc5")%> <%if false then ' 강사추천 등록 중지(작성된 글 view만 되게 처리)%> <%if rs("MID") = US.GETS("WEBID") then%> x <%end if%> <%end if%>

    <%=Replace(rs("CContent"), chr(13), "
    ")%>

    작성일 | <%=left(rs("CDate"),10)%>

    • <%rs.movenext:loop%>
<%end if%>
<%end if%> <% ' if us.gets("webid")="test000" then isEvent=true if isEvent then dim customer, phone, email, hand, company set db = new dbclass db.sql = "SELECT name, branch, company, " db.sql = "mobile, telephone, email " db.sql = "FROM webuser WHERE webid='"&US.GETS("webid")&"';" set rs = db.execrs : db.clear() if not rs.eof then customer = rs("name") branch = rs("branch") phone = rs("telephone") email = rs("email") hand = rs("mobile") company = rs("company") if email="@" then email="" end if %>
<% set db = new dbclass db.sql = "SELECT idx , name FROM Branch WHERE approval = 'Y' AND headfg=0 ;" set rs = db.execrs() set db = nothing %>
*개인정보취급방침

동의

동의안함
*이름
*휴대폰
*E-mail
*통화가능시간
*수강희망센터
*알게된경로
*문의사항
<%end if%>
<%if bseq>0 then%><<%end if%> LIST <%if nseq>0 then%>><%end if%>
<% End Sub %>