打开\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)

很抱歉，我不会写函数做整体调用，所以，其他标签要做修改的话，照着这个也可以，呵呵~ ^_^

效果如下：