|
 |
<%
'°Ô½Ã¹°ÀÇ Á¦¸ñÀÇ ±æÀ̸¦ üũÇϱâ À§ÇÑ ÇÔ¼ö ÀÔ´Ï´Ù.
Function LenSubject(str)
if isNULL(str) Then
LenSubject = 0
Exit Function
End if
ns = len(str)
t = 0
for si = 1 to ns
s = mid(str, si, 1)
a = asc(s)
if ((a > 0) and (a < 127)) then
t = t + 1
else
t = t + 2
end if
next
LenSubject = t
End Function
%>
<%
'ÀÌÁ¦ ½ÇÁ¦ÀûÀ¸·Î °Ô½ÃÆÇÀÇ DB¸¦ »Ì¾Æ ¿É´Ï´Ù. top À̶õ °ª ´ÙÀ½¿¡ ¼ýÀÚ "6"Àº ÃÖ±Ù±ÛÀ» 6°³ »Ì¾Æ ¿Â´Ù´Â ¸»ÀÔ´Ï´Ù.
' "mb_notice" ¶õ°Ç °Ô½ÃÆÇÀÇ Å×À̺í À̸§ÀÔ´Ï´Ù. ¾î! ±×·±µ¥ ¿Ö ¾Õ¿¡ "mb_" °¡ ºÙÁö? ¶õ Áú¹®À» ÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù. ¸ÅÁ÷º¸µå¿¡¼´Â °Ô½ÃÆÇ »ý¼º½Ã "mb_" + °Ô½ÃÆÇ ID·Î Å×À̺íÀ» ¸¸µç´ä´Ï´Ù.^^;
' "order by num desc" ºÎºÐÀº numÀ̶õ Ä÷³À» ±âÁØÀ¸·Î num °ªÀÌ Å«°ÍºÎÅÍ ºÒ·¯ ¿À¶ó°í ¸í·ÉÀ» Çϱâ À§ÇØ ½á ÁØ ºÎºÐÀÔ´Ï´Ù. ±×·¸´Ù¸é ÀÛÀº °ªºÎÅÍ ºÎ¸£°í ½Í´Ù¸é ¾î¶»°Ô ÇÒ±î¿ä? ´äÀº... "order by num asc" ÀÔ´Ï´ç.
sql = "select top 3 * from mbb_notice_christmasinlove order by idx_num desc"
' rs ¶õ º¯¼ö¿¡ ºÒ·¯¿Â DBÀÇ °ªÀ» ÀúÀå ÇÕ´Ï´Ù.
set rs = DBCon.Execute(sql)
' DBÀÇ °ªÀÌ Ã³À½ºÎÅÍ µ¹·Á¼ ³¡±îÁö ½ÇÇàÀ» Ç϶ó´Â ¸í·ÉÀÔ´Ï´Ù.
while not(rs.eof)
' num ¶õ º¯¼öÀÇ ÀÏ·Ã ¹øÈ£°ª ÀúÀå.
num = rs("idx_num")
' subject ¶õ º¯¼ö¿¡ Á¦¸ñÀ» ÀúÀå.
subject = rs("b_subject")
' ÀÌ ºÎºÐÀº Á¦¸ñÀÇ ±æÀ̰¡ ƯÁ¤ ±æÀÌ ¸¸Å º¸´Ù ±æ °æ¿ì¿¡ 󸮸¦ ÇÏ´Â ºÎºÐÀÔ´Ï´Ù. ¸Ç À§¿¡ ÇÔ¼ö¸¦ »ç¿ëÇØ¼ °Ô½Ã±ÛÀÇ ±æÀ̸¦ üũÇÑ ´ÙÀ½¿¡ ¿øÇÏ´Â ¸¸Å Àß¶ó¼ º¸¿© ÁÝ´Ï´Ù. ¿©±â¿¡¼± °Ô½Ã±ÛÀÇ Á¦¸ñÀÌ "16" ±ÛÀÚº¸´Ù Å©´Ù¸é Á¦¸ñÀÇ 14±ÛÀÚ + ".." ·Î Ç¥½Ã¸¦ ÇØ¶ó ÇÏ°í ¸í·ÉÀ» ÇÑ °ÍÀÔ´Ï´Ù.
if int(LenSubject(subject)) > 20 then
subject = left(subject, 18) & ".."
end if
' reg_date ¶õ º¯¼ö¿¡ °Ô½Ã±ÛÀ» ÀÛ¼ºÇÑ ÀÏÀÚ¸¦ ÀúÀåÇÕ´Ï´Ù.
reg_date = rs("b_reg_date")
' 24½Ã°£À» ±âÁØÀ¸·Î 24½Ã°£ÀÌ Áö³ªÁö ¾ÊÀº ±Û¿¡ ´ëÇØ¼± "new_icon.gif" ÀÇ À̹ÌÁö¸¦ Ãâ·ÂÇϸç, 24½Ã°£ÀÌ Áö³ªÁö ¾ÊÀº ±Û¿¡ ´ëÇØ¼± ¾Æ¹«·± Ãâ·ÂÀÌ ¾øµµ·Ï view_icon À̶õ º¯¼ö¿¡ À̹ÌÁö Ãâ·Â Åױ׸¦ ÀúÀåÇÕ´Ï´Ù.
if datediff("h",reg_date,now) < 24 then
view_icon = " "
Else
view_icon = ""
end if
' ÀÌ·¸°Ô ¿©·¯°¡Áö º¯¼ö¿¡ ÀúÀåÀ» Çß½À´Ï´Ù.
' num : °Ô½Ã±ÛÀÇ °íÀ¯ ¹øÈ£
' subject : °Ô½Ã±ÛÀÇ Á¦¸ñ
' reg_date : °Ô½Ã±ÛÀÇ µî·ÏÀÏÀÚ
' view_icon : "new_icon.gif" Ãâ·Â Å×±×
' ÀÌÁ¦ ÀÌ °ªµéÀ» °¡Áö°í Ãâ·Â °ú ¸µÅ©¸¦ ÇØ º¾½Ã´Ù.
%>
|

|
<%=subject%> <%=view_icon%><%=reg_date%>
|
|
|
<%
' ´ÙÀ½ °ªÀ¸·Î ³Ñ±é´Ï´Ù.
rs.movenext
' ºÒ·¯¿Â DB°¡ ³¡³¯¶§±îÁö ¹Ýº¹ÇÕ´Ï´Ù.
wend
%>
|
<%
'°Ô½Ã¹°ÀÇ Á¦¸ñÀÇ ±æÀ̸¦ üũÇϱâ À§ÇÑ ÇÔ¼ö ÀÔ´Ï´Ù.
Function LenSubject(str)
if isNULL(str) Then
LenSubject = 0
Exit Function
End if
ns = len(str)
t = 0
for si = 1 to ns
s = mid(str, si, 1)
a = asc(s)
if ((a > 0) and (a < 127)) then
t = t + 1
else
t = t + 2
end if
next
LenSubject = t
End Function
%>
<%
'ÀÌÁ¦ ½ÇÁ¦ÀûÀ¸·Î °Ô½ÃÆÇÀÇ DB¸¦ »Ì¾Æ ¿É´Ï´Ù. top À̶õ °ª ´ÙÀ½¿¡ ¼ýÀÚ "6"Àº ÃÖ±Ù±ÛÀ» 6°³ »Ì¾Æ ¿Â´Ù´Â ¸»ÀÔ´Ï´Ù.
' "mb_notice" ¶õ°Ç °Ô½ÃÆÇÀÇ Å×À̺í À̸§ÀÔ´Ï´Ù. ¾î! ±×·±µ¥ ¿Ö ¾Õ¿¡ "mb_" °¡ ºÙÁö? ¶õ Áú¹®À» ÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù. ¸ÅÁ÷º¸µå¿¡¼´Â °Ô½ÃÆÇ »ý¼º½Ã "mb_" + °Ô½ÃÆÇ ID·Î Å×À̺íÀ» ¸¸µç´ä´Ï´Ù.^^;
' "order by num desc" ºÎºÐÀº numÀ̶õ Ä÷³À» ±âÁØÀ¸·Î num °ªÀÌ Å«°ÍºÎÅÍ ºÒ·¯ ¿À¶ó°í ¸í·ÉÀ» Çϱâ À§ÇØ ½á ÁØ ºÎºÐÀÔ´Ï´Ù. ±×·¸´Ù¸é ÀÛÀº °ªºÎÅÍ ºÎ¸£°í ½Í´Ù¸é ¾î¶»°Ô ÇÒ±î¿ä? ´äÀº... "order by num asc" ÀÔ´Ï´ç.
sql = "select top 3 * from mbb_comment_christmasinlove order by idx_num desc"
' rs ¶õ º¯¼ö¿¡ ºÒ·¯¿Â DBÀÇ °ªÀ» ÀúÀå ÇÕ´Ï´Ù.
set rs = DBCon.Execute(sql)
' DBÀÇ °ªÀÌ Ã³À½ºÎÅÍ µ¹·Á¼ ³¡±îÁö ½ÇÇàÀ» Ç϶ó´Â ¸í·ÉÀÔ´Ï´Ù.
while not(rs.eof)
' num ¶õ º¯¼öÀÇ ÀÏ·Ã ¹øÈ£°ª ÀúÀå.
num = rs("idx_num")
' subject ¶õ º¯¼ö¿¡ Á¦¸ñÀ» ÀúÀå.
subject = rs("b_subject")
' ÀÌ ºÎºÐÀº Á¦¸ñÀÇ ±æÀ̰¡ ƯÁ¤ ±æÀÌ ¸¸Å º¸´Ù ±æ °æ¿ì¿¡ 󸮸¦ ÇÏ´Â ºÎºÐÀÔ´Ï´Ù. ¸Ç À§¿¡ ÇÔ¼ö¸¦ »ç¿ëÇØ¼ °Ô½Ã±ÛÀÇ ±æÀ̸¦ üũÇÑ ´ÙÀ½¿¡ ¿øÇÏ´Â ¸¸Å Àß¶ó¼ º¸¿© ÁÝ´Ï´Ù. ¿©±â¿¡¼± °Ô½Ã±ÛÀÇ Á¦¸ñÀÌ "16" ±ÛÀÚº¸´Ù Å©´Ù¸é Á¦¸ñÀÇ 14±ÛÀÚ + ".." ·Î Ç¥½Ã¸¦ ÇØ¶ó ÇÏ°í ¸í·ÉÀ» ÇÑ °ÍÀÔ´Ï´Ù.
if int(LenSubject(subject)) > 20 then
subject = left(subject, 18) & ".."
end if
' reg_date ¶õ º¯¼ö¿¡ °Ô½Ã±ÛÀ» ÀÛ¼ºÇÑ ÀÏÀÚ¸¦ ÀúÀåÇÕ´Ï´Ù.
reg_date = rs("b_reg_date")
' 24½Ã°£À» ±âÁØÀ¸·Î 24½Ã°£ÀÌ Áö³ªÁö ¾ÊÀº ±Û¿¡ ´ëÇØ¼± "new_icon.gif" ÀÇ À̹ÌÁö¸¦ Ãâ·ÂÇϸç, 24½Ã°£ÀÌ Áö³ªÁö ¾ÊÀº ±Û¿¡ ´ëÇØ¼± ¾Æ¹«·± Ãâ·ÂÀÌ ¾øµµ·Ï view_icon À̶õ º¯¼ö¿¡ À̹ÌÁö Ãâ·Â Åױ׸¦ ÀúÀåÇÕ´Ï´Ù.
if datediff("h",reg_date,now) < 24 then
view_icon = " "
Else
view_icon = ""
end if
' ÀÌ·¸°Ô ¿©·¯°¡Áö º¯¼ö¿¡ ÀúÀåÀ» Çß½À´Ï´Ù.
' num : °Ô½Ã±ÛÀÇ °íÀ¯ ¹øÈ£
' subject : °Ô½Ã±ÛÀÇ Á¦¸ñ
' reg_date : °Ô½Ã±ÛÀÇ µî·ÏÀÏÀÚ
' view_icon : "new_icon.gif" Ãâ·Â Å×±×
' ÀÌÁ¦ ÀÌ °ªµéÀ» °¡Áö°í Ãâ·Â °ú ¸µÅ©¸¦ ÇØ º¾½Ã´Ù.
%>
|

|
<%=subject%> <%=view_icon%><%=reg_date%>
|
|
|
<%
' ´ÙÀ½ °ªÀ¸·Î ³Ñ±é´Ï´Ù.
rs.movenext
' ºÒ·¯¿Â DB°¡ ³¡³¯¶§±îÁö ¹Ýº¹ÇÕ´Ï´Ù.
wend
%>
|
|
 |
|