%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%dim a,b,c,d,i set Rss=Server.Createobject("adodb.recordset") sqls="select top 3 * from article where typeid=4 order by newsid desc" Rss.open sqls,conn,1,1 for i=1 to 3 a=a&Rss("n_fname")&"|" b=b&Rss("picurl")&"|" c=c&Rss("title")&"|" d=d&Rss("path")&"|" Rss.movenext next Rss.close set Rss=nothing a=split(a,"|",-1,1) b=split(b,"|",-1,1) c=split(c,"|",-1,1) d=split(d,"|",-1,1) a1=a(0) a2=a(1) a3=a(2) b1=b(0) b2=b(1) b3=b(2) c1=c(0) c2=c(1) c3=c(2) d1=d(0) d2=d(1) d3=d(2) %>
![]() |