<%@ LANGUAGE = "VBSCRIPT" %>
<%
'//***********************************************************************************************//
'// 보이고자 하는 페이지 번호를 받는다.
CurPage = Request.QueryString("page")
'//***********************************************************************************************//
'// DB 연결 설정
Set DbCon = Server.CreateObject("ADODB.Connection")
DbCon.Open("DSN=AllTrust; UID=in; PWD=ter")
Set DbRec = Server.CreateObject("ADODB.Recordset")
DbRec.CursorType = 1
DbRec.Open "Select * From Bulletin Order By Number", DbCon
'//***********************************************************************************************//
'// 페이지 처리
ItemPerPage = 10
CountNum = cint(DbRec.Recordcount)
PageNum = int(CountNum / ItemPerPage)
PageNum = cint(PageNum)
If (PageNum * ItemPerPage) <> CountNum Then
PageNum = (PageNum + 1)
ExtraNum = cint(CountNum Mod ItemPerPage)
Else
ExtraNum = cint(0)
End If
If CurPage = "" Then
CurPage = 1
End If
CurPage = cint(CurPage)
NextPage = CurPage + 1
If NextPage >= PageNum Then
NextPage = PageNum
End If
PrevPage = CurPage - 1
If PrevPage <= 0 Then
PrevPage = 1
End If
If CountNum <> 0 Then
If CountNum <= ItemPerPage Then
DbRec.MoveLast
LoopCount = CountNum
Else
If ExtraNum = 0 Then
If CurPage = PageNum Then
DbRec.MoveLast
LoopCount = ItemPerPage
For i = 1 To (ItemPerPage * (CurPage - 1))
DbRec.MovePrevious
Next
Else
DbRec.MoveLast
LoopCount = ItemPerPage
For i = 1 To (ItemPerPage * (CurPage - 1))
DbRec.MovePrevious
Next
End If
Else
If CurPage = PageNum Then
DbRec.MoveLast
LoopCount = ExtraNum
For i = 1 To (ItemPerPage * (CurPage - 1))
DbRec.MovePrevious
Next
Else
DbRec.MoveLast
LoopCount = ItemPerPage
For i = 1 To (ItemPerPage * (CurPage - 1))
DbRec.MovePrevious
Next
End If
End If
End If
End If
%>
게시판 메인
<% If CountNum = 0 Then %>
입력된 글이 한 건도 없습니다. 새 글을 쓰시려면 좌측의 [글쓰기] 아이콘이나 여기를 누르세요.
<% Else %>
총 <%= PageNum %>페이지 중<%= CurPage %> 페이지
번호
날짜
제 목
작성자
조회수
<%
For i = 1 to LoopCount
eMailAdd = Trim(DbRec("Email"))
Reading = DbRec("Reading")
If Reading < 50 Then
%>
<% If cint(Year(Date())) = cint(DbRec("CurrYY")) AND cint(Month(Date())) = cint(DbRec("CurrMM")) AND cint(Day(Date())) = cint(DbRec("CurrDD")) Then %><%= DbRec("Number") %><% Else %><%= DbRec("Number") %><% End If %>
<% If cint(Year(Date())) = cint(DbRec("CurrYY")) AND cint(Month(Date())) = cint(DbRec("CurrMM")) AND cint(Day(Date())) = cint(DbRec("CurrDD")) Then %><%= DbRec("Number") %><% Else %><%= DbRec("Number") %><% End If %>
<% If cint(Year(Date())) = cint(DbRec("CurrYY")) AND cint(Month(Date())) = cint(DbRec("CurrMM")) AND cint(Day(Date())) = cint(DbRec("CurrDD")) Then %><%= DbRec("Number") %><% Else %><%= DbRec("Number") %><% End If %>
