下面約4、5行處，將

替換為：

If ClassEnameStr="Thisclass" then
Set RsChirldFunObj = Conn.Execute("Select ClassID from FS_NewsClass where ParentID='"&RefreshID&"' order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from FS_NewsClass where ClassID='"&RefreshID&"' order by ID desc")
Else
Set RsChirldFunObj = Conn.Execute("Select ClassID from FS_NewsClass where ParentID=(Select ClassID from NewsClass where ClassEName='"&ClassEnameStr&"') order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from FS_NewsClass where ClassEName='"&ClassEnameStr&"' order by ID desc")
End if

第三步、制作標(biāo)簽方法
實(shí)例、制作一個(gè)公用_分類頁(yè)_推薦圖片新聞