<% keyword = Request("keyword") keyfield = Request("keyfield") idx = Request("idx") w_num = Request("w_num") cmd = Request("cmd") TName = Request("TName") cpage = Request("cpage") spage = Request("spage") '현재 페이지와 시작 페이지를 설정한다. if cpage = "" then cpage = 1 end if if spage = "" then spage = 1 end if select_num = list_num * cpage Set Rs = Server.CreateObject("ADODB.RecordSet") '최대 글번호를 얻는다. sql = "select max(w_num) from " & TName Rs.Open sql, Conn, 1, 1 max_write_num = Rs(0) Rs.Close '최대 페이지 번호를 얻는다. if (max_write_num mod list_num) = 0 then max_page_num = int(max_write_num / list_num) else max_page_num = int(max_write_num / list_num) + 1 end if '인덱스 값이 있다면 해당 인덱스 값의 내용을 따로 불러 들인다. 내용 읽기 부분 If Not w_num = "" then sql = "select * from " & TName & " where w_num=" & w_num Rs.Open sql, Conn, 1, 1 '데이터를 변수에 할당한다. view_idx = Rs("idx") view_w_num = Rs("w_num") view_name = Rs("name") view_up_idx = Rs("up_idx") view_in_step = Rs("in_step") view_visited = Rs("visited") view_title = Rs("title") view_comments = Rs("comments") view_pass = Rs("pass") view_w_date = Rs("w_date") view_user_ip = Rs("user_ip") '변수를 알맞은 형으로 변환한다. view_comments = Replace(view_comments, chr(13), "
") Rs.Close '조회수를 업데이트 한다. sql = "select visited from " & TName & " where idx=" & view_idx Rs.Open sql, Conn, 1, 1 visited = Rs(0) + 1 sql = "update " & TName & " set visited=" & visited & " where idx=" & view_idx Conn.Execute(sql) Rs.Close End If '글 목록을 가져온다. if keyword = "" or keyfield = "" then sql = "select top " & select_num & " * from " & TName & " order by w_num desc" else sql = "select * from " & TName & " where " & keyfield & " like '%" & keyword & "%' order by w_num desc" end if Rs.Open sql, Conn, 1, 1 '해당 페이지로 레코드 셋을 이동 시킨다. 검색이 아닌 경우 if Not cpage = 1 and keyword = "" then move_num = list_num * (cpage - 1) Rs.Move(move_num) end if '검색조건이 있을 경우 환경 설정을 다시 한다. '전체 레코드 셋을 불러들여서 페이징을 사용해야 한다. if not keyword = "" and not keyfield = "" then If Not Rs.EOF then max_write_num = Rs.RecordCount Rs.PageSize = list_num Rs.AbsolutePage = cpage max_page_num = Rs.PageCount End if end if if TName = "freeboard" then boardnum = 1 elseif TName = "last2" then boardnum = 2 end if %> 이동복 홈페이지에 오신것을 환영합니다.


<% if Not w_num = "" then %> <% end if %>
 

제목   <%=view_title%>

이름   <%=view_name%> 등록일   <%=view_w_date%>

<%=view_comments%>

등록수 : <%=max_write_num%>  현재 [<%=cpage%>] 페이지 <%if Not keyword = "" then%> 검색 '<%=keyword%>'의 결과. <%end if%> <%if Not session("adminid") = "" and Not session("adminpwd") = "" and NOT TName="freeboard" then%> <%end if%> <%if NOT TName="freeboard" Then%> <%if Not session("adminid") = "" and Not session("adminpwd") = "" then%> <%else%> <%end if%> <%else%> <%end if%>
<% if Not Rs.EOF then %> <% j = 1 Do Until Rs.EOF or j > list_num if Rs("idx") = 0 then exit do end if %> <% j = j + 1 Rs.MoveNext Loop %>
번호 제목 이름 등록일 조회
<%=Rs("w_num")%> <%if Not Rs("in_step") = 0 then%> <%for i=1 to Rs("in_step")%>   <%next%>    <%end if%>   &idx=<%=Rs("idx")%>&TName=<%=TName%>&cpage=<%=cpage%>&spage=<%=spage%>" onFocus="blur()"><%=Rs("title")%> <%if mid(now(),1,10) = Left(Rs("w_date"), 10) then%> <%end if%> <%=Rs("name")%> <%=Left(Rs("w_date"),10)%> <%=Rs("visited")%>
<% if spage > 1 then %> [이전 <%=page_num%>페이지] <% end if%> <% for i = spage to spage+page_num-1 if i <= max_page_num then %> [<%=i%>] <% end if next %> <% if i <= max_page_num then %> [다음 <%=page_num%>페이지] <% end if%>
<% Rs.Close else '게시판에 저장된 데이터가 하나도 없을 경우 %>

현재 등록된 내용이 없습니다.
<% End if %>
이름제목 내용
 

 

 
<% Conn.Close Set Conn = Nothing %>