´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net)
ID¿Í Password¸¦ ÀÔ·ÂÇϼ¼¿ä.
ÀÔ±¹Çϱâ
|
¿µÁÖ±Ç ½Åû
¸öºÎ¸² °ñ¶ó°ñ¶ó
¼Ò±Ù¼Ò±Ù
µµ¶õµµ¶õ
³«¼¸¶´ç
Âø°¢ÇѾÆÀÌ
¼ýÀÚ¸ÂÃß±â
¼Ò¿øºô±â
ÈçÀû³²±â±â
²Þ¼Ó¿©Çà
Ä£±¸Áý ³î·¯°¡±â
¸ðµÎµå¸²´ÔÀÇ È¨
î¤éÞ´ÔÀÇ È¨
Çö¿ì´ÔÀÇ È¨
º°¾ÆÇØ´ÔÀÇ È¨
ÇÞ»ì´ÔÀÇ È¨
À̳ª´Ï´ÔÀÇ È¨
À¯¸®¾Ë´ÔÀÇ È¨
³È³ÈÀÌ´ÔÀÇ È¨
²ÀÁö´ÔÀÇ È¨
´ë¼º´ÔÀÇ È¨
¼öÁ¤ÇϽǶ§´Â ÇʼöÇ׸ñÀ» ¸ðµÎ ÀÔ·ÂÇÏ¼Å¾ß ÇÕ´Ï´Ù.
À̸§
*
°øÁö»çÇ×
ºñ°ø°³
HTML »ç¿ë
Á¦¸ñ
*
¼±ÅÃ
ÀÚÀÛ
»ç¶û
À¯¸Ó
ÀÚÀ¯
̵̧
¾Ë¸²
Áú¹®
±âŸ
³»¿ë
*
> ¾î¶² °æ¿ì³Ä¸é ÀϹÝÀûÀÎ °Ë»ö½Ã¿¡´Â ¾Æ¹« ¹®Á¦°¡ ¾ø´Âµ¥,°¡²û °Ë»öÀ» ÇÒ¶§ board_num°ªÀÎ 1,2,3,4·Î Ãâ·ÂµÇ´Â°ÍÀÌ ¾Æ´Ï¶ó,board_numÀ¸·Î Ãâ·ÂµÇ´Â±º¿ä... > ¾îµð¿¡¼ À߸øµÈ°ÍÀÎÁö,¾Ë°í ½Í½À´Ï´Ù. > ù¹ø° select menu¿¡ ÀÖ´Â ÀÛ¼ºÀϷδ °Ë»öÀÌ °¡´ÉÇѵ¥,Áï ¹øÈ£°ªÀÌ Á¤»óÀûÀ¸·Î(1,2,3,4,5)¿Í °°ÀÌ Ãâ·ÂµÇ´Âµ¥,ÀÛ¼ºÀڷδ board_numÀ¸·Î Ãâ·ÂµË´Ï´Ù. Ȥ½Ã ¸ô¶ó¼ Á¦°¡ ¼Ò½º Àüü¸¦ ¿Ã¸³´Ï´Ù.È®ÀÎÁ» ºÎŹµå¸³´Ï´Ù. > > > <% > 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 > > %> > > > > >
Notice °Ô½ÃÆÇ
>
> > > > >
>
>
> <% > > 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 > > ' Á¤·Ä°ú °Ë»öÀ» À§ÇÑ ÀÔ·Ââ > > %> >
>
>
>
>
> <% > if sortfield = "board_writer" then > %> >
ÀÛ¼ºÀÏ
>
ÀÛ¼ºÀÚ
> <% > else > %> >
ÀÛ¼ºÀÏ
>
ÀÛ¼ºÀÚ
> <% > end if > %> >
> >
> <% > if sortword = "desc" then > %> >
¿À¸§Â÷¼ø
>
³»¸²Â÷¼ø
> <% > else > %> >
¿À¸§Â÷¼ø
>
³»¸²Â÷¼ø
> <% > end if > %> >
>
>
>
> <% > if keyfield = "board_writer" then > %> >
Á¦¸ñ
>
³»¿ë
>
ÀÛ¼ºÀÚ
> <% > else > if keyfield = "board_memo" then > %> >
Á¦¸ñ
>
³»¿ë
>
ÀÛ¼ºÀÚ
> <% > else > %> >
Á¦¸ñ
>
³»¿ë
>
ÀÛ¼ºÀÚ
> <% > end if > end if > %> >
> >
size="20" class=input value=<%= keyword %>> > >
> >
>
> ÆäÀÌÁö : <%= cPage %>/<%= lastpg %>
>
>
>
>
>
>
>
>
>
>
¹øÈ£
>
Á¦¸ñ
>
ÀÛ¼ºÀÚ
>
Á¶È¸
>
ÀÛ¼ºÀÏ
> > > <% > 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 "
" > Response.Write "
" > > 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 > %> >
>
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 > %> >
¹ø ±ÛÀÇ ´äº¯> <%=board_title%>
> <% > else > 'Á¦¸ñÀÌ 30¹®ÀÚ±æÀ̺¸´Ù ±æ´Ù¸é > if Len(board_title) >= 30 then > board_title = left(board_title, 29) & "..." > end if > %> >
<%=board_title%>
> <% > 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%>
] >
<%=board_title%>
> <% > else > 'Á¦¸ñÀÌ 30¹®ÀÚ±æÀ̺¸´Ù ±æ´Ù¸é > if Len(board_title) >= 30 then > board_title = left(board_title, 29) & "..." > end if > %> >
<%=board_title%>
> <% > end if > end if > %> > >
>
onMouseOut="this.style.backgroundColor='#FFE8F5'" > onMouseOver="this.style.backgroundColor='D8E5FF'" class=fonta> > <% > if board_email <> "" then > Response.Write "
" & _ > board_writer & "
" > else > Response.Write board_writer > end if > %> > >
>
<%=board_count%> >
>
<%=board_day%> >
>
> > <% > > current_num = board_num > RowCount = RowCount - 1 > rs.MoveNext > Loop > > rs.Close > DbCon.Close > set rs = nothing > %> >
>
>
>
>
>
>
>
> <% > ' µ¿ÆäÀÌÁö ¸¸µé±â > > 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 > %> >
&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>>¢¸
> <% > 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 > %> >
&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>><%=pagelist%>
> <% > else > %> > <%=pagelist%> > <% > end if > next > > post = temp2 + PageBlock + 1 > > if temp1 < temp3 then > %> >
&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>>¢º
> <% > end if > %> >
>
>
>
>
> <% > ' ÀÌÀü ÆäÀÌÁö·Î À̵¿ > if cPage > 1 Then > %> >
&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>>ÀÌÀü
> <% end if %> > >
>
> > <% > ' ´ÙÀ½ÆäÀÌÁö·Î À̵¿ > if lastpg - cPage > 0 Then > %> >
&keyfield=<%=keyfield%>&keyword=<%=keyword%>&sortfield=<%=sortfield%>&sortword=<%=sortword%>>´ÙÀ½
> <% > end if > %> >
>
>
> <% else %> > >
>
>
> nayaBoard - noticeéÄ Á˼ÛÇÕ´Ï´Ù.
ÇöÀç °Ë»ö, µî·ÏµÈ ¹®¼°¡ ¾ø½À´Ï´Ù. > ±ÛÀ» ÀÔ·ÂÇϼ¼¿ä >
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> <% > rs.Close > DbCon.Close > set rs = nothing > set DbCon = nothing > end if > %> >
>
>
>
>
>
> > > ----------------------------------------------------------- if board_step = 0 then Response.Write "board_num" ÀÌ°Å ¶§¹®ÀΰŠ°°³×¿ä...
Ãß°¡ÇÒ À̹ÌÁö¸¦ ÀÔ·ÂÇϼ¼¿ä.
À̹ÌÁö 1
À̹ÌÁö¼³¸í 1
Ãß°¡ÇÒ ÀڷḦ ÀÔ·ÂÇϼ¼¿ä.
ÀÚ·á 1
ÀÚ·á¼³¸í 1
Ãß°¡ÇÒ ½ÎÀÌÆ®¸¦ ÀÔ·ÂÇϼ¼¿ä.
°ü·Ã½ÎÀÌÆ® 1
½ÎÀÌÆ®¼³¸í 1
Password
*