- 中国开源CMS第一品牌菜鸟问题:子类新闻有什么作用？如何调用？能给个例子看看吗？

itall - 2005-11-15 18:02:00

菜鸟问题：子类新闻有什么作用？如何调用？能给个例子看看吗？

[此贴子已经被作者于2005-11-15 18:03:15编辑过]

bala - 2005-11-15 19:40:00

那个东西有错误，官方还没修好呢

hotla - 2005-11-15 20:21:00

子类新闻就是调用所有子栏目下的新闻
[upload=gif]UploadFile/2005-11/2005111520212049336.gif[/upload]

附件: 1844.gif

四季逗 - 2005-11-15 21:23:00

http://www.woxun.com/html/Web/

看我给朋友做的

运用子新闻表建的｀在'Refresh＼RefreshFunction.asp

得到一个栏目的新闻列表
Function GetOneClassNewsList(AlreadyClassObj,NewsListNumberStr,TitleNumberStr,CompatPicStr,NaviPicStr,DateRuleStr,DateRightStr,RowHeightStr,RowNumberStr,MoreLinkTypeStr,MoreLinkContentStr_R,CSSStyleStr,OpenTypeStr,DateCSSStyleStr,TxtNaviStr)
Dim RsNewsObj,NewsSql,i,ClassSaveFilePath
Dim TempDateShowStr,MoreLinkContentStr
if Not AlreadyClassObj.Eof then
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
NewsSql = "Select top " & NewsListNumberStr & " NewsID,Title,Path,AddDate,HeadNewsTF,HeadNewsPath,FileName,FileExtName,TitleStyle from FS_News where ClassID='" & AlreadyClassObj("ClassID") & "' and AuditTF=1 and DelTF=0"
GetOneClassNewsList = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">" & Chr(13) & Chr(10)
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
CompatPicStr = GetCompatPicStr(CompatPicStr,DateRightStr,DateRuleStr,RowNumberStr)
if DateRuleStr <> "" then
GetOneClassNewsList = GetOneClassNewsList & "<tr><td colspan=""2"" align=""center"" width=""352"" height=""30"" background=""/woxun_images/woxun_lmbg.gif""><a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneClassLinkURL(AlreadyClassObj("ClassEName"),AlreadyClassObj("SaveFilePath"),AlreadyClassObj("FileExtName")) & """ >" & AlreadyClassObj("ClassCName") & "</a></td></tr>" & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<tr><td align=""center"" width=""352"" height=""30"" background=""/woxun_images/woxun_lmbg.gif""><a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneClassLinkURL(AlreadyClassObj("ClassEName"),AlreadyClassObj("SaveFilePath"),AlreadyClassObj("FileExtName")) & """ >" & AlreadyClassObj("ClassCName") & "</a></td></tr>" & Chr(13) & Chr(10)
end if

红色是运用的背景｀其他的自己灵活运用．．．

[em04]

四季逗 - 2005-11-15 21:23:00

不清楚子新闻的一些排序错误纠正了没｀｀｀｀｀｀｀｀

设置标签时仔细点根据自己的需要就可以了

[em06]

[此贴子已经被作者于2005-11-15 21:35:00编辑过]

makeday - 2005-11-15 21:39:00

风讯远没我想像中的那么简单，使用复杂，而且还有多多少少的缺陷，哎我也碰到同样的问题，就最简单的调用所有分类的新闻都实现不了，

doudou888 - 2005-11-16 08:58:00

1、“子类新闻”示例：

http://220.162.195.6:168/fx31/Get/Nhez/index.htm

这是两栏的。

2、论坛里已有了解决方法。这是相关贴子。

http://bbs.foosun.net/dispbbs.asp?BoardID=22&ID=15046

[此贴子已经被作者于2005-11-16 9:20:08编辑过]

bala - 2005-11-16 17:40:00

以下是引用doudou888在2005-11-16 8:58:00的发言：

1、“子类新闻”示例：

http://220.162.195.6:168/fx31/Get/Nhez/index.htm

这是两栏的。

2、论坛里已有了解决方法。这是相关贴子。

http://bbs.foosun.net/dispbbs.asp?BoardID=22&ID=15046

抱歉，是我弄错了，我把 ChildClassList = ChildClassList & "<tr>" & Chr(13) & Chr(10) 这句也移动到 For i = 1 to ClassRowNumberStr 下面去了，导致只能单列了。

再次感谢以上热心的版主和网友

zxlf1314 - 2005-11-17 14:55:00

男人灌吧灌吧灌水不是罪！！！！！

风讯官方论坛