最新新聞標(biāo)簽調(diào)用新聞標(biāo)題后顯示 是否圖片新聞、點(diǎn)擊次數(shù)等_風(fēng)訊Cms教程
打開\Foosun\Admin\Refresh\RefreshFunction.asp
找到 最新新聞標(biāo)簽函數(shù) ： 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)
很抱歉，我不會寫函數(shù)做整體調(diào)用，所以，其他標(biāo)簽要做修改的話，照著這個(gè)也可以，呵呵~ ^_^
效果如下：
- 最簡單的欄目切換方法(樣式系列之欄目切換篇2)
- 我也放個(gè)欄目切換代碼，簡簡單單的。
- 搜狐女性頻道幻燈效果(幻燈系列之flash特效篇)
- 有效控制新聞內(nèi)容的圖片的尺寸
- 現(xiàn)提供增加<目錄生成規(guī)則>的方法！
- 風(fēng)訊里面上下篇標(biāo)簽DIV模式下浮動的解決方法！
- 風(fēng)訊目錄路徑自由選擇的實(shí)現(xiàn)方法
- 新聞列表讀取內(nèi)容時(shí)去掉html代碼
- 添加文字廣告的解決方案！
- 發(fā)些滾動的代碼
- 標(biāo)題下的分隔線在4.0中如何設(shè)置，還有標(biāo)題的行間距
- 隨時(shí)更換模版、廣告等，無須重新生成整站，共享出來供討論
- 相關(guān)鏈接：
復(fù)制本頁鏈接| 搜索最新新聞標(biāo)簽調(diào)用新聞標(biāo)題后顯示 是否圖片新聞、點(diǎn)擊次數(shù)等
- 教程說明：
風(fēng)訊Cms教程-最新新聞標(biāo)簽調(diào)用新聞標(biāo)題后顯示 是否圖片新聞、點(diǎn)擊次數(shù)等
。