<%sub main_achieve()

sql="select top "&mainachieve&" achieve_id,achieve_title,achieve_date,achieve_count from achieve order by achieve_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" style="border-collapse: collapse">
<%
do while not rs.eof
%>
  <tr> 
    <td height="20"><img src="images/pic/star.gif" width="12" height="12" border="0"> <a href="showachieve.asp?achieve_id=<%=rs("achieve_id")%>" title="發表于<%=rs("achieve_date")%>,已經被閱讀<%=rs("achieve_count")%>次。" target="_blank"> 
      <%if len(rs("achieve_title"))>18 then
 response.write ""&left(rs("achieve_title"),16)&"..."
else
 response.write ""&rs("achieve_title")
end if%>
      </a></td>
  </tr>
  <%
rs.movenext
loop
if rs.eof and rs.bof then
%>
  <tr> 
    <td align="center">暫時沒有文章！</td>
  </tr>
  <%end if%>
</table>
<%
rs.close
set rs=nothing
end sub
%>