'终级栏目导航-Kimli添加
Function ClassNavi_Last(NaviPicStr,CompatPicStr,RowNumberStr,OpenTypeStr,CSSStyleStr,TxtNaviStr)
Dim ClassSql,RsClassObj,i
if RefreshType = "Class" then
  CompatPicStr = GetCompatPicStr(CompatPicStr,"","",RowNumberStr)
  OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
  NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
  ClassSql = "Select ParentID from NewsClass where ShowTF=1 and DelFlag=0 and ClassID='" & RefreshID & "' order by orders asc"
  Set RsClassObj = Conn.Execute(ClassSql)
  If Not RsClassObj.Eof Then ThisParentID=RsClassObj("ParentID")
  Set RsClassObj = Nothing
  ClassSql = "Select SaveFilePath,ClassEName,ClassCName,FileExtName from NewsClass where ShowTF=1 and DelFlag=0 and ParentID='" & ThisParentID & "' order by orders asc"
  Set RsClassObj = Conn.Execute(ClassSql)
  ClassNavi_Last = " " & Chr(13) & Chr(10)
  do while Not RsClassObj.Eof
   ClassNavi_Last = ClassNavi_Last & " " & Chr(13) & Chr(10)
   for i = 1 to RowNumberStr
    ClassNavi_Last = ClassNavi_Last & " " & Chr(13) & Chr(10)
    RsClassObj.MoveNext
    if RsClassObj.Eof then Exit For
   Next
   ClassNavi_Last = ClassNavi_Last & "" & Chr(13) & Chr(10)& CompatPicStr & Chr(13) & Chr(10)
  loop
  ClassNavi_Last = ClassNavi_Last & "

" & NaviPicStr & " " & RsClassObj("ClassCName") & "

" & Chr(13) & Chr(10)
  Set RsClassObj = Nothing
else
  ClassNavi_Last = ""
end if
End Function
'终级栏目导航-Kimli添加结束