new.asp

3000首FLASH源程序

<!--#include file="conn.asp"-->
<% 	set rs = server.createobject("adodb.recordset")
	sql="SELECT top 9 * FROM pic where pass=true order by updatetime desc"%>
document.write('<%	rs.open sql,conn,1,1 
	if rs.bof and rs.eof then 
		response.write "本周无更新图片" 
	else 
	do while not rs.eof   
%>&nbsp;<b>·</b><a href="school/list.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target=_blank><%if len(rs("title"))>10 then%><%=left(rs("title"),10)%>...<%else%><%=rs("title")%><%end if%></a>　<font color="#666666"><%=rs("updatetime")%></font>　<font color="#ff0000"><%=rs("hits")%></font><br><%
	rs.movenext     
	loop
	end if  
	rs.close   
%>');