<% '------------------------------------------------------------------------------- 'Template '------------------------------------------------------------------------------- %> <% '------------------------------------------------------------------------------- 'Config '------------------------------------------------------------------------------- Public Sub Config() Page.S = fn.dic("s") Page.Cate = "1030000" End Sub '------------------------------------------------------------------------------- 'Local Function '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- 'Content '------------------------------------------------------------------------------- Public Sub RenderContent() %>
번호 강사명 후기 작성자 작성일
<% dim pg : pg=fn.dic("curpage") : if pg="" then pg=1 Set Listing = new ListClass Listing.SetLow = 11 Listing.Columm = " * " Listing.Short = " 설문일시 desc " Listing.Table = " vi_설문지정규주관식목록 " dim strWhere strWhere = " 구분=''정규'' and (((설문지번호 between 11 and 13) and 질문번호=10) or ((설문지번호 between 14 and 100) and 질문번호=9)) and len(주관식답)>5 " Listing.CountSql = " select count(*) from vi_설문지정규주관식목록 where " & replace(strWhere,"''","'") Listing.Condition = strWhere 'Listing.Dbview = true Set rs = Listing.execrs() dim tempId Do until rs.eof tempId = left(rs("유저ID"),len(rs("유저ID"))-2) & "**" %> <% i = i + 1 rs.movenext loop %>
<%=(Listing.ListCount)-(pg-1)*11 - i%> <%=rs("담임명")%> <%=rs("주관식답")%> <%=tempId%> <%=left(rs("설문일시"),10)%>
<%=Listing.Paging2("")%>
<% Set Listing = Nothing %>
<% End Sub %>