<%
dim k,j,m
k=0
j=0
m=0
sql="select top 4 * from News where Pic<>'Img/NoPic.jpg' and Pic<>'' and best=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof
k=k+1
j=j+1
m=m+1
Response.Write ""
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write " 对不起！目前没有任何新闻动态图片！"
end if
rs.close
set rs=nothing
%>