<% set RsPic=server.createobject("adodb.recordset") sql="select top 10 * from info where Ispic=1 and Pw_Good=True ORDER BY id DESC" RsPic.open sql,conn,1,1 if RsPic.eof or RsPic.bof then Call NoPic("暂无图文新闻") end if %>

<% do while not RsPic.eof %> <% RsPic.movenext loop RsPic.CLOSE SET RsPic=Nothing %>