3.2.sp1实现通用标签[方法说明](2)_风讯Cms教程

RecNewsSql = "Select Top " & NewNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.ClassID=FS_NewsClass.ClassID and FS_News.DelTF=0 and FS_News.RecTF=1 and FS_News.AuditTF=1 and FS_News.ClassID in(" & EndClassIDList & ") order by FS_News.ID Desc" 'RecNewsSql查询EndClassIDList所列出的所有栏目下的推荐新闻
else '当EndClassIDList取值为空的时候
Select Case Fun_Refresh_Type '选择当前页面类别（上面已经做了栏目和新闻的，所以这里就是专题和除了栏目、新闻、专题之外的类别选择）
Case "Special" '当类别为专题的时候
RecNewsSql = "Select Top " & NewNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.ClassID=FS_NewsClass.ClassID and FS_News.DelTF=0 and FS_News.RecTF=1 and FS_News.AuditTF=1 and FS_News.SpecialID like '" & Fun_Refresh_ID & "' order by FS_News.ID Desc" '查询当前专题中的所有推荐新闻
Case Else
RecNewsSql = "Select Top " & NewNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.ClassID=FS_NewsClass.ClassID and FS_News.DelTF=0 and FS_News.RecTF=1 and FS_News.AuditTF=1 order by FS_News.ID Desc" '当前类别在所有选择的类别之外的，查询所有的推荐新闻
End Select
end if
Set RsRecNewsObj = Conn.Execute(RecNewsSql)
RecNews = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">" & Chr(13) & Chr(10)
do while Not RsRecNewsObj.Eof
'=============中间内容省略================================================
RecNews = RecNews & "</table>"
End Function

红色部分为修改内容，兰色部分为注释。

使用方法：当标签选择了栏目时，就调用所选栏目的内容。当标签不选择栏目的时候，则自动识别当前所在位置，调用符合当前位置的新闻。

修改后的程序截图：

此主题相关图片如下：

查看更多 风讯cms教程  风讯cms模板