编辑“FoosunCMS-简单实现公用标签”

<span style="border:1px solid #000; float:right; text-align:center; padding:6px;"><strong>导航：</strong>[[FoosunCMS教程|返回上一页]]</span>
<div style="clear:both;"></div>
[[FoosunCMS]]-简单实现公用标签



*适用系统：3.1
*实现思想：一个标签应用于所有[[模版]]，自动读取所生成类别下（包含子类）的内容
*修改文件：Admin/Refresh/RefreshFunction.asp
*实现方法（较3.0SP2版本多了第二步）：

== 第一步 ==
<pre>
打开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
</pre>



== 第二步 ==
最新新闻、热点新闻、推荐新闻处另外修改（如果还有其它项目请回帖）

查找
<pre>
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 
</pre>

替换为：
<pre>
'kimli修改_公用标签
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修改_公用标签结束
</pre>


== 第三步 ==
制作[[标签]]方法

实例、制作一个公用_分类页_推荐图片新闻

{%=RecPic("Thisclass","4","1","1","30","0","4","120","80","","6")%}

上面的蓝色字Thisclass便是申明为当前类别及其下子类别！其它均为[[FoosunCMS]]默认，不用修改






== 参考来源 ==


*[http://www.foosun.net/ 参考来源]


[[category:FoosunCMS|F]]