<% ConnectionString = "Provider=SQLOLEDB;Data Source=sql60.enterhost.com;Initial Catalog=BA321;user ID=BA321;password=walkerhilladm90 ;" Set GetDBConn = Server.CreateObject("ADODB.Connection") GetDBConn.Open(ConnectionString) %>

이메일 문의 <% ' 테이블 이름 받아오기 db = "email_list" ' 현재 출력할 페이지 번호를 받아온다. 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 * FROM " & db & " ORDER BY Num DESC", GetDBConn, 1 ' 전체 레코드 수를 저장 ListCount = List.RecordCount ' 게시물에 등록된 게시물이 있을 경우에만 변수 설정 if ListCount > 0 then ' 한 페이지에 나타나는 목록 수, 변경가능 Page_Count = 15 ' 한 페이지의 사이즈를 PageCount로 설정 List.PageSize = Page_Count ' 현재 레코드셋의 페이지를 페이지 번호로 설정 List.AbsolutePage = PageNo ' 페이지 바로가기의 개수 Page_List = 10 end if %> <% ' 등록된 게시물이 있는지 확인 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 %> <% List.MoveNext next end if %> 등록된 메일이 없습니다. <%if left(now,10) = left(List("reg_time"),10) then%> <%=List("num")%> <%else%> <%=List("Num")%> <%end if%> &pageno=<%=PageNo%>&startpage=<%=StartPage%>','_V','width=770,height=500,scrollbars=yes')"><%=Left(List("subject"),25)%> <%=List("writer")%> <% If list("tel")="" Then response.write list("hp") Else response.write list("tel") End If %> <%=List("email")%> <%=Left(List("reg_time"),10)%> <% ' 전체 페이지수가 바로가기 페이지 수 보다 많은지 확인 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%>