<% ' ########################################### ' ##### How to say ' ########################################### ' ## How to say 진행중일 때 : 현재 진행중인 한줄토크 노출 ' ## How to say 진행하지 않을 때 : 무작위로 한줄토크 노출(isWrite=0) ' ########################################### dim seq ,contents, isWrite dim QUnique : QUnique = "40000000" set db = new dbclass db.sql = "select isWrite from popup_info where popNo=2" ' 글쓰기 여부 체크 'db.view set rs = db.execrs() : db.clear() if not (rs.eof or rs.bof) then isWrite = rs(0) else isWrite = 0 end if if isWrite = 1 then ' 글쓰기인 상태일때 : 마지막에 저장한 한줄토크 가져오기 db.sql = "SELECT top 1 * FROM Board where QUnique ='"&QUnique&"' and QDelFg = 0 order by Qidx desc" 'db.view set rs = db.execrs() else ' 글쓰기가 아닌상태일때 : 무작위로 가져오기 dim cnt, rndNo db.sql = "SELECT COUNT(*) FROM Board where QUnique ='"&QUnique&"' and QDelFg = 0" set rs = db.execrs() : db.clear() cnt = rs(0) ' 총 글 수 randomize() ' 랜덤 초기화 rndNo = Int((cnt * Rnd) + 1) ' 무작위 수 구하기 ' 무작위로 추출된 무작위 번호에 맞는 한줄토크 가져오기 db.sql = "SELECT top "&rndNo&" * FROM Board where QUnique ='"&QUnique&"' and QDelFg = 0 order by Qidx desc" 'db.view set rs = db.execrs() rs.movelast ' 무작위 레코드 포인터인 마지막 레코드로 이동 end if set db = nothing if not( rs.eof or rs.bof ) then seq = rs("qidx") contents = rs("QContent") contents = replace(contents,"http://file.themavens.co.kr","") else response.write "" response.end end if %>

<%=contents%>

<% ' 글쓰기 가능상태(admin에서 설정)만 글쓰기가 표시됨 if isWrite=1 then %>

<%if US.GETS("WEBID") = "" then%>

<%else%>

<%end if%>

<%end if%> <% 'set db = new dbclass ' db.sql = "SELECT * FROM BoardComment WHERE QUnique=" & seq & " AND CDelFg=0;" ' 'db.view() ' set rs = db.execrs() 'set db = nothing Set Listing = new ListClass Listing.SetLow = 11 Listing.Columm = " * " Listing.Short = " cidx DESC " Listing.Table = " BoardComment " Listing.CountSql = "select count(*) from BoardComment where QUnique=" & seq & " AND CDelFg=0 and cdetc2=0 ;" Listing.Condition = " QUnique=" & seq & " AND CDelFg=0 and cdetc2=0 " 'Listing.Dbview = true Set rs = Listing.execrs() %> <%if not (rs.eof or rs.bof) then%>


How to say	적절하지 못한 글은 관리자에 의해 삭제될 수 있습니다.

<%do until rs.eof%> <%rs.movenext:loop%>


→	<%=rs("MID")%>	<%=Replace(rs("CContent"), chr(13), " ")%>	<%=left(rs("CDate"),10)%>	<%if rs("MID") = US.GETS("WEBID") then%> x <%end if%>

<%=Listing.Paging2("")%>

오늘 하루 열지않기

<%end if%> <%=fn.framecommand5(0)%>