打開/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)

很抱歉，我不會寫函數做整體調用，所以，其他標簽要做修改的話，照著這個也可以，呵呵~ ^_^

效果如下：