김앤김안과

<%'call check_login()%> <% 'session("admin_id") = "eyerene" 'on error resume next dim keyword,search_list,page,parent_no,icon_number,icon_value,home_name,page_irum,table_name : 'icon_number 넘버에 따라 아이콘과 색깔을 바꾸기 위해 TR_MOUSE_OVER="#FBFFF7" '하늘색 page = trim(request("page")) parent_no = trim(request("parent_no")) ' parent_no = 4 : 공지사항 ' parent_no = 5 : 자주묻는질문 search_list = trim(request("search_list")) keyword= trim(request("keyword"))'단어를 받는다 page_irum = "notice" : table_name = "kim_bbs" : home_name = "kimkim" : '나중에 모르니까 다 변수로 받아서 처리한다. %> <% 'response.write "
17 admin_id = "& session("admin_id") %> <%'parent_no에 따른 이미지 부르는 페이지%> <% call print_under_title(total_count,page,total_page)'반드시 필요 페이징할때%> 김앤김안과

<%'list_btitle%>

<%'list_stitle%>

<%'search_start%> <%'search_end%>

<%call print_table_title()%> <%'list_start%> <%call print_tree_top(parent_no,0,0,bullet,con,search_list,keyword)%> <%'list_end%> <%'paging_start%> <%'paging_end%>

<%call make_page(page_irum&".asp",page, total_page,"page",search_list,keyword)'페이징%>

<%call print_under_search()%>

<%call close_Rs(con)'디비닫기%> <%public sub page_setting(rs,page,total_page,total_count,page_name) '입력 : rs,page,page_name '출력 : total_page,total_count%> <% rs.PageSize=10 total_count = rs.RecordCount total_page = rs.PageCount if request(page_name)="" then page=1 else page = cint(request(page_name)) end if if page<1 then page=1 else if total_page = 0 then total_page = 1 end if if page>total_page then page=total_page end if end if 'response.write page%> <%end sub%> <%public sub print_under_title(total_count,page,total_page)%> <%end sub%> <%public sub print_under_search()%> <%end sub%> <%public sub print_table_title()%> <%'list_trtitle1,2,3,4%>

<%'tr_title%> <%end sub%> <%public sub print_tree_top(parent_no,super_no,depth,bullet,con,search_list,keyword) 'tree형태로 화면에 프린트한다.%> <% dim sql,brother_no,count,record_no,depth1,wherekeyword set rs = server.createobject("adodb.recordset") if keyword > "" then wherekeyword = " and "& search_list &" like '%"& keyword &"%' " end if sql = "select record_no,title,last_date,view_no from "& table_name &" where home_name= '"& home_name &"' and parent_no=" & parent_no & " and super_no = " & super_no & wherekeyword &" order by record_no desc,last_date desc" ' response.write "
341 sql = "& SQL rs.open sql,con,1 brother_no = rs.RecordCount count = 0 call page_setting(rs,page,total_page,total_count,"page")%> <% if total_count = 0 then %>

입력된 항목이 없거나 검색하는 단어가 없습니다.

<%'tr반복%> <% else dim i,imax rs.AbsolutePage = page imax = rs.PageSize gasang_num = total_count - rs.PageSize * (page - 1) if page=rs.PageCount then imax = rs.RecordCount mod imax if imax=0 then imax = rs.PageSize end if for i = 1 to imax' count = count + 1 record_no = rs("record_no")%> <%=gasang_num%>

<%=limitText(rs("title"),"30")%> <%if session("admin_id") > "" then'어드민일때 삭제한다.%> 삭제 <%end if%>

<%=left(rs("last_date"),11)%>

<%=rs("view_no")%>

<%rs.MoveNext gasang_num= gasang_num-1 next end if call close_rs(rs)%> <%'_______________________________________ 끝 _____________________________%> <%end sub%> <%private function limitText(title,number)'글자의 수를 제한한다. if len(title) > cint(number) then 'title의 글자의 수가 number보다 클때 title = left(title,number-1)&".." : end if limitText=title : end function %> <%public sub select_sql(con,rs,sql) 'response.write sql set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,con,1 end sub%> <%public sub close_con(con) con.close set con=nothing end sub%> <%public sub close_rs(rs) rs.close set rs=nothing end sub%>