最新新聞標簽調用新聞標題后顯示 是否圖片新聞、點擊次數等_風訊Cms教程
打開\Foosun\Admin\Refresh\RefreshFunction.asp
找到 最新新聞標簽函數 ： Function LastNews(ClassEName
在 Set RsLastNewsObj = Conn.Execute(LastNewsSql)
LastNews = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">" & Chr(13) & Chr(10)
do while Not RsLastNewsObj.Eof
LastNews = LastNews & "<tr>" & Chr(13) & Chr(10)
for i = 1 to RowNumberStr
下面加
dim newshitsnums,ynpicnews,ispicnews,newsaddate,newshitsnum
newshitsnums = RsLastNewsObj("ClickNum")
newsaddate = FormatDateTime(RsLastNewsObj("AddDate"),2)
ispicnews = RsLastNewsObj("PicNewsTF")
newshitsnum = "<font color=""red"">"& newshitsnums &"</font>"
if ispicnews <> "1" then
ynpicnews = ""
else
ynpicnews = "<font color=""red"">"& "[" & "圖" & "]" &"</font>"
end if
然后再修改下面的代碼：（紅色部分為添加）
LastNews = LastNews & "<td " & RowHeightStr & ">" & NaviPicStr & "<a " & GetCSSStyleStr(CSSStyleStr) & OpenTypeStr & " href=""" & GetOneNewsLinkURL(RsLastNewsObj("NewsID")) & """ title="""& RsLastNewsObj("Title")&""">" & GetHTMLTitle(RsLastNewsObj("TitleStyle"),GotTopic(RsLastNewsObj("Title"),TitleNumberStr)) & "</a>"& Chr(13) & Chr(13) & "(" &ynpicnews & Chr(13) & "[" & newshitsnum & "]" & Chr(13) & newsaddate & ")" & "</td>" & Chr(13) & Chr(10)
很抱歉，我不會寫函數做整體調用，所以，其他標簽要做修改的話，照著這個也可以，呵呵~ ^_^
效果如下：
- 相關鏈接：
- 教程說明：
風訊Cms教程-最新新聞標簽調用新聞標題后顯示 是否圖片新聞、點擊次數等
。