<% set rsDe=server.createobject("adodb.recordset") sql= "select * from detail Where verity=1 and yl_dayin>0 order by yl_intime desc" rsDe.open sql,conn,1,1 news=news&"" n=1 While Not rsDe.Eof and n<50 news = news &"" if n mod 5 =0 then news = news &"" end if rsDe.MoveNext n=n+1 Wend rsDe.close set rsDe=nothing news=news&"

" if rsDe("yl_dayin")>4 then news = news &"" end if if rsDe("yl_dayin")>9 then news = news &"" end if if rsDe("yl_dayin")>19 then news = news &"" end if if rsDe("yl_dayin")>29 then news = news &"" end if if rsDe("yl_dayin")>49 then news = news &"" end if news = news &""&rsDe("title")&"" if rsDe("yl_dayin")>9 then news = news &"" end if news = news &"

访问更多>>>

" response.write "document.write("""&news&""");" %>