<% sqlconfig="select * from config" set rsconfig=server.createobject("adodb.recordset") rsconfig.open sqlconfig,conn,1,1 num=request("num") sql="select top "+cstr(num)+" * from article inner join type on article.typeid=type.typeid where check=1 order by newsid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if not rs.eof then while not rs.EOF %>

/<%=rs("typedir")%>/<%=rs("N_Fname")%>") target="_blank"><%=rs("title")%>

<%rs.movenext wend rs.close set rs=nothing rsconfig.close set rsconfig=nothing conn.close set conn=nothing%> <%else%> <%end if %>