<%@ LANGUAGE="VBSCRIPT" %> <% '/////////////////// 관리게시판 부분의 페이지 설정////////////////// bunho=Request("bunho") boardname=Request("boardname") sqlls="Select * from bo_pds_master where pm_boardname='"&boardname&"' " Set ls=DbCon.Execute(sqlls) boardname=ls("pm_boardname") getdate=ls("pm_getdate") pdsv=ls("pm_pdsv") subject=ls("pm_subject") subject=Replace(subject,chr(34),""") subjectv=ls("pm_subjectv") titletop=ls("pm_titletop") titletopv=ls("pm_titletopv") titlebot=ls("pm_titlebot") titlebotv=ls("pm_titlebotv") banner=ls("pm_banner") bannerv=ls("pm_bannerv") mailaddr=ls("pm_mailaddr") mailmanav=ls("pm_mailmanav") mailmenv=ls("pm_mailmenv") htmlv=ls("pm_htmlv") writemanav=ls("pm_writemanav") totbgc=ls("pm_totbgc") subcharc=ls("pm_subcharc") titlebgc=ls("pm_titlebgc") titlecharc=ls("pm_titlecharc") textbgc=ls("pm_textbgc") textcharc=ls("pm_textcharc") rc=ls("pm_recordc") pc=ls("pm_pagec") ls.close '/////////////////////// 레코드 셋을 이용한 페이지 이동 모듈 변수설정 ///////////////// setsize = pc '페이지셋 단위 결정 pgsize = rc '한 페이지당 레코드 수 if Request("page")="" then '넘겨받는 변수는 페이지 값만 page=1 startpage=1 else page=cint(Request("page")) startpage=int(page/setsize) if startpage=(page/setsize) then startpage=page-setsize + 1 else startpage=int(page/setsize)*setsize + 1 end if end if Set DbRec=Server.CreateObject("ADODB.Recordset") DbRec.CursorType=1 '/////// Query 문 사용자 변경 ////////// listsql="SELECT * FROM "&boardname&" ORDER BY pd_ref DESC, pd_ansnum ASC" DbRec.Open listsql, DbCon, 1 if not DbRec.eof then DbRec.PageSize= pgsize '페이지 사이즈 설정 pgcount = DbRec.PageCount '전체 페이지수 계산 trcount = DbRec.RecordCount '전체 레코드 수 계산 nextpg = Cint(page)+1 '다음페이지 계산 prevpg = Cint(page)-1 '이전페이지 계산 n = trcount - (page-1) * rc '///////////////////////////////// 변수 설정 끝 ///////////////////////////////////////// else trcount=0 pgcount=0 end if %> board


<% if bannerv="yestop" then '배너명 삽입여부%>
<% end if %>

<% if subjectv="yes" then '게시판명 삽입여부 response.write "
"&subject&"" end if %> <% if titletopv="yes" then '사용자문구(상) 삽입여부 response.write "

"&titletop&"" end if %>



검색된 게시물 : <%=trcount%> 쪽번호 : <%=page&"/"&pgcount%> <%'시작 response.write "홈" if page=1 then response.write "이전으로" '링크 없는 처음 else response.write "" response.write "이전으로 " end if if nextpg > pgcount then '만약 다음 페이지가 전체페이지 수보다 크면 링크 없이 response.write "다음으로" else response.write "" response.write "다음으로 " response.write "" ' response.write "마지막 " end if '///////////////////// 관리자 글쓰기 사용 여부시작 ///////////////// if writemanav="yes" then if Session("GRADE") = "Z" or Session("GRADE") = "x" then response.write "" response.write "글쓰기" end if else response.write "" response.write "글쓰기" end if '///////////////////// 관리자 글쓰기 사용 여부끝 ///////////////// %>

<%if prevpg<1 then%> 처음페이지 <%else%> 처음페이지 <%end if%> <% response.write "바로가기 : " if startpage=1 then Response.Write "[이전 "&setsize&"개] " elseif startpage > setsize then Response.Write "[이전 "&setsize&"개] " end if for i=startpage To setsize+startpage -1 if i > pgcount then exit for end if Response.Write " " &i&" " Next if pgcount < setsize then '현재 페이지가 페이지 셋크기보다 적거나 페이지리스트가 전체페이지보다 적으면 response.write " [다음 "&setsize&"개]" elseif i>pgcount then response.write " [다음 "&setsize&"개]" else Response.Write "" Response.Write " [다음 "&setsize&"개]" end if %> <% if trcount= 0 then %> 끝페이지 <% else %> 끝페이지 <% end if %>

<%if pdsv = "yes" then%> <%end if%> <% If DbRec.eof then %> <%if pdsv="yes" then%> <%else%> <%end if%> <% End If %> <% if trcount > 0 then DbRec.AbsolutePage = page For i = 1 to pgsize if DbRec.EOF then exit for end if %> <%if pdsv = "yes" then%> <% End If %> <% n=n-1 DbRec.MoveNext Next %>
번호 제목 작성자 작성일 조회파일 다운
자료가 없습니다.
자료가 없습니다.
<%=n%> <% 'if left(now,8) = left(DbRec("getdate"),8) then ' 1일 단위로 올라온에 New 표시할 때 if datediff("d",DbRec("pd_getdate"),now)<1 then ' response.write "" else response.write " " end if %> <% bunho=cint(DbRec("pd_bunho")) subject=DbRec("pd_subject") ref=DbRec("pd_ref") tstep=cint(DbRec("pd_step")) visit=DbRec("pd_visited") downcount=DbRec("pd_downcount") if tstep > 0 then response.write "" response.write "Re: " end if if len(subject) > 18 then response.write "" response.write left(subject,18)&"..." else response.write "" response.write ""&subject&"" end if %> "> <%=DbRec("pd_writer")%> <%=year(DbRec("pd_getdate"))&"-"&month(DbRec("pd_getdate"))&"-"&day(DbRec("pd_getdate"))%> <%=visit%> <%if DbRec("pd_filesize")=0 then%> - <%else%> "> <% ext=Lcase(right(DbRec("pd_filename"),3)) select case ext case "jpg" down="type/jpg.gif" case "gif" down="type/gif.gif" case "txt" down="type/txt.gif" case "zip" down="type/zip.gif" case "hwp" down="type/hwp.gif" case "exe" down="type/exe.gif" case "mp3" down="type/mp3.gif" case "doc" down="type/doc.gif" case "ppt" down="type/ppt.gif" case "xls" down="type/xls.gif" case else down="type/default.gif" end select %> <%=DbRec(" WIDTH="16" HEIGHT="16"> <%end if%> <% if DbRec("pd_filesize")=0 then response.write " -" else response.write ""&downcount&"" end if %>
제목 내용 작성자
<%end if%>
<% if DbRec.BOF then %>
<%end if%> <% if titlebotv="yes" then '사용자문구(하) 삽입여부 response.write "
"&titlebot&"

" end if %> <% if bannerv="yesbot" then '배너명 삽입여부%>








<% end if %>