안녕하세요 에버클럽입니다.
아주 아주 오랬만에 글을 남기는것 같습니다. 개인적으로 너무도 바쁜 한해를 보내고 있는것 같습니다.
아티보드를 이용하시는 많은 유저님들 건강 조심하세요 날씨가 너무 덥기만 하네요 ㅡㅡㅋ
Q & A 게시판을 보던중 제가 사용하고 있는 부분이 질문이 들어온것을 보고 사용팁을 올리게
되었습니다. 항상 게을러서 매일 찾아오지는 못하네요 ^^
오늘 설명드릴 부분은 게시된 게시물(전체게시물) 중 조회수가 가장 높은것부터 출력하는 예제 입니다.
아래의 소스는 제 홈페이지에서 현재 사용하고 있는 그대로를 복사해 온것입니다.
<!Best Click 출력하기 시작>
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center"><img src="images/best_click.gif" width="180" height="32" /></td>
</tr>
<%
Dim BestCount
BestCount = 8 '8개의 게시물을 출력하기
SET RS = DBCON.EXECUTE("SELECT TOP " & BestCount & " [intSeq],[strSubject],[strBoardID],[intRead] FROM [MPLUS_BOARD] WHERE [bitDelete] != 1 ORDER BY [intRead] DESC")
IF RS.EOF THEN
%>
<tr><td height="20" align="center">등록된 글이 존재하지 않습니다.</td></tr>
<%
ELSE
WHILE NOT(RS.EOF)
intSeq = Rs("intSeq")
strBoardID = Rs("strBoardID")
strSubject = GetCutSubject(RS("strSubject"), 20)
intRead = Rs("intRead")
%>
<tr>
<td height="25"> <span style="color:#003366">•</span> <a href="/Mboard.asp?exec=view&strBoardID=<%=strBoardID%>&intSeq=<%=intSeq%>"><%=strSubject%></a><font Color="#0099CC">(<%=intRead%>)</font></td>
</tr>
<%
RS.MOVENEXT
WEND
END IF
%>
</table>
<!Best Click 출력하기 끝>
의외로 간단하게 이루어져 있습니다 ^^
댓글 0