<%@ LANGUAGE="VBSCRIPT" %> <% ' 현재 출력할 페이지 번호를 받아온다. if Request("pageno")="" then PageNo = 1 else PageNo = CInt(Request("pageno")) end if ' 바로가기 목록의 시작 페이지 번호를 받아온다. if Request("startpage")="" then StartPage = 1 else StartPage = CInt(Request("startpage")) end if %> <% Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT idx, title, name, filename,filesize,filepath, stime, visit FROM dt_pds ORDER BY idx DESC", db, 1 ' 전체 레코드 수를 저장 ListCount = List.RecordCount ' 게시물에 등록된 게시물이 있을 경우에만 변수 설정 if ListCount > 0 then ' 한 페이지에 나타나는 목록 수, 변경가능 Page_Count = 10 ' 한 페이지의 사이즈를 PageCount로 설정 List.PageSize = Page_Count ' 현재 레코드셋의 페이지를 페이지 번호로 설정 List.AbsolutePage = PageNo ' 페이지 바로가기의 개수 Page_List = 10 end if %> http://www.dtronicsinc.com DVI(Digital Video Inteface) Solutions
 
 
   
<% ' 등록된 게시물이 있는지 확인 if ListCount = 0 then %> <% else ' 전체목록의 페이지 수가 현재 페이지가 같을때 -> 마지막 페이지일때 if List.PageCount = PageNo then ' 마지막 페이지 또는 전체 게시물 수가 페이지 사이즈 이하 ' 전체 게시물 수를 페이지 사이즈로 나눈 나머지가 마지막 목록의 수로 설정 ListLoop = ListCount Mod List.PageSize ' 만일 나머지가 0일 경우는 마지막 목록의 수가 페이지 사이즈와 동일 if ListLoop = 0 then ListLoop = List.PageSize else ' 마지막 페이지가 아님 ' 페이지 사이즈만큼 게시물 목록 표시 ListLoop = List.PageSize end if ' 페이지에 해당하는 ListLoop으로 반복 for i = 1 to ListLoop '아이콘 형식 지정 시작......................................... ' DIM filename,fileicon 'filename = list("filename") 'Dim fimg ' fimg = instrrev(filename,".") + 1 'filename = mid(filename,fimg) 'select case Ucase(filename) ' case "asf","wmv" ' fileicon = "asf.gif" 'case "SWF" ' fileicon = "swf.gif" 'case "DOC" ' fileicon = "doc.gif" 'case "CHM" ' fileicon = "chm.gif" 'case "FLA" ' fileicon = "fla.gif" 'c'ase "HWP" ' fileicon = "hwp.gif" 'case "ZIP" ' fileicon = "zip.gif" 'case "RAR" ' fileicon = "rar.gif" 'case "pdf" ' fileicon = "pdf.gif" 'case "JS" ' fileicon = "js.gif" 'case "EXE" ' fileicon = "exe.gif" 'case "TXT" ' fileicon = "txt.gif" 'case "WAV" ' fileicon = "wav.gif" 'case "GIF" ' fileicon = "gif.gif" 'case "JPG" ' fileicon = "jpg.gif" 'case "HTM","HTML" ' fileicon = "html.gif" 'case "RAM" ' fileicon = "ram.gif" 'case "RA" ' fileicon = "ra.gif" 'case "MP3" ' fileicon = "mp3.gif" 'case "IMAGE" ' fileicon = "image.gif" 'case "MPG","MPEG","AVI" ' fileicon = "mpg.gif" 'case "PPT" ' fileicon = "ppt.gif" 'case else ' fileicon = "etc.gif" 'end select '아이콘 형식 지정 끝...................................... %> <% List.MoveNext next end if %>
No.
TITLE
Writer
File
Date
View
no data
<%=List("idx")%>
 &pageno=<%=PageNo%>&startpage=<%=StartPage%>"><%=list("title")%> <%if left(now,10) = left(List("stime"),10) then%> <% end if %>
<%=List("name")%>
<% ' 저장된 파일이 있을경우에만 보여준다.......... if list("filename")<>"" then %> <%=list("filename")%>&filename=<%=list("filename")%>"> (<%=list("filesize")%>bytes)"> <% end if %>
<%=left(List("stime"),10)%>
<%=List("visit")%>
<% ' 전체 페이지수가 바로가기 페이지 수 보다 많은지 확인 if List.PageCount > Page_List then %> <% if StartPage <> 1 then %> <% else %> <% end if %> <% for CurrentPage = StartPage to StartPage+Page_List-1 if CurrentPage > List.PageCount then exit for else if CurrentPage = PageNo then %> <%=CurrentPage%> <% else %> <%=CurrentPage%> <% end if %> <% end if %> <% next %> <% if ((StartPage\Page_List) <> (List.PageCount\Page_List)) then%> <% if CurrentPage > List.PageCount then %> <% else %> <% end if %> <% else %> <% end if %> <% else %> <% for CurrentPage = StartPage to List.PageCount if CurrentPage = PageNo then %> <%=CurrentPage%> <% else %> <%=CurrentPage%> <% end if next %> <%end if%>