<% Option Explicit Dim objDBConn Dim objRs Dim strSQL Dim intNowPage, intTotalCount, intTotalPage, intBlockPage, intPageSize Dim intTemp, intLoop Dim strSearchWord, strSearchString, strSearchSQL Dim blnSearch intNowPage = Request.QueryString("page") strSearchWord = Request.QueryString("search_word") strSearchString = Request.QueryString("search_string") blnSearch = false intPageSize = 20 intBlockPage = 20 If Len(intNowPage) = 0 Then intNowPage = 1 End If If Len(strSearchString) <> 0 Then blnSearch = true strSearchSQL = " Where " & strSearchWord strSearchSQL = strSearchSQL & " like '%" & strSearchString & "%'" End If strSQL = "Select Count(*)" strSQL = strSQL & ",CEILING(CAST(Count(*) AS FLOAT)/" & intPageSize & ")" strSQL = strSQL & " from board" If blnSearch Then strSQL = strSQL & strSearchSQL End If Set objDBConn = Server.CreateObject("ADODB.Connection") Set objRs = Server.CreateObject("ADODB.RecordSet") objDBConn.Open "97003074", "sa", "accessheaven" objRs.Open strSQL, objDBConn intTotalCount = objRs(0) intTotalPage = objRs(1) objRs.Close strSQL = "Select Top " & intNowPage * intPageSize & " intSeq" ' 번호 strSQL = strSQL & ",strName" ' 이름 strSQL = strSQL & ",strEmail" ' 메일주소 strSQL = strSQL & ",strSubject" ' 제목 strSQL = strSQL & ",intCount" ' 조회수 strSQL = strSQL & ",dtmReg_Date" ' 등록일 strSQL = strSQL & " FROM board" If blnSearch Then strSQL = strSQL & strSearchSQL End If strSQL = strSQL & " ORDER BY intSeq desc" objRs.Open strSQL, objDBConn %> 목록보기

목록보기

<% If intTotalCount > 0 Then %> <% End If %>
전체게시 <%=intTotalCount%> 개      현재페이지 : <%=intNowPage%> / <%=intTotalPage%>
<% If objRs.BOF or objRs.EOF Then %> <% Else objRs.Move (intNowPage - 1) * intPageSize Do Until objRs.EOF %> <% objRs.MoveNext Loop End If objRs.Close Set objRs = nothing objDBConn.Close Set objDBConn = nothing %>
번호 제목 작성자 등록일 조회
등록된 게시가 없습니다
<%=objRs(0)%> "><%=objRs(3)%> <%=objRs(1)%> <%=left(objRs(5), 10)%> <%=objRs(4)%>
<% intTemp = Int((intNowPage - 1) / intBlockPage) * intBlockPage + 1 If intTemp = 1 Then Response.Write "[이전 " & intBlockPage & "개]" Else Response.Write"[이전 " & intBlockPage & "개]" End If intLoop = 1 Do Until intLoop > intBlockPage Or intTemp > intTotalPage If intTemp = CInt(intNowPage) Then Response.Write "" & intTemp &" " Else Response.Write"" & intTemp & " " End If intTemp = intTemp + 1 intLoop = intLoop + 1 Loop If intTemp > intTotalPage Then Response.Write "[다음 " &intBlockPage&"개]" Else Response.Write"[다음 " & intBlockPage & "개]" End If %>
<% If blnSearch Then %> 목록으로  <% End If %> 글쓰기