木偶
-
个人空间
相册
- 组别:高级会员
- 性别:
- 生日:1900-1-1
- 来自:
- 积分:1135
- 帖子:103
- 注册:
2004-11-29
|
[原创]在新闻标题后面加上NEW的标记
经过几天在论坛上求助和查找。看到有不少人也需要这个，焦急的时候，终于看到了希望！！ 以下是我修改的部分（以栏目新闻为例） 修改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编辑过]
|
