hotnews.asp

3000首FLASH源程序

<!--#include file="conn.asp"-->
<%
set rs=conn.execute("SELECT top 20 * FROM Announce where type="&request("typeid")&" order by hits desc")
do while not rs.eof
%>
document.write('<img src=images/leaf.gif border=0><a href=newsshow.asp?id=<%=rs("id")%>&typeid=<%=rs("type")%> title=<%=rs("Title")%>><%if len(rs("Title"))>9 then%><%=left(rs("Title"),7)%>...<%else%><%=rs("Title")%><%end if%></a>　<%if left(rs("DateAndTime"),10)=left(now(),10) then%><font color=#ff0000><%else%><font color=#555555><%end if%><%=rs("hits")%></font><br>'); 
<%
rs.movenext
loop
rs.close
%>