index_diary.asp

来自「功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件」· ASP 代码 · 共 22 行

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

sql="select top 1 * from diary order by d_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
%>
<%=ubb2html(cutstr(formatStr(autourl(rs("d_content"))),700,true,url), true, true)%>
<%
else
If rs.EOF And rs.BOF Then%><font color="#666666"> </font>
  
    <font color="#666666">目前还没有记录！</font>
  
<%end if
end if%>

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