´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net) ÀÔ±¹Çϱâ | ¿µÁÖ±Ç ½Åû
  • ¸öºÎ¸² °ñ¶ó°ñ¶ó
  • ¼Ò±Ù¼Ò±Ù
  • µµ¶õµµ¶õ
  • ³«¼­¸¶´ç
  • Âø°¢ÇѾÆÀÌ
  • ¼ýÀÚ¸ÂÃß±â
  • ¼Ò¿øºô±â
  • ÈçÀû³²±â±â
  • ²Þ¼Ó¿©Çà
  • Ä£±¸Áý ³î·¯°¡±â
  • ¸ðµÎµå¸²´ÔÀÇ È¨
  • î¤éÞ´ÔÀÇ È¨
  • Çö¿ì´ÔÀÇ È¨
  • º°¾ÆÇØ´ÔÀÇ È¨
  • ÇÞ»ì´ÔÀÇ È¨
  • À̳ª´Ï´ÔÀÇ È¨
  • À¯¸®¾Ë´ÔÀÇ È¨
  • ³È³ÈÀÌ´ÔÀÇ È¨
  • ²ÀÁö´ÔÀÇ È¨
  • ´ë¼º´ÔÀÇ È¨
  • 俵ÀÌ / 2001-03-09 / ¿ÀÈÄ 5:26:34 / 203.255.3.190
    Á¶È¸¼ö : 150
    [Áú¹®] ¾î¶² ¹æ¹ýÀ¸·Î ÇØ°áÇØ¾ß ÇÒ±î¿ä...60
    > > > ¾î¶² °æ¿ì³Ä¸é ÀϹÝÀûÀÎ °Ë»ö½Ã¿¡´Â ¾Æ¹« ¹®Á¦°¡ ¾ø´Âµ¥,°¡²û °Ë»öÀ» ÇÒ¶§ board_num°ªÀÎ 1,2,3,4·Î Ãâ·ÂµÇ´Â°ÍÀÌ ¾Æ´Ï¶ó,board_numÀ¸·Î Ãâ·ÂµÇ´Â±º¿ä...
    > > > ¾îµð¿¡¼­ À߸øµÈ°ÍÀÎÁö,¾Ë°í ½Í½À´Ï´Ù.
    > > > ù¹ø° select menu¿¡ ÀÖ´Â ÀÛ¼ºÀϷδ °Ë»öÀÌ °¡´ÉÇѵ¥,Áï ¹øÈ£°ªÀÌ Á¤»óÀûÀ¸·Î(1,2,3,4,5)¿Í °°ÀÌ Ãâ·ÂµÇ´Âµ¥,ÀÛ¼ºÀڷδ board_numÀ¸·Î Ãâ·ÂµË´Ï´Ù. Ȥ½Ã ¸ô¶ó¼­ Á¦°¡ ¼Ò½º Àüü¸¦ ¿Ã¸³´Ï´Ù.È®ÀÎÁ» ºÎŹµå¸³´Ï´Ù.
    > > >
    > > > <!--#include file=include/dbopen.asp-->
    > > > <%
    > > > Const adOpenForwardOnly = 0
    > > > Const adOpenKeyset = 1
    > > > Const adOpenDynamic = 2
    > > > Const adOpenStatic = 3
    > > >
    > > > ' °Ë»ö°ú Á¤·ÄÀ» À§ÇØ QueryÀÛ¼º
    > > >
    > > > Dim page, sortfield, sortword, keyfield
    > > > Dim keyword, strSQL, DataExist
    > > >
    > > > page = Request("page")
    > > > sortfield = Request("sortfield")
    > > > sortword = Request("sortword")
    > > > keyfield = Request("keyfield")
    > > > keyword = Replace(trim(Request("keyword")),"'","'")
    > > >
    > > > if keyword = "" then ' ±â³É ¸®½ºÆ®¸¸ º¼ ¶§
    > > > strSQL = "SELECT * FROM bulletboard "
    > > > else ' °Ë»öÀÏ ¶§
    > > > '¸¸¾à¿¡ "Ç¥½Ã°¡ bulletboard"·Î ºÙ¾î ÀÖÀ» °æ¿ì ¿¡·¯°¡ ¹ß»ý
    > > > '¹Ýµå½Ã bulletboard "·Î Ç¥½Ã.....
    > > > strSQL = "SELECT * FROM bulletboard " & _
    > > > "WHERE " & keyfield & " LIKE '%" & keyword & "%'"
    > > > end if
    > > >
    > > > if sortfield = "" then '±âº»°ª
    > > > sortfield = "board_num"
    > > > sortword = "desc"
    > > > end if
    > > >
    > > > strSQL = strSQL & " ORDER BY " & sortfield
    > > > strSQL = strSQL & " "
    > > > strSQL = strSQL & sortword
    > > >
    > > > if sortfield <> "board_writer" then
    > > > strSQL = strSQL & ", board_step"
    > > > end if
    > > >
    > > > '¿©±â±îÁö QueryÀÛ¼º ³¡ ÁöÁ¤µÈ Query·Î °Ë»ö
    > > >
    > > > Set rs = Server.CreateObject("ADODB.Recordset")
    > > > 'rs.Open strSQL,Dbcon,adOpenKeyset
    > > > rs.Open strSQL,Dbcon,1,1
    > > >
    > > > '·¹Äڵ尡 Çϳªµµ ¾ø´Ù¸é
    > > > if rs.EOF or rs.BOF then
    > > > DataExist = False
    > > > else '·¹Äڵ尡 ÀÖ´Ù¸é
    > > > DataExist = True
    > > > end if
    > > >
    > > > %>
    > > >
    > > > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
    > > > <html>
    > > > <head>
    > > > <title>Notice °Ô½ÃÆÇ</title>
    > > > <link rel="stylesheet" href="include/style.css">
    > > >
    > > > </head>
    > > >
    > > > <body>
    > > > <table border="0" width="100%">
    > > > <tr>
    > > > <td align="center">
    > > > <%
    > > >
    > > > if DataExist = True then
    > > >
    > > > Dim totalRecord, cPage, lastpg, RowCount
    > > >
    > > > rs.PageSize = 10
    > > >
    > > > '·¹ÄÚµåÀÇ °¹¼ö
    > > > totalRecord = rs.RecordCount
    > > >
    > > > if page = "" or page < 1 Then
    > > > page = 1
    > > > end if
    > > >
    > > > cPage = page
    > > >
    > > > rs.AbsolutePage = cPage
    > > >
    > > > lastpg = int(((totalRecord - 1) / rs.PageSize) + 1)
    > > >
    > > > if page > lastpg then
    > > > page = lastpg
    > > > end if
    > > >
    > > > RowCount = rs.PageSize
    > > >
    > > > ' Á¤·Ä°ú °Ë»öÀ» À§ÇÑ ÀÔ·Ââ
    > > >
    > > > %>
    > > > <table width=600 border="0" cellpadding="0" cellspacing="1">
    > > > <form name="form1" method="post" action="notice.asp">
    > > > <tr>
    > > > <td width="180" align="right" class=fonta>
    > > > <select name="sortfield" size="1" class=select>
    > > > <%
    > > > if sortfield = "board_writer" then
    > > > %>
    > > > <option value="board_num">ÀÛ¼ºÀÏ</option>
    > > > <option selected value="board_writer">ÀÛ¼ºÀÚ</option>
    > > > <%
    > > > else
    > > > %>
    > > > <option selected value="board_num">ÀÛ¼ºÀÏ</option>
    > > > <option value="board_writer">ÀÛ¼ºÀÚ</option>
    > > > <%
    > > > end if
    > > > %>
    > > > </select>
    > > >
    > > > <select name="sortword" size="1" class=select>
    > > > <%
    > > > if sortword = "desc" then
    > > > %>
    > > > <option value="asc">¿À¸§Â÷¼ø</option>
    > > > <option selected value="desc">³»¸²Â÷¼ø</option>
    > > > <%
    > > > else
    > > > %>
    > > > <option selected value="asc">¿À¸§Â÷¼ø</option>
    > > > <option value="desc">³»¸²Â÷¼ø</option>
    > > > <%
    > > > end if
    > > > %>
    > > > </select>
    > > > </td>
    > > > <td width="300" align="right" class=fonta>
    > > > <select name="keyfield" size="1" class=select>
    > > > <%
    > > > if keyfield = "board_writer" then
    > > > %>
    > > > <option value="board_title">Á¦¸ñ</option>
    > > > <option value="board_memo">³»¿ë</option>
    > > > <option selected value="board_writer">ÀÛ¼ºÀÚ</option>
    > > > <%
    > > > else
    > > > if keyfield = "board_memo" then
    > > > %>
    > > > <option value="board_title">Á¦¸ñ</option>
    > > > <option selected value="board_memo">³»¿ë</option>
    > > > <option value="board_writer">ÀÛ¼ºÀÚ</option>
    > > > <%
    > > > else
    > > > %>
    > > > <option selected value="board_title">Á¦¸ñ</option>
    > > > <option value="board_memo">³»¿ë</option>
    > > > <option value="board_writer">ÀÛ¼ºÀÚ</option>
    > > > <%
    > > > end if
    > > > end if
    > > > %>
    > > > </select>
    > > >
    > > > <input type="text" name="keyword" maxlength="20"
    > > > size="20" class=input value=<%= keyword %>>
    > > >
    > > > <input type="image" value="search" name="search" src="images/search3.gif" align="middle" onclick=send(this.form)>
    > > > <!--
    > > > <input type="submit" value="°Ë»ö">
    > > > -->
    > > > </td>
    > > > <td width="120" align="right" class=fonta><font size="2">
    > > > ÆäÀÌÁö : <%= cPage %>/<%= lastpg %></font>
    > > > </td>
    > > > </tr>
    > > > </form>
    > > > </table>
    > > > </td>
    > > > </tr>
    > > > <tr>
    > > > <td align="center" class=fonta>
    > > > <table width=600 cellpadding="2" cellspacing="1" BGCOLOR="white">
    > > > <td width="70" bgcolor="#FF82C8" align="center" class=fonta>¹øÈ£</td>
    > > > <td width="390" bgcolor="#FF82C8" align="center" class=fonta>Á¦¸ñ</td>
    > > > <td width="70" bgcolor="#FF82C8" align="center" class=fonta>ÀÛ¼ºÀÚ</td>
    > > > <td width="50" bgcolor="#FF82C8" align="center" class=fonta>Á¶È¸</td>
    > > > <td width="75" bgcolor="#FF82C8" align="center" class=fonta>ÀÛ¼ºÀÏ</td>
    > > >
    > > >
    > > > <%
    > > > Dim board_no, board_num, board_step, board_id
    > > > Dim board_writer, board_email, board_homepage
    > > > Dim board_title, board_memo, board_count
    > > > Dim board_day, current_num, board_time
    > > >
    > > >
    > > > Do While Not RS.EOF and RowCount > 0
    > > >
    > > > board_no = rs("board_no")
    > > > board_num = rs("board_num")
    > > > board_step = rs("board_step")
    > > > board_id = trim(rs("board_id"))
    > > > board_writer = trim(rs("board_writer"))
    > > > board_email = trim(rs("board_email"))
    > > > board_homepage = trim(rs("board_homepage"))
    > > > board_title = trim(rs("board_title"))
    > > > board_memo = trim(rs("board_memo"))
    > > > board_count = rs("board_count")
    > > > board_day = trim(rs("board_day"))
    > > > board_time = trim(rs("board_time"))
    > > >
    > > > board_day = left(board_day,4) & "-" & Mid(board_day,5,2) & "-" & _
    > > > right(board_day,2)
    > > >
    > > > Response.Write "<tr height=22>"
    > > > Response.Write "<td bgcolor='#FFE8F5' align='center' class='fonta'>"
    > > >
    > > > if sortfield <> "board_writer" then
    > > > if current_num <> board_num then
    > > > Response.Write board_num
    > > > else
    > > > Response.Write " "
    > > > end if
    > > > else
    > > > if board_step = 0 then
    > > > Response.Write "board_num"
    > > > else
    > > > Response.Write " "
    > > > end if
    > > > end if
    > > > %>
    > > > </td>
    > > > <td width="390" align="left" bgcolor=#FFE8F5
    > > > onMouseOut="this.style.backgroundColor='#FFE8F5'"
    > > > onMouseOver="this.style.backgroundColor='D8E5FF'" class=fonta>
    > > > <%
    > > > if sortfield <> "board_writer" then
    > > > if board_step <> 0 then
    > > > 'Á¦¸ñÀÌ 28¹®ÀÚ±æÀ̺¸´Ù ±æ´Ù¸é
    > > >
    > > > if Len(board_title) >= 27 then
    > > > board_title = left(board_title, 26) & "..."
    > > > end if
    > > > %>
    > > > <a href="notice_read_dis.asp?board_no=<%=board_no%>&board_count=<%=board_count%>&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>" title='<%=board_num%>¹ø ±Û¿¡ ´ëÇÑ <%=board_writer%>´ÔÀÇ ´äº¯ ±Û'> <img src=images/red1.gif border=0 alt=<%=board_num%>¹ø ±ÛÀÇ ´äº¯> <%=board_title%></a>
    > > > <%
    > > > else
    > > > 'Á¦¸ñÀÌ 30¹®ÀÚ±æÀ̺¸´Ù ±æ´Ù¸é
    > > > if Len(board_title) >= 30 then
    > > > board_title = left(board_title, 29) & "..."
    > > > end if
    > > > %>
    > > > <a href="notice_read_dis.asp?board_no=<%=board_no%>&board_count=<%=board_count%>&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>" title='<%=board_writer%> ´ÔÀÇ ±Û'><%=board_title%></a>
    > > > <%
    > > > end if
    > > > else
    > > > if board_step <> 0 then
    > > > 'Á¦¸ñÀÌ 28¹®ÀÚ±æÀ̺¸´Ù ±æ´Ù¸é - ´äº¯½Ã¿¡ ó¸®...
    > > > if Len(board_title) >= 27 then
    > > > board_title = left(board_title, 26) & "..."
    > > > end if
    > > > %>
    > > > [<%=board_num%> <img src=images/red1.gif border=0 alt=´äº¯>]
    > > > <a href="notice_read_dis.asp?board_no=<%=board_no%>&board_count=<%=board_count%>&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>"><%=board_title%></a>
    > > > <%
    > > > else
    > > > 'Á¦¸ñÀÌ 30¹®ÀÚ±æÀ̺¸´Ù ±æ´Ù¸é
    > > > if Len(board_title) >= 30 then
    > > > board_title = left(board_title, 29) & "..."
    > > > end if
    > > > %>
    > > > <a href="notice_read_dis.asp?board_no=<%=board_no%>&board_count=<%=board_count%>&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>"><%=board_title%></a>
    > > > <%
    > > > end if
    > > > end if
    > > > %>
    > > > </span>
    > > > </td>
    > > > <td align="center" bgcolor="#FFE8F5"
    > > > onMouseOut="this.style.backgroundColor='#FFE8F5'"
    > > > onMouseOver="this.style.backgroundColor='D8E5FF'" class=fonta>
    > > > <%
    > > > if board_email <> "" then
    > > > Response.Write "<a href='mailto:" & board_email & "'>" & _
    > > > board_writer & "</a>"
    > > > else
    > > > Response.Write board_writer
    > > > end if
    > > > %>
    > > >
    > > > </td>
    > > > <td align="center" bgcolor="#FFE8F5" class=fonta><%=board_count%>
    > > > </td>
    > > > <td align="center" bgcolor="#FFE8F5" class=fonta><%=board_day%>
    > > > </td>
    > > > </tr>
    > > >
    > > > <%
    > > >
    > > > current_num = board_num
    > > > RowCount = RowCount - 1
    > > > rs.MoveNext
    > > > Loop
    > > >
    > > > rs.Close
    > > > DbCon.Close
    > > > set rs = nothing
    > > > %>
    > > > </table>
    > > > </td>
    > > > <tr>
    > > > <tr>
    > > > <td align="center" class=fonta>
    > > > <table border="0" width="600">
    > > > <tr>
    > > > <td align="center" width="600" class=fonta><B>
    > > > <%
    > > > ' µ¿ÆäÀÌÁö ¸¸µé±â
    > > >
    > > > Dim PageBlock, temp1, temp2, temp3, prev, post, pagelist
    > > >
    > > > PageBlock = 3
    > > >
    > > > temp1 = int(cPage/PageBlock)
    > > >
    > > > if (cPage mod PageBlock) = 0 then
    > > > temp1 = temp1 - 1
    > > > end if
    > > >
    > > > temp2 = temp1 * PageBlock
    > > >
    > > > temp3 = int(lastpg/PageBlock)
    > > >
    > > > if (lastpg mod PageBlock) = 0 then
    > > > temp3 = temp3 - 1
    > > > end if
    > > >
    > > > prev = temp2
    > > >
    > > > if prev > 0 then
    > > > %>
    > > > <A href=notice.asp?page=<%=prev%>&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>>¢¸</A>
    > > > <%
    > > > end if
    > > >
    > > > pagelist = temp2
    > > >
    > > > for i = 1 to PageBlock
    > > >
    > > > pagelist = temp2 + i
    > > >
    > > > if lastpg < pagelist then
    > > > exit for
    > > > end if
    > > >
    > > > if int(pagelist) <> int(cPage) then
    > > > %>
    > > > <A href=notice.asp?page=<%=pagelist%>&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>><%=pagelist%></A>
    > > > <%
    > > > else
    > > > %>
    > > > <%=pagelist%>
    > > > <%
    > > > end if
    > > > next
    > > >
    > > > post = temp2 + PageBlock + 1
    > > >
    > > > if temp1 < temp3 then
    > > > %>
    > > > <A href=notice.asp?page=<%=post%>&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>>¢º</A>
    > > > <%
    > > > end if
    > > > %>
    > > > </B>
    > > > </td>
    > > > </tr>
    > > > <tr>
    > > > <td align="center" class=fonta>
    > > > <%
    > > > ' ÀÌÀü ÆäÀÌÁö·Î À̵¿
    > > > if cPage > 1 Then
    > > > %>
    > > > <a href=notice.asp?page=<%=cPage-1%>&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>>ÀÌÀü</a>
    > > > <% end if %>
    > > >
    > > > <a href=notice.asp><img src=images/e1list.gif border=0 alt=¸®½ºÅ©Ç׸ñÀ¸·Î°¡±â></A>
    > > > <a href="notice_write_dis.asp?IsNew=New"><img src=images/e1write.gif border=0 alt=±ÛÀÔ·ÂÇϱâ></a>
    > > >
    > > > <%
    > > > ' ´ÙÀ½ÆäÀÌÁö·Î À̵¿
    > > > if lastpg - cPage > 0 Then
    > > > %>
    > > > <A href=notice.asp?page=<%=cPage+1%>&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>>´ÙÀ½</A>
    > > > <%
    > > > end if
    > > > %>
    > > > </td>
    > > > </tr>
    > > > </table>
    > > > <% else %>
    > > >
    > > > <table width=600 border="0" cellpadding="5">
    > > > <tr>
    > > > <td bgcolor="#FF82C8" align="center" class=fonta>
    > > > nayaBoard - noticeéÄ Á˼ÛÇÕ´Ï´Ù.<br>ÇöÀç °Ë»ö, µî·ÏµÈ ¹®¼­°¡ ¾ø½À´Ï´Ù.
    > > > ±ÛÀ» ÀÔ·ÂÇϼ¼¿ä
    > > > </td>
    > > > </tr>
    > > > </table>
    > > > </td>
    > > > </tr>
    > > > <tr>
    > > > <td align="center">
    > > > <table border="0" width="600">
    > > > <tr>
    > > > <td align="center" class=fonta>
    > > > <a href="notice.asp"><img src=images/e1list.gif border=0 alt=List¸ñ·ÏÀ¸·Î></a>
    > > > <a href="notice_write_dis.asp?IsNew=New"><img src=images/e1write.gif border=0 alt=±Û¾²±â></a>
    > > > </td>
    > > > </tr>
    > > > </table>
    > > > <%
    > > > rs.Close
    > > > DbCon.Close
    > > > set rs = nothing
    > > > set DbCon = nothing
    > > > end if
    > > > %>
    > > > </td>
    > > > </tr>
    > > > <tr>
    > > > <td><!--#include file=include/copyright.asp--></td>
    > > > </tr>
    > > > </table>
    > > > </body>
    > > > </html>
    > > >
    > > -----------------------------------------------------------
    > >
    > > if board_step = 0 then
    > > Response.Write "board_num"
    > >
    > > ÀÌ°Å ¶§¹®ÀΰŠ°°³×¿ä...
    > >
    > >
    > -----------------------------------------------------------
    >
    > ±× ¶óÀο¡ ÀúµÎ ÀÌ»óÇÏ´Ù,»ý°¢ÇÏ°í Àְŵç¿ä.±Ùµ¥ ¾Æ¹«¸® ºÁµµ ÇØ°á Ã¥ÀÌ ³ª¿ÀÁö ¾Ê´Â±º¿ä.
    > ±×·¸´Ù¸é,´Ù¸£°Ô ó¸® ÇÏ´Â ¹æ¹ýÀÌ ¾øÀ»°¡¿ä
    > ²À Á» ºÎŹµå¸³´Ï´Ù.
    >
    >
    -----------------------------------------------------------

    ÇØ´ç ¶óÀÎ À§ÂÊ¿¡ º¸½Ã¸é ´äÀÌ ³ª¿Í ÀÖ´Â°Í °°Àºµ¥¿ä....

    Byte * 200 Byte À̳»·Î ÀÔ·ÂÇϼ¼¿ä À̸§ : Æнº¿öµå :