<% if rsAnnounce.bof and rsAnnounce.eof then response.write "

没有通告或找不到指定的通告

" else AnnounceNum=rsAnnounce.recordcount dim i do while not rsAnnounce.eof response.Write "

" & rsAnnounce("title") & "

" & ubbcode(dvHTMLEncode(rsAnnounce("Content"))) & "

" & "
" & FormatDateTime(rsAnnounce("Time"),1) & "

" rsAnnounce.movenext i=i+1 if i" loop end if %>