本站公告

<% dim ID dim sqlAnnounce dim rsAnnounce dim AnnounceNum dim ChannelID ID=Trim(request("ID")) sqlAnnounce="select * from affiche where ID=" & Clng(ID) sqlAnnounce=sqlAnnounce & " order by ID Desc" Set rsAnnounce= Server.CreateObject("ADODB.Recordset") rsAnnounce.open sqlAnnounce,conn,1,1 %> 本站公告

<% 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 %>

<% rsAnnounce.close set rsAnnounce=nothing call CloseConn() %>