- 中国开源CMS第一品牌 [原创]在新闻标题后面加上NEW的标记

木偶 - 2005-11-17 12:00:00

经过几天在论坛上求助和查找。看到有不少人也需要这个，焦急的时候，终于看到了希望！！

以下是我修改的部分（以栏目新闻为例）

修改Admin/Refresh/RefreshFunction.asp文件

修改代码如下：

'调用大栏目
Function SelfClass(ClassEName,NewsListNumberStr,TitleNumberStr,CompatPicStr,NaviPicStr,DateRuleStr,DateRightStr,RowHeightStr,RowNumberStr,ShowClassCNNameStr,MoreLinkTypeStr,MoreLinkContentStr,CSSStyleStr,OpenTypeStr,DateCSSStyleStr,TxtNaviStr)
Dim RsNewsObj,NewsSql,RsClassObj,ClassSql,AllClassID,i,ClassCNName,tmpAddDate
Dim TempDateShowStr
TitleNumberStr = GetTitleNumberStr(TitleNumberStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
CompatPicStr = GetCompatPicStr(CompatPicStr,DateRightStr,DateRuleStr,RowNumberStr)
ClassSql = "Select ClassCName,ClassEName,ClassID,SaveFilePath,FileExtName from NewsClass where ClassEName='" & ClassEName & "'"
Set RsClassObj = Conn.Execute(ClassSql)
if Not RsClassObj.Eof then
AllClassID = "'" & RsClassObj("ClassID") & "'" & ChildClassIDList(RsClassObj("ClassID"))
NewsSql = "Select top " & NewsListNumberStr & " *,NewsClass.FileExtName as ClassFileExtName,News.FileExtName as NewsFileExtName from News,NewsClass where News.ClassID=NewsClass.ClassID and News.AuditTF=1 and News.delTF=0 and NewsClass.ClassID in (" & AllClassID & ") order by News.ID Desc"
SelfClass = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & Chr(13) & Chr(10)
Set RsNewsObj = Conn.Execute(NewsSql)
do while Not RsNewsObj.Eof
SelfClass = SelfClass & "<tr>" & Chr(13) & Chr(10)
for i = 1 to RowNumberStr
'标记开始
tmpAddDate=CDate(RsNewsObj("adddate"))
If Date-tmpAddDate<=3 Then
tmpAddDate="<img src='img/icon10.gif' width='13' height='13'></img>"
Else
tmpAddDate=""
End If
'标记结束
if DateRuleStr <> "" then
if DateRightStr = "Left" then
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span>"
elseif DateRightStr = "Center" then
TempDateShowStr = "<td align=""center""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span>" & "</td>"& Chr(13) & Chr(10)
elseif DateRightStr = "Right" then
TempDateShowStr = "<td align=""Right""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span>" & "</td>" & Chr(13) & Chr(10)
else
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span>"
end if
else
TempDateShowStr = ""
end if
if ShowClassCNNameStr = "1" then
ClassCNName = "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneClassLinkURL(RsNewsObj("ClassEName"),RsNewsObj("SaveFilePath"),RsNewsObj("ClassFileExtName")) & """ >[" & GotTopic(RsNewsObj("ClassCName"),TitleNumberStr) & "]</a> "
else
ClassCNName = ""
end if
if DateRightStr = "Center" Or DateRightStr = "Right" then
SelfClass = SelfClass & "<td " & RowHeightStr & ">" & NaviPicStr & ClassCNName & "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneNewsLinkURL(RsNewsObj("NewsID")) & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a></td>" & TempDateShowStr & tmpAddDate & Chr(13) & Chr(10)
else
SelfClass = SelfClass & "<td " & RowHeightStr & ">" & NaviPicStr & ClassCNName & "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneNewsLinkURL(RsNewsObj("NewsID")) & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a>" & TempDateShowStr & tmpAddDate &"</td>" & Chr(13) & Chr(10)
end if
RsNewsObj.MoveNext
if RsNewsObj.Eof then Exit For
Next
SelfClass = SelfClass & "</tr>" & Chr(13) & Chr(10)
SelfClass = SelfClass & CompatPicStr
Loop
if MoreLinkContentStr <> "" then
if MoreLinkTypeStr = "1" then
MoreLinkContentStr="<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneClassLinkURL(RsClassObj("ClassEName"),RsClassObj("SaveFilePath"),RsClassObj("FileExtName")) & """ ><img border=0 src=""" & AvailableDoMain & MoreLinkContentStr & """></a>"
elseif MoreLinkTypeStr = "0" then
MoreLinkContentStr = "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneClassLinkURL(RsClassObj("ClassEName"),RsClassObj("SaveFilePath"),RsClassObj("FileExtName")) & """ >" & MoreLinkContentStr & "</a>"
else
MoreLinkContentStr = ""
end if
if DateRuleStr <> "" then
SelfClass = SelfClass & "<tr><td " & GetRowSpanNumber(DateRuleStr,DateRightStr,RowNumberStr) & " align=""right"">" & MoreLinkContentStr & "</td></tr>" & Chr(13) & Chr(10)
else
SelfClass = SelfClass & "<tr><td align=""right"" " & GetRowSpanNumber(DateRuleStr,DateRightStr,RowNumberStr) & ">" & MoreLinkContentStr & "</td></tr>" & Chr(13) & Chr(10)
end if
end if
SelfClass = SelfClass & "</table>" & Chr(13) & Chr(10)
Set RsNewsObj = Nothing
else
SelfClass = ""
end if
Set RsClassObj = Nothing
End Function

以上代码经过本人测试，基本上没什么问题，如果有问题，望大家共同指正。谢谢！

[此贴子已经被作者于2005-11-17 12:16:32编辑过]

木偶 - 2005-11-17 12:05:00

忘记告诉大家了。这是3.0的。3.1没试过。基本上应该大同小异吧

[此贴子已经被作者于2005-11-17 12:05:49编辑过]

木偶 - 2005-11-17 12:06:00

没人需要？？白忙活了

doudou888 - 2005-11-17 12:08:00

支持!!

Fly颖 - 2005-11-17 12:13:00

看不懂?

既然是生成HTML,如何判断时间而加上NEW??

不解

木偶 - 2005-11-17 12:17:00

FSCMS 3.0修改Admin/Refresh/RefreshFunction.asp文件

木偶 - 2005-11-17 12:37:00

我测试过了。3.1和3.0一样。。

zgyao - 2005-12-15 17:02:00

我测试了3。1的有问题！

因为3。1中

if DateRightStr = "Center" Or DateRightStr = "Right" then
SelfClass = SelfClass & "<td " & RowHeightStr & ">" & NaviPicStr & ClassCNName & "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneNewsLinkURL(RsNewsObj("NewsID")) & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a>& ReViewStr &</td>" & TempDateShowStr & tmpAddDate & Chr(13) & Chr(10)

多了评论！同时版主的& tmpAddDate & 应该加到"</a>& ReViewStr &</td>"之间，下面是我修改了的，我除掉了& ReViewStr &，因为我如果加上这个后，在首页显示会出现错误！调用标签时不能控制新闻的行数!

if DateRightStr = "Center" Or DateRightStr = "Right" then
SelfClass = SelfClass & "<td " & RowHeightStr & ">" & NaviPicStr & ClassCNName & "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneNewsLinkURL(RsNewsObj("NewsID")) & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a>" & tmpAddDate &"</td>" & TempDateShowStr & Chr(13) & Chr(10)

kedee - 2005-12-15 17:10:00

不错，收藏了

pyj - 2005-12-15 18:07:00

好象不行

wsvip - 2005-12-15 19:50:00

还行

cs123 - 2006-1-15 10:55:00

不行啊,大哥,我的版本: 3.1.1120

按那样子做了,nwe图片也改了,可惜生成主页后什么都没变,和原来的一样

[em04]

四季逗 - 2006-1-15 17:39:00

[em01]

ryhbgs - 2006-8-21 16:40:00

3.2版本的好像不行，改了没有任何变化

1891 - 2006-8-21 16:47:00

不错，收藏了

hotla - 2006-8-21 18:37:00

已在3.2sp1下测试通过

zgyao - 2006-8-22 13:38:00

hotla:你没有修改楼主的代码，直接应用就可以吗?

hotla - 2006-8-22 14:59:00

没有改过,照抄可用!

hcwswdj - 2006-8-30 09:52:00

因为是html格式，所以必须要天天执行发布一下，没有动态的灵活啊~~~~~

hotla - 2006-8-30 10:21:00

以下是引用hcwswdj在2006-8-30 09:52:00的发言：

因为是html格式，所以必须要天天执行发布一下，没有动态的灵活啊~~~~~

添加新闻后本来就要生成嘛.这个应该不是问题.

傅沥 - 2008-3-28 10:19:00

引用:

原帖由 ryhbgs 于 2006-8-21 16:40:00 发表
3.2版本的好像不行，改了没有任何变化

是的啊，怎么解决啊。。。

风讯官方论坛