展览工厂-品牌材料-会展之窗招标网

<% Sql="Select Top 40 ID,FilePath From T_JcClass Where Recycle=0 Order By ID DESC" SetRs Rs,Sql,conn,1,1 i=0 Do While Not Rs.eof Response.Write("") i=i+1 if i mod 4 =0 then response.Write(" ") Rs.movenext Loop DisRs Rs %>

<% Sql="Select Top 30 ID,Filename,FilePath From T_Brand Where Recycle=0 Order By Hits DESC,ID DESC" SetRs Rs,Sql,conn,1,1 i=0 Do While Not Rs.eof Response.Write(""&Rs("Filename")&"") i=i+1 if i mod 2 =0 then response.Write(" ") Rs.movenext Loop DisRs Rs 'Call CloseDatabase %>

<% Sql="Select Top 12 ID,FilePath From T_Brand Where Recycle=0 AND Rec=true AND ClassID=1 Order By SortID DESC,ID DESC" SetRs Rs,Sql,conn,1,1 i=0 Do While Not Rs.eof Response.Write("") i=i+1 if i mod 3 =0 then response.Write(" ") Rs.movenext Loop DisRs Rs %>
<% Sql="Select Top 12 ID,FilePath From T_Brand Where Recycle=0 AND Rec=true AND ClassID=2 Order By SortID DESC,ID DESC" SetRs Rs,Sql,conn,1,1 i=0 Do While Not Rs.eof Response.Write("") i=i+1 if i mod 3 =0 then response.Write(" ") Rs.movenext Loop DisRs Rs %>