教评动态
下载专区
<% sqlAnnounce="select top 4 * from Announce order by ID Desc" Set rsAnnounce= db.execute(sqlAnnounce) if rsAnnounce.bof and rsAnnounce.eof then response.write "
没有通告
" else AnnounceCount=rsAnnounce.recordcount dim i do while not rsAnnounce.eof response.Write "
" & rsAnnounce("title") & "
" & rsAnnounce("Author") & "
" & FormatDateTime(rsAnnounce("DateAndTime"),1) & "
" rsAnnounce.movenext i=i+1 if i
" loop end if rsAnnounce.close set rsAnnounce=nothing %>
:: 新 闻 动 态 ::
<%do while not rs.eof%>
<% rs.movenext loop rs.close %>
MORE
