|
 |
<%
'게시물의 제목의 길이를 체크하기 위한 함수 입니다.
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
%>
|
|
|
|
