网站建设|北京网站建设|北京网站制作|北京网站建设首选品牌【企通互联】

作者： 北京网站建设   日期：2008-03-27 06:03:34  来源： http://www.qitongnet.com

（1）子类新闻中的类目排序修改成按顺序排而不是倒序排，请找到admin/refresh/refreshFunction.asp 北京网站建设中的大概是175行吧，找到ClassSql = "Select Top " & ClassNumberStr & " * from NewsClass where ClassID in (" & AllChildClassID & ") and DelFlag=0 order by ID desc"

将其中的红色部分 www.qitongnet.comdesc删除即可； 北京网页设计

（2）子类新闻列表排序问题，如果要修改成按时间先后排序，请找到admin/refresh/refreshFunction.asp中的大楖230行吧，找到NewsSql = "Select top " & NewsListNumberStr & " Title,TitleStyle,Path,AddDate,HeadNewsTF,HeadNewsPath,FileName,FileExtName from News where ClassID='" & AlreadyClassObj("ClassID") & "' and AuditTF=1 and DelTF=0"

改成NewsSql = "Select top " & NewsListNumberStr & " Title,TitleStyle,Path,AddDate,HeadNewsTF,HeadNewsPath,FileName,FileExtName from News where ClassID='" & AlreadyClassObj("ClassID") & "' and AuditTF=1 and DelTF=0 order by AddDate desc"（红色部分order by AddDate desc为添加）即可！

（3）另外，子类新闻导航显示问题，如果您认为有必要，可将本人修改后的 GetOneClassNewsList函数覆盖替换掉您的admin/refresh/refreshFunction.asp 网站制作文件中相应函数即可一切正常（经测试正常）

Function GetOneClassNewsList(AlreadyClassObj,NewsListNumberStr,TitleNumberStr,CompatPicStr,NaviPicStr,DateRuleStr,DateRightStr,RowHeightStr,RowNumberStr,MoreLinkTypeStr,MoreLinkContentStr,CSSStyleStr,OpenTypeStr,DateCSSStyleStr,TxtNaviStr)网站设计
Dim RsNewsObj,NewsSql,i,ClassSaveFilePath北京网站制作
Dim TempRowNumberStr,TempDateShowStr 网站设计北京网站设计
if Not AlreadyClassObj.Eof then北京网站建设
  if DateRuleStr <> "" then网站设计
   if DateRightStr = "Left" then网站制作
    TempRowNumberStr = "colspan=""" & RowNumberStr & """"网页设计
   elseif DateRightStr = "Center" then北京网站设计
    TempRowNumberStr = "colspan=""" & RowNumberStr * 2 & """"北京网站设计
   elseif DateRightStr = "Right" then 企通互联北京网站建设
    TempRowNumberStr = "colspan=""" & RowNumberStr * 2 & """"北京网站建设
   else网站制作
    TempRowNumberStr = "colspan=""" & RowNumberStr & """"北京网站设计
   end if企通互联
  else北京网站制作
   TempRowNumberStr = "colspan=""" & RowNumberStr & """"北京网站制作
  end if网站制作 北京网站制作
  if AlreadyClassObj("SaveFilePath") = "/" then网页设计 北京网站设计
   ClassSaveFilePath = AlreadyClassObj("SaveFilePath")北京网站制作
  else企通互联
   ClassSaveFilePath = AlreadyClassObj("SaveFilePath") & "/"网站设计
  end if网站制作
  if OpenTypeStr = "1" then北京网站设计
    OpenTypeStr = "target=""_blank"""北京网站设计
  else网站设计
   OpenTypeStr = ""北京网站制作
  end if%>网站建设