適用系統(tǒng)：3.1
實(shí)現(xiàn)思想：一個(gè)標(biāo)簽應(yīng)用于所有模版，自動(dòng)讀取所生成類(lèi)別下（包含子類(lèi)）的內(nèi)容
修改文件：Admin/Refresh/RefreshFunction.asp
實(shí)現(xiàn)方法（較3.0SP2版本多了第二步）：
第一步、打開(kāi)Admin/Refresh/RefreshFunction.asp文件
查找 Function ChirldClassID(ClassEnameStr)

下面約4、5行處，將

Set RsChirldFunObj = Conn.Execute("Select ClassID from FS_NewsClass where ParentID=(Select ClassID from FS_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")

替換為：

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

第二步：最新新聞、熱點(diǎn)新聞、推薦新聞處另外修改（假如還有其它項(xiàng)目請(qǐng)回帖）
查找
dim TemppID,TemppSql,EndClassIDList
If ClassEName<>"" then
If SoonClassStr="1" then
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList= "'" & TemppID(0) & "'" & AllChildClassIDStrList(TemppID(0))
Else
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList="'" & TemppID(0) & "'"
End if
Else
EndClassIDList=""
end if 替換為：
'kimli修改_公用標(biāo)簽
dim TemppID,TemppSql,EndClassIDList
If ClassEName="" then
EndClassIDList=""
Elseif ClassEName="Thisclass" then
EndClassIDList= "'" &RefreshID& "'" & AllChildClassIDStrList(RefreshID)
Else
If SoonClassStr="1" then
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList= "'" & TemppID(0) & "'" & AllChildClassIDStrList(TemppID(0))
Else
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList="'" & TemppID(0) & "'"
End if
End if
'kimli修改_公用標(biāo)簽結(jié)束

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

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板