风讯官方论坛

首页 » FoosunCMS交流区 » 插件讨论 » [新]一个可以把DVBBS论坛的帖子设置成文章的插件[已更新2006-2-22]
QQ3339448 - 2005-8-13 23:51:00

呵呵,应本论坛一坛友定做的,故暂时不能提供给大家使用


我所用的相关版本是:


DVBBS 7。01SQL版本(ACCESS版本同样适用)
FS3。1(3。0)SQL/ACCESS同样试用


其他说明:本插件不对FS和BBS进行任何代码修改,所以对FS和BBS的升级无任何影响!


大家看我的操作如下:


1、首先设置一个可以投稿的栏目,这个谁都知道,建议专门设立一个论坛稿件栏目


2、把插件的配置文件打开并修改好配置,之后上传到论坛跟目录,然后稍微修改一下论坛的模版
(仅对这里进行对论坛的修改,但非常简单)如果设置都没有错误,插件就完成了


3、在论坛的显示效果如下(只要两个步骤,就可以简单的把一个帖子转到文章系统里去):

随便点开一个论坛主题,大家看到这里


[upload=bmp]UploadFile/2006-2/200622212325342600.bmp[/upload]


填写验证后点确认就可以了!
[upload=bmp]UploadFile/2006-2/200622212332452268.bmp[/upload]


递交后,系统会给出成功提示,如果是重复投稿系统一样也会提示的。


[upload=bmp]UploadFile/2006-2/20062221239216997.bmp[/upload]



然后大家看到 在FS的后台里,这个帖子已经进来了


审核或者修改都可以
[upload=jpg]UploadFile/2006-2/200622212383180108.jpg[/upload]



[此贴子已经被作者于2006-2-22 12:46:12编辑过]



附件: 806.rar

附件: 2998.bmp

附件: 2999.bmp

附件: 3000.jpg

附件: 3001.bmp
QQ3339448 - 2005-8-13 23:53:00

首先把压缩包里的的BBS拷贝到ADMIN/下面
下面三步走



1、修改admin/Menu_Folders.asp
搜索“function GetLocation(TypeStr,Obj)”
在JS函数下面加:(大概在500行左右)
  case 'bbsContent':
  LocationStr='Bbs/list.asp';
  break;



2、在您要的位置里加上入口(我是放在常规管理下面)


<table border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/folderclosed.gif" width="24" height="22"></td>
          <td><span onclick="ClickBtn(this,'bbsContent');" class="TempletItem">论坛来稿管理</span></td>
        </tr>
      </table>



3、最后在根目录INC下面
打开
加入下面三行(根据自己的情况修改)
Const bbsurl="http://www.molihua.net/bbs"
Const bbsname="茉莉花论坛"
Const BbsDataBase = "/bbs/DataSJK/bbs7.0.mdb" '论坛数据库
如果您是用SQL SERVER的请自行修改Admin\Bbs\inc\Config.asp里的连接字符串




这个自己写来玩的,有什么问题请DIY自己解决,别M我。

梦中女孩 - 2005-8-14 11:34:00

支持楼主!我试试,可以用,再来捧你的场

QQ3339448 - 2005-8-14 14:04:00

我试过了,SP1是可以的


呵呵

a402769 - 2005-8-15 09:05:00

最后在根目录INC下面


这个文件在那里啊

a402769 - 2005-8-15 09:12:00
我的论坛是SQL版的要怎么修改呢
a402769 - 2005-8-15 09:39:00

问题已经解决可以正常使用...


楼主高手啊

QQ3339448 - 2005-8-16 08:27:00

我都说很简单了!呵呵,自己慢慢用着把,以后只要数据库的字段不变都可以用

a402769 - 2005-8-16 17:53:00
这个好象就是利用到采集的原理吧.........厉害 哦
梦中女孩 - 2005-8-17 11:43:00

高手,现在才起床,就马上来捧你的帖~~不错!!都是强人一簇呀~现在方便多了~给你一个香吻代表所有女孩的心!

[em02][em01]
雨南 - 2005-8-18 01:05:00
以下是引用a402769在2005-8-15 9:05:00的发言:

最后在根目录INC下面


这个文件在那里啊



先谢谢楼主!!!太好了!


这个文件就是 Inc/Const.asp  风讯系统的根目录下的


<%
'////////////注意:单引号"'"不能去掉,请不要使用回车////////////
'////////////建议只改字符,不要增加、删除////////////
'==========================生成目录参数=======================================
Const AdminDir = "Admin/"                                                      '管理目录,必须带/
Const ClassDir = "html"                                                      '生成文件保存路径,后面不能带/
Const SysRootDir = ""                                                        '系统的虚拟目录,后面不能带/
Const UpFiles = "Files"                                                      '文件目录,带虚拟目录,后面不能带/
Const TempletDir = "Templets"                                          '模板文件目录,后面不能带/
Const BeyondPicDir = "BeyondPic"                                          '远程图片保存目录,后面不能带/,不能带虚拟目录
Const SaveImagePath = "BeyondPic"                                  '新闻采集远程图片保存地址,带虚拟目录,后面不能带/
Const DataBaseConnectStr = "/FooSun_Data/FooSun_Data.mdb"  '数据库连接路径,请不要删除,请注意虚拟目录
Const RecordDataBaseConnectStr = "/FooSun_Data/Record.mdb"  '归档数据库联接路径,请不要删除,请注意虚拟目录
Const RecordNewsListSavePath = "oldrecord"                  '归档新闻列表文件保存路径,后面不能带/
Const IPDataBaseConnStr = "/FooSun_Data/AddressIp.mdb" '流量统计IP数据库路径,如有虚拟目录,请前带虚拟目录
Const DownLoadDir = "DownLoad"                                              '下载文件存放目录
'==========================邮件控制参数=======================================
Const MailObject = "Jmail"                                                      '邮件发送组件
Const MailServer = "mail.cooin.com"                                        '用来发送邮件的SMTP服务器
Const MailServerUserName = "skeen@cooin.com"                      '登录用户名
Const MailServerPassword = "22222"                                        '登录密码
Const MailDomain = "cooin"                                                    '域名
'==========================版本控制参数=======================================
Const Copyright="\n\n FooSun Content Manage System V3.0sp1"    '系统版本信息,请不要改
'////////////配置信息结束////////////
Const bbsurl="http://www.8888888.com/bbs"
Const bbsname="论坛"
Const BbsDataBase = "/bbs/Data/dvbbs25625478454.asp" '论坛数据库
%>



QQ3339448 - 2005-8-20 10:11:00

嘿嘿谢谢楼上的,上次没有发清楚……

QQ3339448 - 2005-8-25 09:22:00

还有一个文件忘记发了,这个是用来做帖子一共有多少人回复使用的


在根目录下面建立一个geiplnum.asp


把下面的内容拷贝进去就可了


<!--#include file="Inc/Cls_DB.asp" -->
<!--#include file="Inc/Const.asp" -->
<%
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()


DBC.ConnStr = BbsDataBase
Set BbsConn = DBC.OpenConnection()
Set DBC = Nothing


Dim id,Sql,Rs,Num
id=Trim(Request("id"))
if id<>"" then
id=cint(id)
Sql="SELECT COUNT(*) AS Expr1 FROM dv_bbs1 WHERE (RootID = "&id&")"
Set Rs=BbsConn.execute(Sql)
if Rs.eof then
Num=0
else
Num=Rs(0)
end if
else
Num=0
end if



%>
document.write('<%=Num%>')

梦中女孩 - 2005-8-25 09:37:00

不错,支持

rchjia - 2005-8-26 15:24:00

geiplnum.asp


不起作用啊

yingchuo - 2005-8-27 13:39:00
能写个采集别人论坛上的帖子的采集插件吗?
QQ3339448 - 2005-8-30 09:10:00

有,我自己的采集系统可以采集论坛的


老子就对风讯失去了信心了,自己写自己来用

mytyw - 2005-9-1 14:41:00
非常好的功能,希望官方添加
zlxppp - 2005-9-11 16:03:00
支持一个!
clacwu - 2005-9-12 07:06:00
老大 有演示没
rchjia - 2005-9-13 00:31:00
以下是引用rchjia在2005-8-26 15:24:00的发言:

geiplnum.asp


不起作用啊

大家都没有这种情况吗?
mycys - 2005-9-14 15:15:00
强,就一个字,我只说一次
QQ3339448 - 2005-9-21 14:57:00
哈哈没有想到反响还不错呀!谢谢大家拉
梦中女孩 - 2005-9-26 20:30:00
再回来顶兄台一次!经过改装你的插件我已经实现了直接把电影网站、论坛、商城全部生成HTM~~~~老兄真是个抛砖引玉的好人咧~~哈哈~谢谢咯
rchjia - 2005-9-27 10:53:00
楼上的说一下你的做法吧
doscn - 2005-9-29 14:07:00
你的动网整合程序什么时候发布
833211 - 2005-9-30 14:21:00

不错呢.


要是能把你的站发出来给大家交流交流就好了

haha365 - 2005-10-3 06:20:00
哈哈,可惜我已经放弃DVBBS了
稻草人 - 2005-10-5 23:01:00
以下是引用梦中女孩在2005-8-17 11:43:00的发言:

高手,现在才起床,就马上来捧你的帖~~不错!!都是强人一簇呀~现在方便多了~给你一个代表所有女孩的心!

[em02][em01]

香吻也要噢!

qg - 2005-10-7 19:50:00

不错,支持


请楼主想个防止采集的方法,针对风讯生成的html

1234
查看完整版本: [新]一个可以把DVBBS论坛的帖子设置成文章的插件[已更新2006-2-22]