<%@ Language=VBScript %> <% Response.Expires = 0 Response.Buffer = true %> <% 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_up_idx = Rs("up_idx") view_in_step = Rs("in_step") view_visited = Rs("visited") view_title = Rs("title") view_name = Rs("name") view_email = Rs("email") view_url = Rs("url") view_comments = Rs("comments") view_pass = Rs("pass") view_w_date = Rs("w_date") view_br = Rs("br") view_html = Rs("html") view_user_ip = Rs("user_ip") view_user_software = Rs("user_software") view_file_name = Rs("file_name") view_file_url = Rs("file_url") view_file_size = Rs("file_size") view_file_down = Rs("down") view_comments = Replace(view_comments, " ", " ") view_comments = Replace(view_comments, chr(13), "
") view_comments = Replace(view_comments, chr(09), "       ") '변수를 알맞은 형으로 변환한다. if view_br = "on" then view_comments = Replace(view_comments, chr(13), "
") end if if view_html = "on" then view_comments = Replace(view_comments, "<", "<") view_comments = Replace(view_comments, ">", ">") end if if Not view_url = "" then if Not left(view_url, 7) = "http://" then view_url = "http://" & view_url end if end if 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 '공지사항을 가져온다.(있다면...) sql = "select * from " & TName & " where idx=0" Rs.Open sql, Conn, 1, 1 if Not Rs.EOF then news_idx = Rs("idx") news_w_num = Rs("w_num") news_up_idx = Rs("up_idx") news_in_step = Rs("in_step") news_visited = Rs("visited") news_title = Rs("title") news_name = Rs("name") news_email = Rs("email") news_url = Rs("url") news_comments = Rs("comments") news_pass = Rs("pass") news_w_date = Rs("w_date") news_br = Rs("br") news_html = Rs("html") news_user_ip = Rs("user_ip") news_user_software = Rs("user_software") news_file_name = Rs("file_name") news_file_url = Rs("file_url") news_file_size = Rs("file_size") news_file_down = Rs("down") end if Rs.Close '글 목록을 가져온다. 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="hwang1" Then%>

<%elseif TName="hwang" Then%>

<%elseif TName="hwang2" Then%>

<%end if%>

 

 
<% if Not w_num = "" then %> <% end if %>
 
제목   <%=view_title%>     
파일 <%if Not view_file_name = "" then%>   <%=view_file_name%>(<%=view_file_size%>) <%else%>  첨부파일 없슴!! <%end if%>
등록자   <%if NOT view_name="" Then%> <%=view_name%> <%else%> 관리자 <%end if%> 등록일   <%=view_w_date%>
내용
<%=view_comments%>
<%if Not session("forum_adminid") = "" and Not session("forum_adminpwd") = "" then%>
<%end if%>
등록수 : <%=max_write_num%>  현재 [<%=cpage%>] 페이지 <%if Not keyword = "" then%> 검색 '<%=keyword%>'의 결과. <%end if%> <%if Not session("forum_adminid") = "" and Not session("forum_adminpwd") = "" then%> <%end if%> <%if Not session("forum_adminid") = "" and Not session("forum_adminpwd") = "" then%> <%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 %> <%if j mod 2 = 0 Then %> <%else%> <%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")%> <%=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 %>