|
|
|
|
 |
|
정수 / 2000-11-03 / 오전 11:31:16 / 203.230.248.195
조회수 : 122
|
| [질문] 상위 다섯개의 레코드만...
|
> 채영님의 게시판을 사용하고 있는데
> 메인페이지에 게시판에 올라온 글들을
> 약 5개정도 보여지게 하고 싶습니다.
> 그러니까 최근 글리스트의 상위 5개만 지속적으로
> 자동으로 업데이트 되는 거죠
> 알려주세요..
>
-----------------------------------------------------------
제가 사용한 코드 입니다..
참고하세요...
날짜 부분은 일부러 짧게 줄여서 표기하였습니다..
제목 또한 마찬가지구요...
수고하세요...
======================================================================
<%
Set DbCon=Server.CreateObject("ADODB.Connection")
DbCon.Open "???","???","???"
Set Rs1=Server.CreateObject("ADODB.Recordset")
query1="SELECT TOP 5 C_Index_PIN, C_Name_N, C_Email_A, C_Subject_N, C_Depth_N, C_Approval_N, C_Opposition_N, C_Date_N, C_Reference_N FROM news ORDER BY C_Class_N DESC, C_Order_N ASC"
Rs1.CursorType=1
Rs1.Open query1, DbCon
'상위 다섯개의 레코드만 불러 옵니다.
N=Rs1.RecordCount
'레코드수를 체크하는 변수입니다..
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% For i=1 to N
If Rs1.eof then
Exit For
End If
varDate=CDate(Rs1("C_Date_N"))
varMonth=Month(varDate)
varDay=Day(varDate)
If varMonth<10 then
varMonth="0"&varMonth
end If
If varDay<10 then
varDay="0"&varDay
end If
varSubject=Rs1("C_Subject_N")
If Len(varSubject)>25 then
varSubject=Left(varSubject,25)&"..."
end If
%>
<tr>
<td width="81%"> ◎
<a href="../../bbs/board/mess.asp?code=news&P_Index=<%=Rs1("C_Index_PIN")%>"><%=varSubject%></a></td>
<td width="18%"> <font size="2" color="#666666">[<%=varMonth%>-<%=varDay%>]</font></td>
</tr>
<%
Rs1.moveNext
Next
Set Rs1=Nothing
DbCon.Close
%>
</table>
======================================================================
|
|
|
|