ACTIVE SERVER PAGE

ACTIVE SERVER PAGE > 리스트 보기

등록일 : 2017-07-03 20:11 조회수 : 35,253

	
		CREATE TABLE [dbo].[board1] (
			[board_idx] [int] IDENTITY (1, 1) NOT NULL ,
			[name] [varchar] (40) COLLATE Korean_Wansung_CI_AS NOT NULL ,
			[email] [varchar] (50) COLLATE Korean_Wansung_CI_AS NULL ,
			[homepage] [varchar] (50) COLLATE Korean_Wansung_CI_AS NULL ,
			[title] [varchar] (100) COLLATE Korean_Wansung_CI_AS NOT NULL ,
			[pwd] [varchar] (20) COLLATE Korean_Wansung_CI_AS NOT NULL ,
			[num] [int] NOT NULL ,
			[writeday] [varchar] (30) COLLATE Korean_Wansung_CI_AS NOT NULL ,
			[readnum] [smallint] NOT NULL ,
			[tag] [varchar] (5) COLLATE Korean_Wansung_CI_AS NULL ,
			[ref] [smallint] NOT NULL ,
			[re_step] [smallint] NOT NULL ,
			[re_level] [smallint] NOT NULL ,
			[ip_addr] [varchar] (20) COLLATE Korean_Wansung_CI_AS NOT NULL ,
			[content] [text] COLLATE Korean_Wansung_CI_AS NOT NULL 
		) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
		GO

<%
Option Explicit
'====================================='
' 프로젝트명 : ankyu.pe.kr
' 목          적 : 게시판
' 날          짜 : 2001/03/15 ~2001/03/31
' 프로그래머 : 최 안 규
' 이메일주소 : cak0280@skylla.co.kr
'====================================='

'===================================='
' 클라언트 캐쉬 방지
'====================================='
response.expires = -1
response.AddHeader "Pragma", "no-cache"
response.AddHeader "cache-control", "no-store"
response.buffer=true

'====================================='
' Declare Variable
'====================================='
' General
   Dim strSql     ' 쿼리
   Dim objCnn       ' Connection 객체
   Dim objRs

   Dim currentpage ' 현재 페이지
   Dim recordCount ' 레코드 갯수

   Dim pagesize     ' 페이지 크기
   Dim pagecount    ' 페이지 갯수

   Dim choice       ' 한 블럭 수
   Dim Tot_block    ' 전체 블럭 수
   Dim now_Block    ' 현재 블럭

' Temp
   Dim Title        ' 제목
   Dim i
   Dim j

'====================================='
' Get Request
'====================================='
   pagesize=10
   choice=10

   if request("currentpage")="" then
      currentpage=1
   else
      currentpage=request("currentpage")
   end if

   if request("now_block")="" then
      now_block=0
   else
      now_block=request("now_block")
   end if

'====================================='
' DB Connection
'====================================='

   Set objCnn = Server.CreateObject("ADODB.Connection")
   objCnn.Open("dsn=test;uid=sa;pwd=")

   strSql="SELECT COUNT(BOARD_IDX) FROM BOARD1"
   set objRs=ObjCnn.Execute(strSql)

   recordCount = objRs(0)
   pagecount = int((recordCount-1)/pagesize)+1


   StrSql="SELECT * From "
   StrSql=strSql+"( SELECT Top " & pagesize & " * FROM "
   StrSql=strSql+"        ( Select Top " & currentpage*pagesize&" * From Board1 "
   StrSql=strSql+" ORDER BY ref desc, re_step asc) a ORDER BY ref asc, re_step "
   StrSql=strSql+" desc) a "
   StrSql=strSql+" ORDER BY ref desc, re_step asc"
   set objRs=objCnn.Execute(strSql)

%>

<table width=90%>
<tr align="center">
    <td align='center'> 방 명 록 </td>
</tr>
</table>

<table width=90%>
<tr>
    <td align='right'>[<a href='./write.asp'>글쓰기</a>] </td>
</tr>
</table>

<TABLE width=90%>
<tr>
    <td></td>
    <td width="49%">제 목</td>
    <td width="15%">글쓴이</td>
    <td width="15%">날 짜</td>
    <td width="12%">조 회</td>
</tr>

<%
if objRs.BOF or objRs.EOF then
%>
<tr>
    <td align=center colspan=5>입력된 데이타가 없습니다.</td>
</tr>
<%
objCnn.Close
Set objCnn = Nothing
response.end
end if

Do until objRs.EOF
%>
<tr>
    <td>
       <% if DateDiff("h",objRs("writeday"),Now()) < 22 then %>
         <img src="images/dot.gif" WIDTH="16" HEIGHT="15">
       <% else %>

       <% end if %>
    </td>
    <td width="49%">
       <%
         if objRs("re_level") > 0 then
       %>
        <img src="images/level.gif" width='<%=7*objRs("re_level")%>' height="20">
        <img src="images/re.gif" width="26" height="16">
       <%
           end if
       %>
        <a href="content.asp?idx=<%=objRs("num")%>">
       <%=objRs("title")%>
    </td>
    <td width="15%">
      <a href="mailto:<%=objRs("email")%>"><%=objRs("name")%></a></td>
    <td width="15%"> <%=objRs("writeday")%></td>
    <td width="12%"> <%=objRs("readnum")%></td>
</tr>
<%
objrs.MoveNext
loop
%>
</table>

<%

tot_block=int(pagecount / choice)

if tot_block = (pagecount / choice) then
    tot_block=tot_block-1
end if
%>
<%
if Cint(now_block)>0 then
%>
[<a href='list.asp?currentpage=<%=currentpage%>&now_block=<%=now_block-1%>'>이전<%=choice%>개</a>]
<%
end if
%>

<%
if currentpage <> 1 then
%>
[<a href="list.asp?currentpage=<%=currentpage-1%>&now_block=<%=now_block%>">이전</a>]
<%
end if
%>

<%
if Cint(tot_block) <> Cint(now_block) then
    for i=1 to choice

       if cint(now_block*choice)+i=cint(currentpage) then
           response.write "["&(cint(now_block*choice) + i)&"]"
       else
%>
       [<a href='list.asp?currentpage=<%=(int(now_block*choice) + i)%>&now_block=<%=now_block%>'><%=(int(now_block*choice) + i)%></a>]</font>
<%
       end if
    next

else
    if (pagecount mod choice)=0 then
j=10
    else
j=(pagecount mod choice)
    end if

    for i = 1 to j
       if cint(nowblock*mychoice)+i=cint(page) then
           response.write "["&(cint(now_block*choice) + i)&"]"
       else
%>
       [<a href='list.asp?currentpage=<%=(int(now_block*choice) + i)%>&now_block=
                     <%=now_block%>'><%=(int(now_block*choice) + i)%></a>]</font>
<%
       end if
    next
end if
%>
<%
if Cint(currentpage) <> Cint(pagecount) then
%>
      [<a href="list.asp?currentpage=<%=currentpage+1%>&now_block=<%=now_block%>">다음</a>]
<%
   end if

   if (Cint(tot_block) > 0) and (Cint(now_block) < Cint(tot_block)) then
%>
      [<a href='list.asp?currentpage=<%=currentpage%>&now_block=<%=now_block+1%>'> 다음<%=choice%>개</a>]</font>
<%
   end if
%>
             <font size="2">[<%=currentpage%>/<%=pagecount%>]
<%
   objCnn.Close
   Set objCnn = Nothing
%>

위 소스는 실제 저의 게시판에서 사용되는 소스 입니다.

테스트 해 보시길 바랍니다.

만약 질문 사항이 있으시면 게시판을 이용해 주세요.....

그럼,,,,,

목록으로