안녕하세요 에버클럽입니다.

아주 아주 오랬만에 글을 남기는것 같습니다. 개인적으로 너무도 바쁜 한해를 보내고 있는것 같습니다.

아티보드를 이용하시는 많은 유저님들 건강 조심하세요 날씨가 너무 덥기만 하네요 ㅡㅡㅋ

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">&nbsp;<span style="color:#003366">&#149;</span>&nbsp;<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  출력하기 끝>

 

의외로 간단하게 이루어져 있습니다 ^^

예시 사이트 : http://www.greenever.com