<% v_page = Request("p_page") v_search = Request("p_search") v_keyword = Request("p_keyword") '리스트 화면에 보여줄 갯수 v_pagesize = 10 '페이징 갯수 v_block = 10 '내용 길이 length = 30 If Len(v_page) = 0 Then v_page = 1 End If if (trim(Request("p_keyword")) <> "") and (Request("p_search") <> "") Then '검색어가 있다면 strSearch = "Where "& v_search &" like '%"& Replace(v_keyword,"'","''")&"%'" end if SQg_T = "Select Count(News_idx),CEILING(CAST(Count(*) AS FLOAT)/" & v_pagesize & ") from NewsLatter " SQg_T = SQg_T & strSearch Set Rs_Tot = Dbcon.execute(SQg_T) v_total = Rs_Tot(0) v_totalpage = Rs_Tot(1) strSQL = "SELECT Top "& (v_page*v_pagesize) & " * FROM NewsLatter " strSQL = strSQL & strSearch strSQL = strSQL & " Order by News_date Desc" Set Rs_L = DbCon.Execute(strSQL) 'title_str "뉴스레터목록",600 %>

전체뉴스레터수 : <%=v_total%> <%=v_totalpage%> / <%=v_page%>

<% If v_totalpage > 0 Then '------ 내용이 있으면 리스트 출력 Rs_L.Move (v_page - 1) * v_pagesize if v_page = 1 then num = v_total else num = v_total - ((v_page - 1) * v_pagesize) end if '-------------------- 리스트 반복 시작 -------------------- Do while not Rs_L.EOF %> <% Rs_L.MoveNext num = num - 1 Loop else '게시할 목록이 없다면 %> <% end If '-------------------- 리스트 반복 끝 -------------------- %>

	번호	제목	발행일	발송횟수	발송량
" >	<%=num%>	&p_page=<%=v_page%>&p_search=<%=v_search%>&p_keyword=<%=v_keyword%>"><%=Rs_L("News_subject")%>	<%=left(Rs_L("News_date"),10)%>	<%=Rs_L("News_send")%>회	<%=Rs_L("News_send_qty")%>통
등록된 뉴스레터가 없습니다

<% v_temp = Int((v_page - 1) / v_block) * v_block + 1 If v_temp = 1 Then 'Response.Write "[이전 " & v_block & "개]" Else Response.Write"[이전]" End If v_loop = 1 Do Until v_loop > v_block Or v_temp > v_totalpage If v_temp = CInt(v_page) Then Response.Write "[" & v_temp &"] " Else Response.Write"[" & v_temp & "] " End If v_temp = v_temp + 1 v_loop = v_loop + 1 Loop If v_temp > v_totalpage Then 'Response.Write "[다음 " &v_block&"개]" Else Response.Write"[다음]" End If %>

<% Rs_Tot.Close Set Rs_Tot = Nothing Rs_L.Close Set Rs_L = Nothing Dbcon.Close Set Dbcon = Nothing %>