<%
sql="Select distinct top 6 id,title,urlpath,moditime,color,tops From yb_cofeed_InfoList inner join yb_cofeed_InfoCatalog on yb_cofeed_InfoList.id=yb_cofeed_InfoCatalog.infoid inner join yb_cofeed_InfoChannels on yb_cofeed_InfoList.id=yb_cofeed_InfoChannels.infoid where "&ybasp.GetChildId(catalogid,"yb_cofeed_InfoCatalog.CatalogID")&" and channelsId=114 order by tops desc,moditime desc ,id desc "
arr_r=ybasp.ReadRows(sql)
For i=0 TO Ubound(arr_r,2)
ybasp.w("