评论怎样按最新发表排列??有代码懂的来看看,谢谢!
意思是说:在内容页显示把最新发表的排在最上面,以前发表的排后面。应该是这个文件:\plug\comment\commentList.asp
程序代码:
<% commentList Sub commentList Response.Buffer=True Response.ContentType="text/html;charset=gbk" Dim rsObj,ContentID,page,pCount,pSize,i,pagerStr,pPage,nPage,numPage pSize=5 '评论显示数 numPage=5 '显示页码数 ContentID=filterPara(getForm("id","get")) page=filterPara(getForm("page","get")) dim sql if SwitchCommentsStatus=0 then sql="select * from {prefix}Comments where ContentID="&ContentID else sql="select * from {prefix}Comments where CommentStatus=1 and ContentID="&ContentID end if set rsObj=conn.Exec(sql,"r1") if not rsObj.eof then rsObj.pageSize=pSize pCount=rsObj.pageCount if isNul(page) or not isnum(page) or page<1 then page=1 else page=clng(page) if page>pCount then page=pCount rsObj.absolutepage = page for i = 1 to pSize echo"<div class=""clistbox"">" &vbcrlf& _ "<div class=""line1""><span>发表于:"&rsObj("AddTime")&"</span> 评论者:"&filterDirty(rsObj("Commentator"))&" </div>" &vbcrlf& _ "<div class=""line2"">"&filterDirty(rsObj("CommentContent"))&"</div>" &vbcrlf& _ "</div>" &vbcrlf rsObj.moveNext if rsObj.eof then exit for next pagerStr=makePageNumber(page, numPage, pCount, "commentlist",ContentID,"") if page>1 then pPage=page-1 else pPage=1 if page=pCount then nPage=page else nPage=page+1 echo "<div class=""pages"">"&"<a href=""javascript:pager("&ContentID&",1)"">首页</a><a href=""javascript:pager("&ContentID&","&pPage&")"">上一页</a>" echo pagerStr echo "<a href=""javascript:pager("&ContentID&","&nPage&")"">下一页</a>"&"<a href=""javascript:pager("&ContentID&","&pCount&")"">末页</a>"&"</div>" else echo "还没有评论!" end if rsObj.close() set rsObj=nothing End Sub %>
怎么改呢?