适用系统：3.1
实现思想：一个标签应用于所有模版，自动读取所生成类别下（包含子类）的内容
修改文件：Admin/Refresh/RefreshFunction.asp
实现方法（较3.0SP2版本多了第二步）：
第一步、打开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
第二步：最新新闻、热点新闻、推荐新闻处另外修改（如果还有其它项目请回帖）
查找
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修改_公用标签
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修改_公用标签结束
第三步、制作标签方法
实例、制作一个公用_分类页_推荐图片新闻
{%=RecPic("Thisclass","4","1","1","30","0","4","120","80","","6")%}
上面的蓝色字Thisclass便是申明为当前类别及其下子类别！其它均为风讯默认，不用修改
| 
