动网7.0论坛十几大常见问题解决办法！[肿瘤咨询在线论坛]

楼主

动网7.0论坛十几大常见问题解决办法！

让动网论坛7版用户cookie及登陆全站共享的修改方法

'==============声明及说明==================
1、本方法适用于动网论坛 Dvbbs ver7.0及其以上版本。
2、本方法依存于动网论坛 Dvbbs ver7.0，修改仅限于个人使用，商业使用者请联系动网开发小组以获得授权。
3、本方法修改结果请参看中国维修网。
　　网站地址：http://www.weixiuwang.com
　　论坛地址：http://www.weixiuwang.com/club
　　测试用户：admin 密码：adminadmin
4、本方法修改者：中国维修网-惊云（动网论坛ID：中维网）。
5、本方法修改使用为个人自愿行为，本人不对任何人自行修改带来的任何结果及后果承担任何责任。
6、本人联系方法：
　　　　QQ：11402641
　　　　email: zy@21wx.net
　　　　电话：13882019461(短信不回，只接电话）
7、这一点就是私心了，呵呵，本方法本人参悟了近3天时间，耗费了不少心思，不过修改方法倒是简单，我不提供修改后的文件下载，大家可以参考一下方法自行修改。有一点希望，就是希望使用的朋友给我做个友情连接，也是宣传嘛，连接是自愿的，先谢过了。
'==============声明结束=====================
修改步骤：
1、修改工具：UltraEdit编辑器
2、需要修改的文件名称
本次修改的文件共有三个
1) inc/Dv_ClsMain.asp
2) login.asp
3) logout.asp
3、修改方法
1）定义为通用名称
     打开inc/Dv_ClsMain.asp

   这一步的主要目的是将论坛的COOKIE名称定义为通用名称
     在本文件的开头定义变量
     dim mybbsdir
     MyBbsDir = "/club/"             '你论坛所在目录

Class Cls_Forum
Rem Const
  找到第28行(增加上两行后就是第31行)，本行原文是：
     CacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","")
     改为
     CacheName = "ilovecsw"

     找到第31行(增加上两行后就是第34行)，本行原文是：
     Forum_sn = CacheName:Vipuser = False:Boardmaster = False
     改为
     Forum_sn = "ilovecsw"
2）更改Cookies目录
   这一步的主要目的将论坛的cookies目录定义为全局目录，即根目录"/"
     ①打开inc/Dv_ClsMain.asp
       寻找 Response.Cookies(Forum_sn).path=cookiepath
       应该共有三个
       替换为：
       Response.Cookies(Forum_sn).path="/"
     ② 打开login.asp
       寻找 Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
       应该共有五个，其中一个是：Response.Cookies(Dvbbs.Forum_sn).path = Dvbbs.cookiepath（等号两旁有空格）
       替换为：
       Response.Cookies(Dvbbs.Forum_sn).path="/"
     ③ 打开logout.asp
       寻找 Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath 第27行
       应该只有一个
       替换为：
       Response.Cookies(Dvbbs.Forum_sn).path="/"
   至此，修改完毕，即可以达到cookies全站通用的目的了
   3）更改用户登陆是返回地址
       目的：让从非bbs目录登陆的用户能够返回登陆页
       方法：
     ① 打开login.asp
     找到第125行：
       Dim comeurlname
If instr(lcase(request("comeurl")),"reg.asp")>0 or instr(lcase(request("comeurl")),"login.asp")>0 or trim(request("comeurl"))="" Then
  comeurlname=""
  comeurl="index.asp"
Else
  comeurl=request("comeurl")
  comeurlname="<li><a href="&request("comeurl")&">"&request("comeurl")&"</a></li>"
End If
     改为
       Dim comeurlname
If request.serverVariables("http_referer")<>"" and InStr(request.serverVariables("http_referer"),MyBbsDir)>0 Then
  If instr(lcase(request("comeurl")),"reg.asp")>0 or instr(lcase(request("comeurl")),"login.asp")>0 or trim(request("comeurl"))="" Then
   comeurlname=""
   comeurl="index.asp"
  Else
   comeurl=request("comeurl")
   comeurlname="<li><a href="&request("comeurl")&">"&request("comeurl")&"</a></li>"
  End If
Else
  Response.Redirect request.serverVariables("http_referer")
End If

     ②打开logout.asp
       寻找第36行
       Response.Redirect Dvbbs.Forum_Info(11)
       改为
       If request.serverVariables("http_referer")<>"" and InStr(request.serverVariables("http_referer"),MyBbsDir)>0 Then
  Response.Redirect Dvbbs.Forum_Info(11)
Else
  Response.Redirect request.serverVariables("http_referer")
End If
好了，修改完了
到了这里，你的整个网站就都可以使用论坛的cookies了，而且登陆和退出时都会自动返回你所在的页面
你可以在其他地方取的COOKIES数据为：
   Request.Cookies("ilovecsw")("username")   '用户名，对应[dv_user]表的username字段
   Request.Cookies("ilovecsw")("password")   '用户随机密码，对应[dv_user]表的truepassword字段
   Request.Cookies("ilovecsw")("userid")     '用户id，对应[dv_user]表的userid字段
主要修改部分就这么多，其他的目录权限设置等等，请自行解决，谢谢。

上传头像自动改名
修改REG.ASP

就改这两个

upface="uploadFace/"&facename
newfilename="uploadFace/"&Dvbbs.userid&"_"&facename

改成下面的

upface="uploadFace/"&Dvbbs.userid&"_"&facename
newfilename="uploadFace/"&Dvbbs.userid&"_"&facename

上传文件不能超过200k问题解决方法

dispbbs.asp?BoardID=8&ID=563583

区固顶图标不显示的【解决办法】

在list.asp文件中找到

function Show_List_Footer()
Dim TempStr
TempStr=template.html(5)
TempStr=Replace(TempStr,"8",Dvbbs.BoardID)
TempStr=Replace(TempStr,"98%",Dvbbs.mainsetting(0))
TempStr=Replace(TempStr,"{$boardjump}",Dvbbs.BoardJumpList)
TempStr=Replace(TempStr,"{$forumname}",Dvbbs.Forum_Info(0))
TempStr=Replace(TempStr,"{$timestr}",Dvbbs.Forum_Info(9))
TempStr=Replace(TempStr,"{$pic_toptopic}",Dvbbs.mainpic(1))
TempStr=Replace(TempStr,"{$pic_atoptopic}",Dvbbs.mainpic(0))
TempStr=Replace(TempStr,"{$pic_opentopic}",Dvbbs.mainpic(2))
TempStr=Replace(TempStr,"{$pic_hottopic}",Dvbbs.mainpic(3))
TempStr=Replace(TempStr,"{$pic_locktopic}",Dvbbs.mainpic(4))
TempStr=Replace(TempStr,"{$pic_besttopic}",Dvbbs.mainpic(5))
TempStr=Replace(TempStr,"{$pic_votetopic}",Dvbbs.mainpic(6))
Response.Write TempStr
TempStr=""
End function
增加一条：

function Show_List_Footer()
Dim TempStr
TempStr=template.html(5)
TempStr=Replace(TempStr,"8",Dvbbs.BoardID)
TempStr=Replace(TempStr,"98%",Dvbbs.mainsetting(0))
TempStr=Replace(TempStr,"{$boardjump}",Dvbbs.BoardJumpList)
TempStr=Replace(TempStr,"{$forumname}",Dvbbs.Forum_Info(0))
TempStr=Replace(TempStr,"{$timestr}",Dvbbs.Forum_Info(9))
TempStr=Replace(TempStr,"{$pic_toptopic}",Dvbbs.mainpic(1))
TempStr=Replace(TempStr,"{$pic_toptopic1}",Dvbbs.mainpic(19))
TempStr=Replace(TempStr,"{$pic_atoptopic}",Dvbbs.mainpic(0))
TempStr=Replace(TempStr,"{$pic_opentopic}",Dvbbs.mainpic(2))
TempStr=Replace(TempStr,"{$pic_hottopic}",Dvbbs.mainpic(3))
TempStr=Replace(TempStr,"{$pic_locktopic}",Dvbbs.mainpic(4))
TempStr=Replace(TempStr,"{$pic_besttopic}",Dvbbs.mainpic(5))
TempStr=Replace(TempStr,"{$pic_votetopic}",Dvbbs.mainpic(6))
Response.Write TempStr
TempStr=""
End function

关于设置“绿色醒目”错误的解决方法
在后台的风格界面模版总管理中，修改分页面模板(page_post) 的界面风格，把 template.html(6) 中的代码做如下修改：

  <input type="checkbox" name="reishow" value="" onclick="showtitle();">
标题<span id=advance>采用</span>“回复：XXX....”
||
<select name="topicximoo" size=1><option value=0>标题醒目</option><option value=1>HTML支持</option><option value=2>红色醒目</option><option value=3>蓝色醒目</option><option value=4>绿色醒目</option></select>
||
<select name=votetimeout size=1><option value=0>过期时间</option><option value=0>永不过期</option><option value=1>一天</option><option value=3>三天</option><option value=7>一周</option><option value=15>半月</option><option value=30>一月</option><option value=90>三月</option><option value=180>半年</option></select>
||
  <input type=checkbox name=locktopic value=yes>帖子锁定  <input type=checkbox name=istop value=yes>帖子固顶  <input type=checkbox name=istopall value=yes>帖子总固顶
||<select name=topicmode size=1><option value=0 >选择所属专题</option>{$TopicMode}</select>

红色的部分原来是 3 ，改为4，即可修复 “绿色醒目”错误的问题！

在线图例无法显示版主的解决办法：

后台编辑版主组，选那个在前台显示

7.0与6.x同在一个服务器上出现冲突的问题解决办法

请把7.0所有文档中的

session("userid")

改成

session("dv7_userid")

自定义组无法固定帖子的解决方法

admin_postings.asp，行 158
If Cint(Dvbbs.GroupSetting(21))=1 and Dvbbs.UserGroupID>3 Then LocalCanTopTopic

==>
If Cint(Dvbbs.GroupSetting(21))=1 and Dvbbs.UserGroupID>3 Then LocalCanTopTopic=True

『用户控制面板』中『我的展区』有错误的解决方法

该连接始终指向admin用户的解决办法
后台》风格界面模板总管理》分页面模板(page_usermanager) 》界面风格新》template.html(1)

将原来的东西替换成下面就行了

<table cellpadding=0 cellspacing=6 width="{$TableWidth}" align=center style="word-break:break-all;">
<tr align=center>
<td width=28% valign=top>
<table align=center style="width:100%" height=100% cellspacing=1 cellpadding=6 class=tableborder1>
<tr><th height=25 ID="TableTitleLink">用户头像 [<a href="dispuser.asp?name={$username}" target=_blank>预览资料</a>]</th></tr>
<tr align=center><td class=tablebody1>
{$user_Face}
</td></tr>
<tr><th height=25>基本信息</th></tr>
<tr><td align=left class=tablebody1 valign=top>
用户头衔：{$user_Title}<br>
用户等级：{$user_Group}<br>
用户财富：{$user_Wealth}<br>
用户经验：{$user_EP}<br>
用户魅力：{$user_CP}<br>
精华帖数：{$user_IsBest}<br>
帖数总数：{$user_Article}<br>
注册时间：{$user_AddDate}<br>
登陆次数：{$user_Logins}<br>
<br>
<a href="Query.asp?stype=1&nSearch=3&keyword={$username}&SearchDate=all" target=_blank>我的新贴</a> | <a href="Query.asp?stype=4&nSearch=0&pSearch=0&keyword={$username}" target=_blank>我的热贴</a> | <a href="Query.asp?stype=6&nSearch=0&pSearch=0&keyword={$username}" target=_blank>我的精华</a> | <a href="show.asp?username={$username}" target=_blank>我的展区</a>
</td></tr></table>
<br>
<table align=center cellspacing=1 cellpadding=6 class=tableborder1 style="width:100%;height:100%">
<tr><th height=25>好友在线</th></tr>
<tr align=center><td class=tablebody1 align=left>{$friend_Info}</td></tr>
<tr><td height=25 class=tablebody2>＊点击图标给好友发送短讯！</td></tr></table>
</td><td valign=top>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:100%;height:29;word-break:break-all;">
<tr><th height=25 align=left>-=> 论坛短信息</td></tr>
<tr><td class=tablebody1>目前您有<font color="{$color}"><b> [{$msg_newincept}] </b></font>条的新短消息。,<a href=usersms.asp?action=inbox><font color="{$color}">收件箱</font></a>中共有 <b>[{$msg_incept}]</b> 条信息，<a href='usersms.asp?action=issend'><font color="{$color}">发件箱</font></a>中共有 <b>[{$msg_send}]</b> 条信息对方未查阅。<br></td></tr>
</table><br>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:100%">
<tr><th colspan=5 height=25 align=left>-=> 最新收到的短讯</th></tr>
<tr><td align=center valign=middle width=30 class=tabletitle2><b>状态</b></td><td align=center valign=middle width=100 class=tabletitle2><b>发件人</b></td><td align=center valign=middle width=* class=tabletitle2><b>主题</b></td><td align=center valign=middle width=120 class=tabletitle2><b>日期</b></td><td align=center valign=middle width=60 class=tabletitle2><b>大小</b></td></tr>
{$msglist}
</table><br>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:100%;word-break:break-all;">
<tr><th colspan=5 height=25 align=left>-=> 最新上传文件</th></tr>
<tr><td align=center valign=middle width=30 class=tabletitle2><b>属性</b></td><td align=center valign=middle width=100 class=tabletitle2><b>大小</b></td><td align=center valign=middle width=* class=tabletitle2><b>文件</b></td><td align=center valign=middle width=120 class=tabletitle2><b>日期</b></td><td align=center valign=middle width=60 class=tabletitle2><b>类型</b></td></tr>
{$filelist}
</table><br>
</td></tr></table>

新换模版不能发表主题的解决方法

dispbbs.asp?boardid=8&id=565300

升级你的动网插件到7、0

1、修正你的插件中所有连接到动网70数据库的表列名称。
2、调用论坛文件头的地方换成新的调用代码。
例如：

以前的写法：
PageName="z_music_default"
stats="茶座首页"
call nav()
call head_var(0,0,"音乐茶座","z_music_default.asp")
修改为：
Dvbbs.BoardID=0
Dvbbs.LoadTemplates("index")
Dvbbs.Stats="茶座首页"
Dvbbs.Nav()
3、修改涉及用到用户数据的地方
例如：
以前调用当前用户名用这个变量：membername
修改成：Dvbbs.membername，用这样形式的变量模式
依次类推 UserID该为Dvbbs.UserID，master该为Dvbbs.master等。
4、修改尾部调用函数：call footer()，修改成：Dvbbs.Footer()。
经过以上初步调整插件基本可用，由于插件的结构不同，不能具体举例说明，请见量！

签名档和图片变小的方法

在文件 /Inc/Main.js 最后一点点 function imgload(e){
var oImg = document.images;
var oClientSreen=screen.width-333;
for(var i=0;i<oImg.length;i++) {
if(oImg[i].height>500 && oImg[i].width<oClientSreen)
{
   oImg[i].style.height=300;
}
if(oImg[i].width>oClientSreen){oImg[i].style.width=oClientSreen;}
}
} 以上代码红色部分是长和宽，修改成你要的就可以了，改成800 600就可以了

显示现金和魅力的办法

风格界面模板总管理--->

分页面模板(page_dispbbs)
template.html(2)内找到
{$usertitle}
  等级：{$userclass} <BR>
{$userpower}
  文章：{$article}<br>
  积分：{$userep}<br>

改成
{$usertitle}
  等级：{$userclass} <BR>
{$userpower}
  文章：{$article}<br>
  现金：{$userwealth}<br>
  魅力：{$usercp}<br>
  积分：{$userep}<br>
template.html(4)内寻找
str = str.replace(/{\$userclass}/gi,userclass);
str = str.replace(/{\$article}/gi,article);
str = str.replace(/{\$userep}/gi,userEP);
str = str.replace(/{\$regdate}/gi,addDate);
str = str.replace(/{\$dateandtime}/gi,dateandtime);
str = str.replace(/{\$ip}/gi,ip);
str = str.replace(/{\$fontsize}/gi,fontsize);
str = str.replace(/{\$lineheight}/gi,lineheight);
str = str.replace(/{\$tablebody}/gi,tablebody);
str = str.replace(/{\$birthday}/gi,astro(birthday));
str = str.replace(/{\$onlinepic}/gi,OnlinePic(isOnline,***));
str = str.replace(/{\$tableline}/gi,mainsetting[12]);
str = str.replace(/{\$namestyle}/gi,namestyle(UserGroupID));
改成
str = str.replace(/{\$userclass}/gi,userclass);
str = str.replace(/{\$article}/gi,article);
str = str.replace(/{\$userwealth}/gi,userWealth);
str = str.replace(/{\$usercp}/gi,userCP);
str = str.replace(/{\$userep}/gi,userEP);
str = str.replace(/{\$regdate}/gi,addDate);
str = str.replace(/{\$dateandtime}/gi,dateandtime);
str = str.replace(/{\$ip}/gi,ip);
str = str.replace(/{\$fontsize}/gi,fontsize);
str = str.replace(/{\$lineheight}/gi,lineheight);
str = str.replace(/{\$tablebody}/gi,tablebody);
str = str.replace(/{\$birthday}/gi,astro(birthday));
str = str.replace(/{\$onlinepic}/gi,OnlinePic(isOnline,***));
str = str.replace(/{\$tableline}/gi,mainsetting[12]);
str = str.replace(/{\$namestyle}/gi,namestyle(UserGroupID));

"查看新贴"显示跟贴(回复)的办法 7.0

修改query.asp

第250行改为:
ElseIf stype=3 Then
SqlColumn = "Select Top 100 boardid,rootid,topic,Expression,username,postuserid,dateandtime,ParentID,LockTopic,Body,announceid from "
第314行改为:
'最新50贴
Case 3
if request("BoardID")>0 then
SqlColumn = SqlColumn &" "&stable&" where BoardID="&trim(request("BoardID"))&" ORDER BY announceID desc"
else
     SqlColumn = SqlColumn &" "&stable&" ORDER BY announceID desc"
end if
第509行改为:
   TempStr2 = Replace(TempStr2,"{$topic}","  --RE: "&Left(Dvbbs.HtmlEncode(Replace(Replace(TempData(9,i),chr(10),""),chr(13),"")),26))

树型显示的修改办法：
506行开始：If InStr(SqlColumn,"Body")>0 Then 至 TempStr3 = TempStr3 & TempStr2 修改为:
If InStr(SqlColumn,"Body")>0 Then

   If Trim(TempData(2,i))="" Then
   TempStr2 = Replace(TempStr2,"{$linkinfo}","&ID=" & TempData(1,i) & "&replyID=" & TempData(10,i) & "&skin=1")
   TempStr2 = Replace(TempStr2,"{$topic}","  --RE: "&Left(Dvbbs.HtmlEncode(Replace(Replace(TempData(9,i),chr(10),""),chr(13),"")),26))
   Else
   TempStr2 = Replace(TempStr2,"{$topic}",Left(Dvbbs.HtmlEncode(TempData(2,i)),26))
   TempStr2 = Replace(TempStr2,"{$linkinfo}","&ID=" & TempData(1,i) & "&replyID=" & TempData(10,i))
   End If
Else
   TempStr2 = Replace(TempStr2,"{$topic}",Left(Dvbbs.HtmlEncode(TempData(2,i)),26))
   TempStr2 = Replace(TempStr2,"{$linkinfo}","&ID=" & TempData(1,i))
End If
TempStr3 = TempStr3 & TempStr2

提供纯净版的Mac风格下载
下载地址：
http://www.tdnforce.net/down/纯净版Mac.rar

演示：http://www.tdnforce.net/ro

上传图片自动加载版权信息的说明
http://bbs.dvbbs.net/dispbbs.asp?boardID=8&ID=560125&page=1

7.0如何解固

按CTRL键同时MOUSE点击阴影，消除阴影后，保存修改，OK？

如何取消刚刚注册20分钟内不能发贴 后台－－用户组权限－－注册用户

我是网站清洁工。