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 '當(dāng)EndClassIDList取值為空的時(shí)候
Select Case Fun_Refresh_Type '選擇當(dāng)前頁(yè)面類別（上面已經(jīng)做了欄目和新聞的，所以這里就是專題和除了欄目、新聞、專題之外的類別選擇）
Case "Special" '當(dāng)類別為專題的時(shí)候
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" '查詢當(dāng)前專題中的所有推薦新聞
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" '當(dāng)前類別在所有選擇的類別之外的，查詢所有的推薦新聞
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
'=============中間內(nèi)容省略================================================
RecNews = RecNews & "</table>"
End Function

紅色部分為修改內(nèi)容，蘭色部分為注釋。

使用方法：當(dāng)標(biāo)簽選擇了欄目時(shí)，就調(diào)用所選欄目的內(nèi)容。當(dāng)標(biāo)簽不選擇欄目的時(shí)候，則自動(dòng)識(shí)別當(dāng)前所在位置，調(diào)用符合當(dāng)前位置的新聞。

修改后的程序截圖：

此主題相關(guān)圖片如下：

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