 |
<%
SortSql="SELECT TOP 7 a.ArticleID,a.ontop, a.Title,a.updatetime,a.titlefontcolor, b.ChannelID, b.ChannelName,b.channeldir FROM PE_Article as a LEFT OUTER JOIN PE_Channel as b ON a.ChannelID = b.ChannelID WHERE b.ChannelId in(1021,1025,1026,1027,1028,1029,1031,1032,1034) ORDER BY a.ontop asc, a.articleid desc,a.updatetime DESC"
Set SortRs= Server.CreateObject("ADODB.Recordset")
SortRs.Open SortSql,Conn,1,1
do while not SortRs.EOF
'if sortrs("ontop")=true then
Response.Write "| ◎【"&SortRs("channelname")&"】"& left(SortRs("title"),20)&" | "&" "&month(sortrs("updatetime"))&"-"&day(sortrs("updatetime"))&" | "
'else
'Response.Write "
|
 |
|
|
|
