<% ConnectionDatabase Dim Rs,Sql SQL="Select Id,Title,ColumnName,AddDate,IsTOP,IsOut,IsPass,ColumnId,ColumnCode From [Content] where 1=1 and ISDEL=0 AND ISPASS=1 and ColumnId=45 Order By IsTOP Desc,TrueTime Desc" Set Rs=Conn.Execute(SQL) If Not Rs.Eof And Not Rs.Bof Then DS=Rs.getrows() End If CloseDataBase %>