呵呵,应本论坛一坛友定做的,故暂时不能提供给大家使用
我所用的相关版本是:
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编辑过]
首先把压缩包里的的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我。
支持楼主!我试试,可以用,再来捧你的场
我试过了,SP1是可以的
呵呵
最后在根目录INC下面
这个文件在那里啊
问题已经解决可以正常使用...
楼主高手啊
我都说很简单了!呵呵,自己慢慢用着把,以后只要数据库的字段不变都可以用
高手,现在才起床,就马上来捧你的帖~~不错!!都是强人一簇呀~现在方便多了~给你一个香吻代表所有女孩的心!
[em02][em01]最后在根目录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" '论坛数据库
%>
嘿嘿谢谢楼上的,上次没有发清楚……
还有一个文件忘记发了,这个是用来做帖子一共有多少人回复使用的
在根目录下面建立一个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%>')
不错,支持
geiplnum.asp
不起作用啊
有,我自己的采集系统可以采集论坛的
老子就对风讯失去了信心了,自己写自己来用
geiplnum.asp
不起作用啊
不错呢.
要是能把你的站发出来给大家交流交流就好了
高手,现在才起床,就马上来捧你的帖~~不错!!都是强人一簇呀~现在方便多了~给你一个代表所有女孩的心!
[em02][em01]香吻也要噢!