中国硬笔书法论坛

标题: 修改手记（技术笔记，请勿回复） [打印本页]

作者: 天下一人 时间: 2006-8-1 19:57:04 标题: 修改手记（技术笔记，请勿回复）

post.asp和savepost.asp文件中，找到    If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then      Dvbbs.AddErrCode(75)     ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then      Dvbbs.AddErrCode(76)     End If 改为    If Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then      Dvbbs.AddErrCode(76)     End If ——————同级别拥护不能修改问题方法一

[此贴子已经被作者于2006-8-1 12:01:09编辑过]

作者: 天下一人 时间: 2006-8-1 20:00:27

post.asp和savepost.asp文件中，找到    If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then      Dvbbs.AddErrCode(75)     ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then      Dvbbs.AddErrCode(76)     End If 把上面的< 4改为< 1同级别拥护不能修改问题方法二

[此贴子已经被作者于2006-8-1 12:01:20编辑过]

作者: 天下一人 时间: 2006-9-12 07:25:10

<ol><li style="MARGIN-BOTTOM: 15px;">自从SP1以后一直不再支持鼠标滚动放大缩小图片，如何让这一功能继续可以使用？ inc\dv_ubbcode.asp文件中找到 <div class="quote">     Rem 是否开启滚轮改变图片大小的功能，如果不需要可以屏蔽      Rem Node.attributes.setNamedItem(xml.createNode(2,"onmousewheel","")).text="return bbimg(this);"</div>改为 <div class="quote">     Rem 是否开启滚轮改变图片大小的功能，如果不需要可以屏蔽      Node.attributes.setNamedItem(xml.createNode(2,"onmousewheel","")).text="return bbimg(this);"</div>这样就可以继续使用鼠标放大缩小图片 </li><li style="MARGIN-BOTTOM: 15px;">补允声明：Main.js文件中设置图片显示模式 论坛一直采用自动缩小大图片的模式，否则太大的图片，一样显示不出来，有些朋友经常提起，图片缩小显示后，图片右侧的空白地方太大，看起来影响视觉。 05.11更新的main.js文件中可以设置图片的显示模式，下面来看如何设置 打开文件inc\Main.js文件，找到 <div class="quote">var resizemode=1 </div>改动这里的数字，当设置为1时，图片自动适应窗口，这样可以避免图片右侧的空白区域(默认设置为1) 当设置为2时，将以老模式显示图片，图片被缩小至固定大小，宽度约为500像素。</li></ol>

作者: 天下一人 时间: 2006-9-12 20:49:54

Loadservoces.asp 文件 找到： Application(Dvbbs.CacheName & "_TextAdservices").documentElement.appendChild( Application(Dvbbs.CacheName & "_TextAdservices").createNode(1,"text","")).text="<iframe src="""&Dvbbs_Server_Url&"dvbbs/DvDefaultTextAd.asp"" height=""23"" width=""100%"" marginwidth=""0"" marginheight=""0"" hspace=""0"" vspace=""0"" frameborder=""0"" scrolling=""no""></iframe>" 注释掉或删掉 接下来，找到： xmlserverurl="<a href="http://server.dvbbs.net/dvbbs/Dv_xmlservices.asp" target="_blank"></a><a href="http://server.dvbbs.net/dvbbs/Dv_xmlservices.asp" target="_blank">http://server.dvbbs.net/dvbbs/Dv_xmlservices.asp</a><a target="_blank"></a>" 注释掉或删掉 上传后更新一下缓存。去掉国内最大

作者: 天下一人 时间: 2006-11-3 12:35:54

一、缘由及思路 发帖机遇很好的功能，可惜到了7.1Sp1以后，只有看到没有开关的机遇程序，今天自己琢磨一下，小修改了使在7.0SP2上的完全适应7.1SP1~ 这个功能我是很需要，不知道大家是不是也很需要开关，尤其是防止编辑刷机遇，呵呵 主要改动：针对  分页面模板<a href="http://localhost/bbs/admin/template.asp#" target="_blank">(page_dispbbs)</a>  template.html(0) 已全部xml化，用老的会发生xml格式不对，加上我也没时间研究xml，所以把老的 <script>if(document.location.toString().indexOf("action=edit")==-1)document.write('<input type=checkbox name="neededdul" value="ON" id=eddulid><label for=eddulid>发贴机遇</label>');</script> 改称脚本文件，使用<script language = "Javascript" src = "post.js" type="text/javascript"></script>方式来调用，我用的很好 二、安装说明： 本插件的安装需要修改1个文件，建议您在修改前先备份文件savepost.asp！ 1.请将plus_eddul.asp放在bbs目录下 2.修改savepost.asp 打开该文件，找到 TempStr = Replace(TempStr,"{$returnurl}",returnurl) 改为 call eddulf() TempStr = Replace(TempStr,"{$returnurl}",returnurl) 在顶头   后面添加  三、stardy增加发帖际遇开关相关说明： 修改方法： 1）进入后台界面风格管理，点page_post界面风格，修改template.html(0) 找到代码： <input type="radio" name=emailflag value="3" {$checkbox5}>邮件和短信通知 在后面插入一行代码： <script language = "Javascript" src = "jiyupost.js" type="text/javascript"></script> 注：此处也可以直接加入jiyupost.js中的代码 jiyupost.js 的文件当然是随你自己喜欢，路经不要忘了相对应，我是直接放到bbs下的，所以就不加了 if(document.location.toString().indexOf("action=edit")==-1) document.write('<input type=checkbox name="neededdul" value="ON" id=eddulid checked><label for=eddulid>发贴机遇</label>'); checked  为默认使用，如不想默认钩住发帖机遇就去掉 2）编辑分页面模板<a href="http://localhost/bbs/admin/template.asp#" target="_blank">(page_dispbbs)</a>  template.html(0) 找到： <input type="Submit" value="OK!发表回复" name="Submit" style="margin:3px;"/> <input type="button" value="预览" name="Button" style="margin:3px;" onclick="Gopreview()" /> <input style="margin:3px;" type="reset" name="Clear" value="清空内容！" onclick="ClearReset()"/> 内容限制：<input class="Dvbbs_Reply" disabled="disabled" maxLength="6" size="8" value="<a href="mailto:{post/setting/@maxpostlen" target="_blank">{post/setting/@maxpostlen</a>}" name="total" /> 字节. 在后面添加相同的代码：<script language = "Javascript" src = "jiyupost.js" type="text/javascript"></script> 此处直接使用jiyupost.js中的代码将提示错误 3）开plus_eddul.asp，在sub eddulf()后面插入一行： If Request.form("NeedEddul")="" Then Exit Sub 原来的机遇文件需要自己添加上面的选项，本贴提供的已经添加好了，到此编辑就再不会发生机遇了 演示：<a href="http://www.likec.com/club/dispbbs.asp?boardID=21&ID=1558&page=1" target="_blank">http://www.likec.com/club/dispbbs.asp?boardID=21&ID=1558&page=1</a> 附：plus_eddul.asp和jiyupost.js两个文件

[此贴子已经被作者于2006-11-3 5:24:04编辑过]

作者: 天下一人 时间: 2006-11-10 02:28:28

7.10论坛同等级版主不能相互编辑的修改： 1、完全去掉版主以上级别不可以相互编辑帖子的权限。 此修改需要屏蔽两个地方。 1、post.asp 找到   If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then                      Dvbbs.AddErrCode(75)   ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then                      Dvbbs.AddErrCode(76)   End If 将上面代码屏蔽 既改为 //If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then                        //Dvbbs.AddErrCode(75)     //ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then                        //Dvbbs.AddErrCode(76)     //End If 2、savepost.asp 找到     If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then                         Dvbbs.AddErrCode(75)     ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then                         Dvbbs.AddErrCode(76)     End If 也是屏蔽。即改为：    // If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then                         //Dvbbs.AddErrCode(75)     ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then                         //Dvbbs.AddErrCode(76)     //End If 2、如果你只是想设定版主以上某个组的成员可以相互编辑。请这样修改（修改地方也是两个。代码一样。就是找到上面1中post.asp合savepost.asp中的如下代码）   If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then                      Dvbbs.AddErrCode(75)   ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then                      Dvbbs.AddErrCode(76)   End If 把上面的<4改成小于4的数字。 其中1代表管理员组，2代表超级版主组，3代表版主组，4是会员组，这里小于4就把所有的管理团队的相互编辑权限给关了。修改需要修改两个文件，但是代码一样（savepost.asp和post.asp） 3、只是设定某个组没有相互编辑帖的权限修改   If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then                      Dvbbs.AddErrCode(75)   ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then                      Dvbbs.AddErrCode(76)   End If 把上面红色中的4改成=3或者=2或者=1 如果只是设定管理员组和版主组不可以相互编辑帖子，那么就把红色中的 If Cint(Dvbbs.UserGroupID) <4改成是 If Cint(Dvbbs.UserGroupID) ==1 And  If Cint(Dvbbs.UserGroupID)==3   And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then 也可以 If Cint(Dvbbs.UserGroupID) <>2 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then 等等，修改的方法很多。大家自己去研究。。。。

作者: 天下一人 时间: 2006-11-10 07:10:40

以下是UUSZ的修正后的代码(修正了评分累计的BUG,但只显示最后一次评分痕迹)1、修改admin_postings.asp(此处增加了一处修改、修正了一处修改)1.1查找 <div class="quote">  Dim CanRewardMoney,GiveMoney   Dim ReAct,UpIsagree,UpGetMoney,TempString   GiveMoney = Request.FORM("GiveMoney")</div> 替换为 <div class="quote">  Dim CanRewardMoney,GiveMoney,DoWealth,DoUserEP,DoUserCP,title   Dim ReAct,UpIsagree,UpGetMoney,TempString   GiveMoney = Request.FORM("GiveMoney")   DoWealth  = Request.FORM("DoWealth")   DoUserEP  = Request.FORM("DoUserEP")   DoUserCP  = Request.FORM("DoUserCP")   title     = Request.FORM("title")   If title  = "" Then title=Request.FORM("content")</div>1.2查找 <div class="quote">   If Not IsNumeric(GiveMoney) Then     GiveMoney = 0    Else     GiveMoney = Clng(GiveMoney)    End If</div> 在后面添加 <div class="quote">   If Not IsNumeric(DoWealth) Then     DoWealth = 0    Else     DoWealth = Clng(DoWealth)    End If    If Not IsNumeric(DoUserEP) Then     DoUserEP = 0    Else     DoUserEP = Clng(DoUserEP)    End If    If Not IsNumeric(DoUserCP) Then     DoUserCP = 0    Else     DoUserCP = Clng(DoUserCP)    End If</div>1.3查找                  <div class="quote">GiveMoney = Abs(GiveMoney) </div>屏蔽掉1.4查找<div class="quote">   If TempString="" or Instr(TempString&"","|")=0 Then     If ReAct = 1 Then      UpIsagree = GiveMoney&"|0"     Else      UpIsagree = "0|"&GiveMoney     End If    Else     TempString = Split(TempString,"|")     If ReAct = 1 Then      TempString(0) = TempString(0) + GiveMoney     Else      TempString(1) = TempString(1) + GiveMoney     End If     UpIsagree = TempString(0) &"|"& TempString(1)    End If</div>替换为<div class="quote">   If TempString="" or Instr(TempString&"","|")=0 Then                               UpIsagree = DoWealth&"|"&DoUserEP&"|"&DoUserCP&"|"&GiveMoney&"|"&title&"|"&dvbbs.membername    Else     TempString = Split(TempString,"|")     If Ubound(TempString)>4 Then             TempString(0) = Clng(TempString(0)) + DoWealth             TempString(1) = Clng(TempString(1)) + DoUserEP             TempString(2) = Clng(TempString(2) )+ DoUserCP             TempString(3) = Clng(TempString(3)) + GiveMoney             UpIsagree = TempString(0) &"|"& TempString(1) &"|"& TempString(2) &"|"& TempString(3) &"|"& title &"|"& dvbbs.membername     Else             UpIsagree = DoWealth&"|"&DoUserEP&"|"&DoUserCP&"|"&GiveMoney&"|"&title&"|"&dvbbs.membername     End If    End If</div>如果你只想显示最后一次评价痕迹，不想累计以前的评价，将以上一大段替换为<div class="quote">UpIsagree = DoWealth&"|"&DoUserEP&"|"&DoUserCP&"|"&GiveMoney&"|"&title&"|"&dvbbs.membername </div>2、修改dispbbs.asp 2.1查找 <div class="quote">Dim namestyle,nameglow(7),postbuyinfo,SQL,Rs,i,XMLDom,PageCount,postarray,Node,postuseridlist,postuserlist,UserGroupID,postbody,Topic,cmd,postbuyusers,UserIM</div> 替换为（加上一个参数） <div class="quote">Dim namestyle,nameglow(7),postbuyinfo,SQL,Rs,i,XMLDom,PageCount,postarray,Node,postuseridlist,postuserlist,UserGroupID,postbody,Topic,cmd,postbuyusers,UserIM,Isagree</div>2.2查找 <div class="quote">Ubblists=Node.selectSingleNode("@ubblist").text</div> 前面添加                           <div class="quote">                                    Isagree=Node.selectSingleNode("@isagree").text                                     If Isagree <> "" Then      Isagree=Split(Isagree,"|")                                       If UBound(Isagree) > 4 Then      Node.attributes.setNamedItem(XMLDom.createNode(2,"addwealth","")).text=Isagree(0)      Node.attributes.setNamedItem(XMLDom.createNode(2,"addep","")).text=Isagree(1)      Node.attributes.setNamedItem(XMLDom.createNode(2,"addcp","")).text=Isagree(2)      Node.attributes.setNamedItem(XMLDom.createNode(2,"addmoney","")).text=Isagree(3)      Node.attributes.setNamedItem(XMLDom.createNode(2,"addtitle","")).text=Isagree(4)      Node.attributes.setNamedItem(XMLDom.createNode(2,"adduser","")).text=Isagree(5)                                       End If                                     End If</div>================================================================================以下是Be352网友修改的美化版.修正了没有分值也显示图标的BUG同时也感谢mfsw提供的美化将第3步查找到的代码删除，然后找到<div class="quote"><div style="{$bodystyle}margin-top:10px;word-wrap : break-word ;word-break : break-all ;" onload="this.style.overflowX='auto';"> <xsl:choose>   <xsl:when test="@parentid =0 and <a target="_blank">/post/postinfo/@getmoneytype=3"><xsl:call-template</a> name="checkgetmoney" /></xsl:when>   <xsl

therwise><xsl:value-of select="@body" disable-output-escaping="yes"/></xsl

therwise> </xsl:choose> </div></div>在后面加上以下代码<div class="quote"> <xsl:if test="@adduser != ''"> <div> <table width="200" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="7" background="skins/Default/agree_left.gif" height="90"></td> <td background="skins/Default/agree_bg.gif"> <div align="center">操作者:<xsl:value-of select="@adduser"/> <xsl:if test="@addwealth > 0"><img src="skins/Default/jq.gif" border="0" title="奖励菲币" align="absmiddle"/> 菲币+<xsl:value-of select="@addwealth"/></xsl:if> <xsl:if test="@addwealth < 0"><img src="skins/Default/jq.gif" border="0" title="扣除菲币" align="absmiddle"/> 菲币<xsl:value-of select="@addwealth"/></xsl:if> <xsl:if test="@addmoney > 0"><img src="skins/Default/jb.gif" border="0" title="奖励金币" align="absmiddle"/> 金币+<xsl:value-of select="@addmoney"/></xsl:if> <xsl:if test="@addmoney < 0"><img src="skins/Default/jb.gif" border="0" title="扣除金币" align="absmiddle"/> 金币<xsl:value-of select="@addmoney"/></xsl:if> <xsl:if test="@addcp > 0"><img src="skins/Default/ml.gif" border="0" title="奖励魅力" align="absmiddle"/> 魅力+<xsl:value-of select="@addcp"/></xsl:if> <xsl:if test="@addcp < 0"><img src="skins/Default/ml.gif" border="0" title="扣除魅力" align="absmiddle"/> 魅力<xsl:value-of select="@addcp"/></xsl:if> <xsl:if test="@addep > 0"><img src="skins/default/jy.gif" border="0" title="奖励经验" align="absmiddle"/> 经验+<xsl:value-of select="@addep"/></xsl:if> <xsl:if test="@addep < 0"><img src="skins/default/jy.gif" border="0" title="扣除经验" align="absmiddle"/> 经验<xsl:value-of select="@addep"/></xsl:if> 操作理由:<xsl:value-of select="@addtitle"/> <xsl:if test="@isbest='1'"><img src="skins/Default/isbest.gif" border="0" title="精华" align="absmiddle"/> 精华文章</xsl:if></div> </td> <td width="7" height="90" background="skins/Default/agree_right.gif" border="0"></td> </tr> </table> </div></xsl:if> </div>－－－－－－－－－－－－－－－－－－－－－－－－－－－－－因为我论坛的钱为“菲币”，你们可以改成你们自己的！此修改后可以判断加减，而且有分值时才会显示图标，无分值就不显示，截图如下： <img alt="图片点击可在新窗口打开查看" src="http://bbs.dvbbs.net/skins/default/filetype/bmp.gif" border="0" style="CURSOR: pointer;"/>此主题相关图片如下： <a id="ImgSpan" href="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-12/200512290315591358.bmp" target="_blank"><img alt="图片点击可在新窗口打开查看" src="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-12/200512290315591358.bmp" border="0" style="CURSOR: pointer;"/></a>

[此贴子已经被作者于2006-11-9 23:20:40编辑过]

欢迎光临中国硬笔书法论坛 (http://bbs.zgybsf.com/)