-- 作者:管理员
-- 发布时间:2004-2-27 6:52:04
-- 动网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) 中的代码 做如下修改: <!--post.asp##合集部分--> <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)
将原来的东西替换成下面就行了 <!--usermanager.asp##控制面板主体部分--> <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=管理员" 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=管理员&SearchDate=all" target=_blank>我的新贴</a> | <a href="Query.asp?stype=4&nSearch=0&pSearch=0&keyword=管理员" target=_blank>我的热贴</a> | <a href="Query.asp?stype=6&nSearch=0&pSearch=0&keyword=管理员" target=_blank>我的精华</a> | <a href="show.asp?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,""," --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,""," --RE: "&Left(Dvbbs.HtmlEncode(Replace(Replace(TempData(9,i),chr(10),""),chr(13),"")),26)) Else TempStr2 = Replace(TempStr2,"",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,"",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分钟内不能发贴 后台--用户组权限--注册用户
|