这是一段asp公告通知栏的源码，我想跪求高手帮忙改一下，使这个公告通知栏改为：1、不滚动显示，2、最新发布的内容显示在最前面，3、增加发布内容的显示日期和时间。另外，我的数据库里的时间字段名是：dateandtime。谢谢！！！


<table width="232" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="568" align="center" valign="top">
<div class="right_border">
<table width="220" height="117" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="53" height="26" align="center" background="images/echsys_index_24.gif"><img src="Images/t_d.gif" width="12" height="11" /></td>
<td width="83" height="26" background="images/echsys_index_24.gif" class="white_title">公告通知</td>
<td width="84" align="right" background="images/echsys_index_24.gif" class="white_title"><a href="E_board.asp" target="_blank"><img src="Images/more_bai.gif" width="60" height="20" border="0" /></a></td>
</tr>
<tr>
<td colspan="3" align="center" bgcolor="#FFFFFF">
<div id="demoa" style="OVERFLOW: hidden; WIDTH: 190px; HEIGHT: 170px">
<div id="demoa1">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Set Rsb=Conn.Execute("select top 10 * from "& db_EC_Board_Table)
if Rsb.Bof and Rsb.Eof then
Response.Write "<tr><td align=center>暂无公告</td></tr>"
Else
Do While Not Rsb.Eof
%>
<tr>
<td height="18" align="left" class="blacklink"><div class="side_con"> ·<a href="E_Board_News.asp?ID=<%=rsb("ID")%>" class="middle" target="_blank"> <%=CutStr(htmlencode4(Rsb("title")),24)%></a></div></td>
</tr>
<%
Rsb.Movenext
Loop
End If
Rsb.Close
Set Rsb=Nothing
%>
</table>
</div>
<div id="demoa2"></div>
</div>
<script>
var speed2=60
demoa2.innerHTML=demoa1.innerHTML
function Marquee2(){
if(demoa2.offsetTop-demoa.scrollTop<=0)
demoa.scrollTop-=demoa1.offsetHeight
else{
demoa.scrollTop++
}
}
var MyMar2=setInterval(Marquee2,speed2)
demoa.onmouseover=function() {clearInterval(MyMar2)}
demoa.onmouseout=function() {MyMar2=setInterval(Marquee2,speed2)}
</script> </td>
</tr>
</table>
</div>

<div class="right_border">
　</div>
<div class="right_border">
　</div>
<div class="right_border">
　</div>
<div class="right_border">
　</div>
</td>
</tr>
</table>

试试：

<table width="232" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="568" align="center" valign="top">
<div class="right_border">
<table width="220" height="117" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="53" height="26" align="center" background="images/echsys_index_24.gif"><img src="Images/t_d.gif" width="12" height="11" /></td>
<td width="83" height="26" background="images/echsys_index_24.gif" class="white_title">公告通知</td>
<td width="84" align="right" background="images/echsys_index_24.gif" class="white_title"><a href="E_board.asp" target="_blank"><img src="Images/more_bai.gif" width="60" height="20" border="0" /></a></td>
</tr>
<tr>
<td colspan="3" align="center" bgcolor="#FFFFFF">
<div id="demoa" style="OVERFLOW: hidden; WIDTH: 190px; HEIGHT: 170px">
<div id="demoa1">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Set Rsb=Conn.Execute("select top 10 * from "& db_EC_Board_Table&" order by dateandtime")
if Rsb.Bof and Rsb.Eof then
Response.Write "<tr><td align=center>暂无公告</td></tr>"
Else
Do While Not Rsb.Eof
%>
<tr>
<td height="18" align="left" class="blacklink"><div class="side_con"> ·<a href="E_Board_News.asp?ID=<%=rsb("ID")%>" class="middle" target="_blank"> <%=CutStr(htmlencode4(Rsb("title")),24)%><%=rsb("dateandtime")%></a></div></td>
</tr>
<%
Rsb.Movenext
Loop
End If
Rsb.Close
Set Rsb=Nothing
%>
</table>
</div>
<div id="demoa2"></div>
</div>
 </td>
</tr>
</table>
</div>

<div class="right_border">
　</div>
<div class="right_border">
　</div>
<div class="right_border">
　</div>
<div class="right_border">
　</div>
</td>
</tr>
</table>

这个都不知道啊。拿本书多看下。

Set Rsb=Conn.Execute("select top 10 * from "& db_EC_Board_Table &"order by dateandtime desc")
if Rsb.Bof and Rsb.Eof then
Response.Write "<tr><td align=center>暂无公告</td></tr>"
Else

额，我忘了降序

谢谢楼上两位好心人，祝你健康  开心 快乐。