跪求修改:滚动公告框显示顺序代码

来源:百度知道 编辑:UC知道 时间:2024/07/04 09:47:44
现在主页上公告框的显示是这样的:先把没有带链接的公告按发布时间先后显示完了再显示带链接的公告。
我想把它改为:不管带没有带链接的公告都只按发布时间先后顺序显示。
公告框内代码如下:
<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1 scrollDelay=5 direction=up height="170">
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from gonggao where ok=1 order by id desc"
rs.Open sql,conn,1,1
DO WHILE Not rs.eof
%>
<%=rs("content2")%><br>
<%
rs.movenext
LOOP
rs.close
set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql="select * from gonggao where ok=0 order by id desc"
rs1.Open sql,conn,1,1
DO WHILE Not rs1.eof
%>
<a href="gonggao.asp?id=<%=rs1("id")%>" target="_blank" ><%=rs1("title")%></a><br>
<%
rs1.movenext
LOOP
rs1.clos

<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1 scrollDelay=5 direction=up height="170">
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from gonggao order by id desc"
rs.Open sql,conn,1,1
DO WHILE Not rs.eof
%>
<%if rs("ok")="1" then%>
<%=rs("content2")%><br>
<%else%>
<a href="gonggao.asp?id=<%=rs1("id")%>" target="_blank" ><%=rs1("title")%></a><br>
<%end if%>
<%
rs.movenext
LOOP
rs.close
set rs=nothing
%>
</MARQUEE>