´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(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
*