<%sub main_diary()
dim totaldiary,Currentpage,totalpages,i

sql="select top "&maindiary&" * from diary order by diary_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
%>
<%=ubb2html(cutstr(formatStr(autourl(rs("diary_content"))),700,true,url), true, true)%>
<%
else
If rs.EOF And rs.BOF Then%>
<div align="center">目前還沒有公告！</div>
<%end if
end if%>

<%
rs.close
set rs=nothing
end sub%>