何为 > 网站研究 > 正文

动网研究心得

做一个供求信息，想来想去用dvbbs做算了。研究一下，改了点东西。

1、access数据库和网站分开存放，采用相对路径连接。

把access放在db目录，论坛文件放在web目录，conn.asp中连接路径Db = "\..\db\access.mdb"

打开论坛刷新看看，ok正常，进入后台看看，出错了

Server.MapPath() 错误 'ASP 0174 : 80004005'

无效 Path 字符

F:\xxxx\xxx\../Conn.asp，行 43

在 MapPath 的 Path 参数中发现了一个无效的 '/' 或 '\'。

奇怪！哪里有问题呢。想想动易的数据库可以和网站分开放，按道理动网也一样啊，把动易的const.asp找出来仔细对比。发现问题了！

动易的就是Source=" & Server.MapPath(db)，而动网是Source = " & Server.MapPath(MyDbPath&db)

把MyDbPath&去掉再试试，ok，搞定了。再回过来看看MyDbPath&有什么用。

开始定义了MyDbPath

Dim Conn,Plus_Conn,Db,MyDbPath

然后设置MyDbPath = ""

这不是多余吗

不管了，去掉了！

2、去掉一系列垃圾和修改模板

3、去掉搜一搜。

发现每个帖子上面有一个搜一搜，而且随刷新颜色还在变化，一会红，一会绿，在模板到处找没找到，去动网搜索一下，找到了。

在“风格界面模板总管理”——(Main_Style) ——界面风格——Dvbbs.mainhtml(5)
找到 <div style="float:right;">{$SearchStr} </div>

就是{$SearchStr}，我们当然不是要删，而是要修改，那么这个东西在哪里改呢，把论坛的源文件搜索一下，找到了，在/inc/Dv_ClsMain.asp这个文件里定义了SearchStr，找到这里就好改了，哈哈，想改成baidu搜索不是太简单了！

4、去掉论坛通行证

第一：去掉点“登录”时输入通行证的方法：
动网默认风格分页面模板(page_login)界面风格管理 template.html(1)，将全部内容屏蔽掉或删除。

第二：首页登陆时显示的“论坛通行证”去除
动网默认风格分页面模板(page_index)界面风格管理 template.html(0)，将下面一大段屏蔽掉。

第三：重登陆或登陆失败时的登陆页面“论坛通行证”去除
动网默认风格分页面模板(page_login)界面风格管理 template.html(0)

删掉此句： {$rayuserlogin}

第四：注册页面的“论坛通行证”去除
动网默认风格分页面模板(page_login)界面风格管理 template.html(13),将下面一大段屏蔽掉。

第五：用户控制面板下拉菜单里的“设置论坛通行证”项去除
动网默认风格分页面模板(main_style)界面风格管理Dvbbs.mainhtml(17)，屏蔽或删除这句：

4、发送邮件和群发邮件

仍然以sougou的企业邮箱为例，采用jmail组件，打开admin/SendEmail.asp，找到Cint(Dvbbs.Forum_Setting(2)) ，jmail就改为1。

群发出错提示：msxml3.dll 错误 '80070003' 系统找不到指定的路径。

找到admin/SendEmail.asp，找到第13行：FilePath = MyDbPath & "data/SendMailLog.config" ,把“data
”改为现在数据库文件夹的名字，我的是filepath= "\..\db\SendMailLog.config"

错误提示“所选的组件不存在！”，这个嘛，打开 inc/Email_Cls.asp ，
直接搜索 Object = Value ，找到了这么一段：

===========================================
'设置选取组件 SendObject 0=Jmail,1=Cdonts,2=Aspemail
Public Property Let SendObject(Byval Value)
Object = Value
On Error Resume Next
===========================================

，改Object = Value 为 Object = 1 ，（假设你的服务器支持Jmail就是1，支持CDONTS 就填2，支持Persits就填3，支持CDO.Message就填4拉~），保存。

最重要的，管理员的email必须和邮件登录用户名一样。全部设置好，绝对没有问题了，测试成功！

5、title修改的问题

第一首页index.asp的title前面的内容在(page_index)语言包管理第一个template.Strings(0)

第二title中的[]去掉在inc/Dv_ClsMain.asp文件修改

找到

'搜索引擎优化部分
If Request("IsSearch_a") <> "" Then stats = stats & "-网站地图"
Nowstats=Replacehtml(Nowstats)
If IsSearch Then
Response.Write Replace(Replace(Replace(mainhtml(1),"{$keyword}",Replace(Forum_info(8),"|",",")),"{$description}",Forum_info(10))&vbNewLine,"{$title}",stats &" - "& Forum_Info(0) &"" & Now())
Else
Response.Write Replace(Replace(Replace(mainhtml(1),"{$keyword}",Replace(Forum_info(8),"|",",")),"{$description}",Forum_info(10))&vbNewLine,"{$title}",stats &" - "& Forum_Info(0) &"")
End If
'搜索引擎优化结束

修改这里，需要自己研究，有点麻烦。