´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net)
ID¿Í Password¸¦ ÀÔ·ÂÇϼ¼¿ä.
ÀÔ±¹Çϱâ
|
¿µÁÖ±Ç ½Åû
¸öºÎ¸² °ñ¶ó°ñ¶ó
¼Ò±Ù¼Ò±Ù
µµ¶õµµ¶õ
³«¼¸¶´ç
Âø°¢ÇѾÆÀÌ
¼ýÀÚ¸ÂÃß±â
¼Ò¿øºô±â
ÈçÀû³²±â±â
²Þ¼Ó¿©Çà
Ä£±¸Áý ³î·¯°¡±â
¸ðµÎµå¸²´ÔÀÇ È¨
î¤éÞ´ÔÀÇ È¨
Çö¿ì´ÔÀÇ È¨
º°¾ÆÇØ´ÔÀÇ È¨
ÇÞ»ì´ÔÀÇ È¨
À̳ª´Ï´ÔÀÇ È¨
À¯¸®¾Ë´ÔÀÇ È¨
³È³ÈÀÌ´ÔÀÇ È¨
²ÀÁö´ÔÀÇ È¨
´ë¼º´ÔÀÇ È¨
¼öÁ¤ÇϽǶ§´Â ÇʼöÇ׸ñÀ» ¸ðµÎ ÀÔ·ÂÇÏ¼Å¾ß ÇÕ´Ï´Ù.
À̸§
*
°øÁö»çÇ×
ºñ°ø°³
HTML »ç¿ë
Á¦¸ñ
*
¼±ÅÃ
ÀÚÀÛ
»ç¶û
À¯¸Ó
ÀÚÀ¯
̵̧
¾Ë¸²
Áú¹®
±âŸ
³»¿ë
*
> > > Set DbRec1=Server.CreateObject("ADODB.RecordSet") > > DbRec1.Open "SELECT num,subject,ref,wdate,writer FROM board1 WHERE > step=0 ORDER BY wdate DESC", DbCon, 1 > > > > for j=1 to postcount > > number=DbRec1("num") <<<================================ > > > > 'Subject (Á¦¸ñ Ãâ·Â) ½ÃÀÛ > > > > subject=DbRec1("subject") > > > response.write "
" > > > response.write "
tb="&tb&"&code="&code&"&num="&num&"&ref="&ref&"&pa > ge="&page&"&startpage="&startpage&"&key="&key&"&na > ya_s="&naya_s&"&naya_heeya="&naya_heeya&"&naya_kor > ean="&naya_korean&" onMouseOver=""window.status= > ('°Ô½Ã¹° Àбâ "&subject&"'); return true;"">
" > > if len(subject) > 25 then > > subject=left(subject,26)&"..." > > response.write "
" > > response.write "
" > > end if > ----------------------------------------------------------- > > > number=DbRec1("num") > > ¸¦ > > num=DbRec1("num") > > À¸·Î ¹Ù²Ù¼¼¿ä... > > ³ª¸ÓÁö ref,wdateµîµµ ·¹Äڵ尪À» º¯¼ö¿¡ ÇÒ´çÇØÁֽñ¸¿ä... ----------------------------------------------------------- <% tb=Request("tb") 'ÀÌ ¹öÀüÀº tb°¡ Å×ÀÌºí ¸íÀÌ´Ù code=Request("code") 'ÀÌ ¹öÀüÀº ÄÚµå´Â ´ÙÁß°Ô½ÃÆÇ ÄÚµå '°øÁö»çÇ×µî °ü·Ã±Û Ãâ·ÂÇϱâ À§ÇÑ ·ÎÁ÷ ½ÃÀÛ....^^ Set DbRec1=Server.CreateObject("ADODB.RecordSet") 'DbRec1.Open "SELECT num,subject,ref,wdate FROM board1 WHERE step=0 ORDER BY wdate DESC", DbCon DbRec1.Open "SELECT num,subject,ref,wdate,writer FROM board1 WHERE step=0 ORDER BY wdate DESC", DbCon, 1 if Request.QueryString("page")="" then '³Ñ°Ü¹Þ´Â º¯¼ö´Â ÆäÀÌÁö °ª¸¸ page=1 startpage=1 else page=cint(Request("page")) startpage=int(page/setsize) if startpage=(page/setsize) then startpage=page-setsize + 1 else startpage=int(page/setsize)*setsize + 1 end if end if '/**********Ãß°¡ postcount=DbRec1.Recordcount if postcount > 10 then postcount=10 'ÆäÀÌÁö ¶óÀμö end if for j=1 to postcount 'number=DbRec1("num") num=DbRec1("num") 'Subject (Á¦¸ñ Ãâ·Â) ½ÃÀÛ subject=DbRec1("subject") response.write "
" response.write "
" if len(subject) > 25 then subject=left(subject,26)&"..." response.write "
" response.write "
" end if '°Ô½Ã¹° °ü·Ã±Û ref=DbRec1("ref") response.write "
" Response.Write " "&subject&" " response.write "
" if datediff("d",DbRec1("wdate"),now)=<5 then ' response.write "--" end if '±âÁ¸ ³¯Â¥ ¹æ½ÄµÎ ¿¡·¯ 'if left(now,10) = left(wdate,10) then ' 1ÀÏ ´ÜÀ§·Î ¿Ã¶ó¿Â¿¡ New Ç¥½ÃÇÒ ¶§ 'if datediff("d",wdate,now)=<1 then ' ' response.write "
" 'else ' response.write " " 'end if response.write " " DbRec1.MoveNext next DbRec1.Close %>