news.asp

3000首FLASH源程序

<!--#include file="conn.asp"-->
<%
count=0
set rs=conn.execute("SELECT top 10 * FROM Announce where type="&request("typeid")&" order by id desc")
do while not rs.eof
if right(rs("DateAndTime"),2)=right(date(),2) then
count=count+1
end if%>
document.write('<img src=images/leaf.gif border=0><a href=newsshow.asp?id=<%=rs("id")%>&typeid=<%=request("typeid")%> title=<%=rs("Title")%>><%if len(rs("Title"))>11 then%><%=left(rs("Title"),9)%>...<%else%><%=rs("Title")%><%end if%></a>　<%if right(rs("DateAndTime"),2)=right(date(),2) then%><font color=#ff0000><%else%><font color=#555555><%end if%><%=rs("DateAndTime")%></font><br>'); 
<%rs.movenext
loop
rs.close
response.write "document.write('<a href=newslist.asp?typeid="&request("typeid")&"><div align=right>"
if request("typeid")=1 then
response.write "今天共更新<font color=#ff0000><b>"&count&"</b></font> 篇"
else
response.write ">>> MORE..."
end if
response.write "</div></a>');"
%>