- 中国开源CMS第一品牌怎么实现163阅读页面顶一下的效果！！

zhaxia - 2008-3-5 19:06:00

http://news.163.com/08/0305/09/468SSLL30001124J.html

如题！

随便说下，聚合怎么不能用啊！

cyxjq - 2008-3-5 21:51:00

顶一下目前4没有

sicend - 2008-3-5 22:59:00

有插件，搜索一下论坛digg

zhaxia - 2008-3-6 00:27:00

搜了!没有!!!!

希望官方能在下个版本中发布此功能...

会做的高手先做下..

ttao - 2008-3-6 09:31:00

digg功能,已经在net产品中具备了.

zhaxia - 2008-3-6 13:18:00

可是我的空间不支持。NET啊！
郁闷死了。

asetle - 2008-6-19 07:55:00

引用:

原帖由 ttao 于 2008-3-6 09:31:00 发表
digg功能,已经在net产品中具备了.

这种回答等于废话，大家现在问的是fs400sp5的。

asetle - 2008-6-19 08:00:00

引用:

原帖由 ttao 于 2008-3-6 09:31:00 发表
digg功能,已经在net产品中具备了.

除了风讯net，很多系统都具备了。:default12:

星空星愿 - 2008-6-20 11:46:00

以前在论坛就有朋友发过一个Digg的插件,fun4系列的

fesoo - 2008-6-20 14:08:00

论坛换程序了`搜索不到!

asplove - 2008-7-3 10:56:00

4.0这么久都不更新了,郁闷......

cyxjq - 2008-7-3 13:04:00

Digg的实现原理
Digg概念源自美国Digg公司。它完全是依靠真实的网民的自己力量。网站上所有内容都是由网民自己发布，并且内容的位置也是由网民自己来决定。当内容的顶数，评论等达到一定的数字，这些内容就有可能从众多的信息中脱颖而出。

　　Digg自诞生之日起就以一种崭新的“新闻过滤器”模式和独立的新闻立场给互联网世界带来了强烈的影响。它是依靠网友的力量对资讯进行筛选、推荐、投票，进而生成用户自己的内容。

　　目前国内就有不少网站采用了开源程序进行Digg网站的建设，用以吸引“顶客”人群，如知名的IT媒体社区Donews的Dig频道；另外还有一些自行开发或者基于开源程序后期开发的Digg网站，较为知名的有我顶网（wodingg.com）等。

　　这段时间我也开发了相关功能插件，下面把该Digg功能的关键代码贴出来：

stype = NoSqlHack(request("post")) '得到提交类型，分Digg和bury
spanid = NoSqlHack(request("id"))'得到新闻ID
if stype="" or spanid="" then
response.Write("r")'类型或者新闻ID为空时返回错误字符R
response.End()
end if

select case stype
case "show"'类型为显示Digg数
set Digg_RS=Conn.execute("select Digg from FS_NS_News where ID="&spanid&"")
if not Digg_RS.eof then TmpStr = cstr(Digg_RS(0))
response.Write("document.write('"&TmpStr&"')")
RsClose()
case "digg"'类型为Digg提交
Deltime = DateDiff("D",2,GetTime)'删除一天后的Digg用户记录
'Response.write(Deltime)
Conn.execute("DELETE from FS_NS_Digg where DiggTime<"&Deltime)
set Digg_RS=Conn.execute("select * from FS_NS_Digg where ip = '"&ip&"' and NewsID = "&spanid&"")'判断是否有相同IP用户在同一天内对同一新闻进行Digg操作，有则返回错误字符R
if not Digg_RS.eof then
response.Write("r")
else
Conn.execute("insert into FS_NS_Digg(IP,NewsID,DiggTime) values('"&ip&"',"&spanid&",'"&GetTime&"')")'向数据库插入Digg日志
Conn.execute("Update FS_NS_News set Digg=Digg+1 where ID="&spanid&"")'更新Digg数
set Digg_RS=Conn.execute("select Digg from FS_NS_News where ID="&spanid&"")
if not Digg_RS.eof then TmpStr = cstr(Digg_RS(0))
response.Write(TmpStr)
end if
RsClose()
case else
response.Write("r")
end select

完了前台用ajax取得数据!

cyxjq - 2008-7-3 13:12:00

这个插件我收藏了!如果有需要的联系我!for 风讯4.0 sp4

安装前提：风讯CMSsp4 Access版，其它版本我没有测试过，不保证功能的完好性。
1。此插件解压后共有五个文件
|-------Ksir_Digg_Install.asp (安装主文件)
|-------Ksir_Digg_Tmp (安装库)
|-------diggbg.png (Digg背景图片)
|-------digg样式.txt (Digg标签制作代码)
|-------安装方法.txt (说明文档)
2。开始安装，把前三个文件放到风讯CMS系统的根目录，如果风讯CMS安装的方式为虚拟目录，请手动修改前三个文件的相关路径。完了在浏览器里输入http://www.xxx.com/Ksir_Digg_Install.asp 进行自动安装。(点击开始更新按钮即可)请确保部分目录有可写权限。
3。在风讯后台“样式管理”中制作“Digg样式”，把“digg样式.txt”文件中的所有内容做为样式内容。接下来制作“Digg标签”，制作方式是直接引用做好的“Digg样式”即可。
4。在模板中调用做好的“Digg标签”即可实现Digg功能，祝你成功！

提示：该插件在安装过程中会自动在风讯CMS数据库中创建“FS_NS_Digg”数据表，并会在“FS_NS_News”数据表里添加“Digg”字段。

风讯官方论坛