生物百花园社区 → 【论坛事务区】 → 【万花筒】 → 动网论坛修改美化专题


  共有14890人关注过本帖树形打印

主题：动网论坛修改美化专题
客人(219.138.*.*)
 小大  1楼


动网论坛修改美化专题  发贴心情 Post By：2006/2/16 23:54:30  

首页调用最新贴、热门贴、精华贴的修改方法
 

第一步：建立首页调用代码

后台：首页调用，点击“添加首页调遥”，新增一个首页调用项。下面以调用最新贴为例：


●调用标识名称：koomv_01
●调用代码：<script src="Dv_News.asp?GetName=koomv_01"></script>(系统会自动生成此代码)
●调用说明：自己看着填，只是方便管理
●调用类型：选择贴子调用
●数据更新间隔：120（时间越短调用速度越慢哦，自己看着办）
●时间显示格式：自己喜欢什么格式就选哪一个了
●调用设置：
      里面内容很多，自己看看应该知道怎么设置的吧。
      帖子排序：选择（按最新回复时间）
      显示的类型：选择（显示主题和回复）
●模板_主体循环标记部分：


<img src="tumiab/e1open.gif">&nbsp;<a href="dispbbs.asp?boardid={$Boardid}&ID={$ID}&replyID={$ReplyID}" target="_blank" title="{$Topic}">{$Topic}</a>&nbsp; [<a href="dispuser.asp?name={$UserName}" target="_blank"><font color="green">{$UserName}</font></a>]<br>
红色的图片路径自己改。


设置后好后提交，一个首页调用代码就好了。


其他的依次类推，聪明如你，依葫芦画瓢总会吧，嘿嘿……


第二步：动网默认风格分页面模板(page_index)界面风格管理template.html(0)找到如下代码：


<a href="infolist.asp?t=toplist&amp;orders=7">用户列表</a>
</div>
</div>
在下面插入如下代码：

<!--首页调用代码开始-->
<br />
<table align="center" cellpadding="3" cellspacing="1" class="tableborder1">
  <tr>
    <th>社区最新贴</th>
    <th>每月最热贴</th>
    <th>社区精华贴</th>
  </tr>
  <tr>
    <td class="tablebody1"><script src="Dv_News.asp?GetName=koomv_01"></script></td>
    <td class="tablebody1"><script src="Dv_News.asp?GetName=koomv_02"></script></td>
    <td class="tablebody1"><script src="Dv_News.asp?GetName=koomv_03"></script></td>
  </tr>
</table>
<!--首页调用代码结束-->
红色的代码用你在首页设置时生成的代码依次替换就好

二、展区图片不能浏览

打开inc/Dv_ubbcode.asp 找到

  'If uCodeC="img" Then
   're.Pattern="\[img\]([\/\\]*[^\/\\]*.asp[^\x01\n]*)\x01\/img\]"
   's=re.Replace(s,"")
   're.Pattern="\[img\]( *http:[\/\\]*"&Replace(Request.ServerVariables("HTTP_HOST"),".","\.")&"[^\x01\n]*.asp[^\x01\n]*)\x01\/img\]"
   's=re.Replace(s,"")
  'End If

屏蔽掉即在前面加'

即

'If uCodeC="img" Then
   're.Pattern="\[img\]([\/\\]*[^\/\\]*.asp[^\x01\n]*)\x01\/img\]"
   's=re.Replace(s,"")
   're.Pattern="\[img\]( *http:[\/\\]*"&Replace(Request.ServerVariables("HTTP_HOST"),".","\.")&"[^\x01\n]*.asp[^\x01\n]*)\x01\/img\]"
   's=re.Replace(s,"")
  'End If

三、禁止复制文字

在main_style里Dvbbs.mainhtml(2)

把<body>改为:

<body onbeforecopy="event.returnValue=false;" onbeforecut="event.returnValue=false;" oncopy="event.returnValue=false;window.clipboardData.setData('Text','http://adon.goobool.com');" oncut="event.returnValue=false;window.clipboardData.setData('Text','http://adon.goobool.com');">

 

 

如果非要客人发帖无须审核的话，可以这样做：（个人意见，如有不妥请指正）

①后台设置客人有发帖权限

②修改源文件代码（savepost.asp）→查找[大概460行至470行]

   {
     LockTopic=Dvbbs.BoardID
     Dvbbs.BoardID=777
     Response.Cookies("Dvbbs")=LockTopic
   }

→屏蔽上面三行代码后（以便恢复原功能），写入
  {
    IsAudit=0
    LockTopic=0
    Dvbbs.BoardID=Dvbbs.Boardid
    Response.Cookies("Dvbbs")=Dvbbs.Boardid
   }

→保存此文件，即可！

 

动网图片显示太小的解决办法

打开INC/Dv_ubbcode.asp文件，找到以下代码：

  s=bbimg(s,500)
  Dv_UbbCode = s
End Function
Private Function bbimg(strText,ssize)
  Dim s
  s=strText
  re.Pattern="<img(.[^>]*)>"
  If ssize=500 Then
   s=re.replace(s,"<img$1 onload=""javascript:if(this.width>"& ssize &")this.style.width="&ssize&";"">")
  Else
   s=re.replace(s,"<img$1 onload=""javascript:if(this.width>"& ssize &")this.style.width="&ssize&";if(this.height>250)this.style.width=(this.width*250)/this.height;"">")
  End If
  bbimg=s
End Function


红色部分两处同步修改,一般650差不多了!大家在自己的论坛根据自己的风格自行调整!

改变心情图片个数

后台->风格->page_post(0)

找到:
Forum_Emot=Forum_Emot.split("<><><>");
var Emot_PageSize=11; //心情一行个数

把红色改为您要的就可以了!!

去掉通行证

动网默认风格分页面模板(page_index)界面风格管理 template.html(0)

<!--

<div style="margin-top:10px;">
<form action="login.asp?action=chk" method="post">
<a href="http://www.dvbbs.net/passport/help.asp" target="_blank" title="注册论坛通行证可让您使用一个帐号通行于国内大部分的网络论坛社区，点击查看更详细帮助">通<xsl:text disable-output-escaping="yes" >&amp;nbsp;</xsl:text>行<xsl:text disable-output-escaping="yes" >&amp;nbsp;</xsl:text>证</a><xsl:text disable-output-escaping="yes" >&amp;nbsp;</xsl:text>：<input type="text" name="passport" size="12" /> <input type="submit" name="submit" value="论坛通行证登录" />  [ <a href="lostpass.asp"> 忘记密码</a> ] </form> </div>

-->

将上面一大段屏蔽掉，OK，第一项搞掂！！！

第二：重登陆或登陆失败时的登陆页面“论坛通行证”去除

动网默认风格分页面模板(page_login)界面风格管理 template.html(0)

删除此句： {$rayuserlogin}

我试过，直接屏蔽好像无效，只有野蛮一点，直接“Delete”就干掉了。

第三：注册页面的“论坛通行证”去除

动网默认风格分页面模板(page_login)界面风格管理 template.html(13)


<!--

<TR>
<TD class=tablebody1><B>论坛通行证(可不填写)</B>：<BR>
可绑定已有论坛通行证或新建论坛通行证帐号<BR>
请输入已注册的论坛通行证或需新建的通行证帐号名称
</TD>
<TD class=tablebody1>
<INPUT maxLength=50 size=30 name="Forum_Passport">
<a href="http://www.dvbbs.net/passport/help.asp" title="注册论坛通行证可让您使用一个帐号通行于国内大部分的网络论坛社区，点击查看更详细帮助" target=_blank>关于论坛通行证</a></TD>
</TR>

-->

怎么样，是不是越来越兴奋了，要不要更彻底一点？？当然要，那就再继续看……

第四：用户控制面板下拉菜单里的“设置论坛通行证”项去除

动网默认风格分页面模板(main_style)界面风格管理Dvbbs.mainhtml(17)

屏蔽或删除这句：

<br /><a href="passport.asp"><font color="blue">论坛通行证设置</font></a>

 

在论坛快捷回复增加快捷回复文字的方法

添加方法：

进入论坛后台，风格界面模板总管理，page_dispbbs，界面风格，template.html(0)

找到

<img src="images/post/icon_alipay.gif" alt="生成一个支付宝交易信息" class="icoover" onmouseover="this.className='icoovermouseover';" onmouseout="this.className='icoover';" onclick="Dvbbs_UserDialog('InsertAlipay');this.className='icoonclick';"/>

在后面加入

<select class="Dvbbs_TBGen" id="dht_Qreply" onchange="IframeID.document.body.innerHTML+=this[this.selectedIndex].value;Dvbbs_CopyData('Body');document.Dvform.submit();">
<option value="快速回复">快速回复</option>
<option value="不错,顶一下！感谢楼主！">不错,顶一下！感谢楼主！</option>
<option value="不怎么样啊，BS一下！">不怎么样啊，BS一下！</option>
<option value="问题解决了，朋友帮忙！">问题解决了，朋友帮忙！</option>
</select>

提交完成！

论坛网摘收录插件 for 7.1 sp1

插件说明：这个非常有用，主要用于将论坛主题提交到各大网摘站，也方便浏览者收录！适用于动网任何版本!

解压文件到论坛目录下！

默认风格分页面模板(main_style)界面风格管理

Dvbbs.mainhtml(5)

将最后的<br/>，用<script language="javascript" src="z_wangzhai.js"></script>替换！

我将他放到这里主要是觉得这样美观点，你也可以放到默认风格分页面模板(page_dispbbs)界面风格管理--template.html(0)，自己觉得适当的位置！我不再细说了，大家自己琢磨吧！

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:

动网管理员工具

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:

 

 
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
biobox
 小大  2楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：营长 贴子：120 积分：5705 威望：20 精华：0 注册：2005/12/31 7:03:53 		  发贴心情 Post By：2006/2/17 0:10:12  

改为一个大的flash，方法如下：

用下列代码替换   动网风格分页面模板(main_style)   －－－Dvbbs.mainhtml(4) 中的代码（全部替换）

<!--顶部表格合并--><table width="780" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td align="center" valign="middle"><DIV ALIGN="CENTER"><OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

CODEBASE="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" WIDTH="780" HEIGHT="110"> <PARAM NAME=movie VALUE="ad/banner02.swf"> <PARAM NAME=quality VALUE=high><PARAM NAME="wmode" VALUE="transparent"> <EMBED SRC="ad/banner02.swf" QUALITY=high

PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"

TYPE="application/x-shockwave-flash" WIDTH="780" HEIGHT="110" WMODE="transparent"></EMBED> </OBJECT> </DIV></td></tr><tr><td class=TopLighNav1 height=22 valign="middle" id="Menu">&nbsp;{$menu}</td></tr></table>

<!--顶部表格合并代码结束-->

其中的ad/banner02.swf  可以改成你自己的

[/point]
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
biobox
 小大  3楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：营长 贴子：120 积分：5705 威望：20 精华：0 注册：2005/12/31 7:03:53 		  发贴心情 Post By：2006/2/17 0:11:20  

改为一个gif图

方法如下：

用意下代码替换   动网风格分页面模板(main_style)   －－－Dvbbs.mainhtml(4) 中的代码（全部替换）

<!--顶部表格合并--><table width="100%" border="0" cellpadding="0" cellspacing="0"><tr><td align="center" valign="middle"><img src="图片地址"></td></tr><tr><td height=22 align="right" valign="middle" class=TopLighNav1  id="Menu">{$menu}&nbsp;&nbsp;</td></tr></table>

<!--顶部表格合并代码结束-->
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
hyichun1997
 小大  4楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：3424 积分：46943 威望：20 精华：144 注册：2006/2/20 13:17:21 		  发贴心情 Post By：2006/2/25 7:34:16  

游客只能查看部分内容的完美修改方法

1、修改dispbbs.asp文件
找到
     If InStr(Ubblists,",39,") > 0  Then
       Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,0)
    Else
       Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,1)
    End If

改成
      If InStr(Ubblists,",39,") > 0  Then
      If Dvbbs.userid=0 then    
           Node.selectSingleNode("@body").text = left(Node.selectSingleNode("@body").text,100)&"......<br><br><p></p>&nbsp;&nbsp;<font color=#AAAAAA>您还没有登陆，欲知全文内容，请选择<a href=reg.asp><font color=red>[注册]</font></a>或者<a href=login.asp><font color=blue>[登陆]</font></a>。</font>"
           Else
       Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,0)
      End if
     Else
      If Dvbbs.userid=0 then
             Node.selectSingleNode("@body").text = left(Node.selectSingleNode("@body").text,100)&"......<br><br><p></p>&nbsp;&nbsp;<font color=#AAAAAA>您还没有登陆，欲知全文内容，请选择<a href=reg.asp><font color=red>[注册]</font></a>或者<a href=login.asp><font color=blue>[登陆]</font></a>。</font>"
           Else
       Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,1)
      End if
     End If

2、修改TopicOther.asp文件
找到
   Templist=Replace(Templist,"{$body}",SimJsReplace(dv_ubb.Dv_UbbCode(SQL(3,i),SQL(4,i),1,1)))
改成
      If Dvbbs.userid=0 then
        Dvbbs.AddErrCode(6)
        Dvbbs.Showerr()
      Else
   Templist=Replace(Templist,"{$body}",SimJsReplace(dv_ubb.Dv_UbbCode(SQL(3,i),SQL(4,i),1,1)))
   End if
修改结束

注：其中的红字部分可以修改成你需要显示的文章的长度。

钟祥一中 课堂实录教学视频 精品课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
hyichun1997
 小大  5楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：3424 积分：46943 威望：20 精华：144 注册：2006/2/20 13:17:21 		  发贴心情 Post By：2006/2/25 7:35:56  

修改二：贴子列表前加入发表日期的方法

后台风格page_index,template.html(13)

1、找到代码：

function CheckAll(form)，

在其前面插入以下几行代码：

function AddPostDate(x)
{
x=x.split('-')
var r=parseInt(x[2].substr(0,2))
document.write('【'+(x[1]<10?'0':'')+x[1]+'月'+(r<10?'0':'')+r+'日】')
//如果要年月日，最后的return那行请改成：
//document.write('【'+x[0]+'年'+(x[1]<10?'0':'')+x[1]+'月'+(r<10?'0':'')+r+'日】')
}

2、找到代码：

<xsl:template name="showtitle">，

在其后面插入一行代码：

<script type="text/javascript" language="javascript">AddPostDate('<xsl:value-of select="@dateandtime"/>')</script>

3、找到代码：

<xsl:template xmlns:xsl="http://www.w3.org/1999/XSL/Transform" match="topiclist">

后面加一行：

<script type="text/javascript" language="javascript"><xsl:value-of select="$myscript" disable-output-escaping="yes" /></script>

钟祥一中 课堂实录教学视频 精品课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
hyichun1997
 小大  6楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：3424 积分：46943 威望：20 精华：144 注册：2006/2/20 13:17:21 		  发贴心情 Post By：2006/2/25 7:36:25  

修改三：让置顶主题和一般主题贴分开显示

修改方法如下：（共２步）

１、打开index.asp

找到代码：Dim i,Node,CNode,PostTime,LastPostInfo,Expression,UseTools

改成：Dim i,Node,CNode,PostTime,LastPostInfo,Expression,UseTools,TopDisp,ListDisp

找到代码：Set Cnode=ListNodeObject.cloneNode(True)

后面添加以下几行代码：

'stardy 添加，置顶贴和主题贴分开标志设置
  Set Node = XMLDOM.createNode(2,"topflag","")
  Node.Text="0"
  If TopDisp<>"1" and DataArray(11,I)<>"0" Then
   Node.Text="1"
   TopDisp="1"
  End If
  Cnode.attributes.setNamedItem(Node)
  Set Node = XMLDOM.createNode(2,"listflag","")
  Node.Text="0"
  If ListDisp<>"1" and DataArray(11,I)="0" Then
   Node.Text="1"
   ListDisp="1"
  End If
  Cnode.attributes.setNamedItem(Node)

２、后台风格 page_index , template(13)，找到以下代码：

<!--请使用标准HTML语法编写此内容-->

下面添加：

<xsl:if test="@topflag='1'">
<tr>
<td class="tablebody2" colspan="6" style="padding-left:35px;height:24px"><strong>置顶主题列表</strong></td>
</tr>
</xsl:if>
<xsl:if test="@listflag='1'">
<tr>
<td class="tablebody2" colspan="6" style="padding-left:35px;height:24px"><strong>普通主题列表</strong></td>
</tr>
</xsl:if>

钟祥一中 课堂实录教学视频 精品课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
hyichun1997
 小大  7楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：3424 积分：46943 威望：20 精华：144 注册：2006/2/20 13:17:21 		  发贴心情 Post By：2006/2/25 7:37:04  

1、去阿里巴巴广告：

Dv_ClsMain.asp找到：

Alibaba_Ad = "网上贸易 创造奇迹! <a href = ""http://china.alibaba.com"" title = ""从网民、网友时代进入“网商”时代"" target=_blank>阿里巴巴</a> <a href = ""http://www.alibaba.com"" title= ""Online Marketplace of Manufacturers & Wholesalers"" target = ""_blank"">Alibaba</a><BR><BR>"

将中间内容删掉，即改为（全部删掉也行，但这是一个IF判断，运行可能会出错，所以只删掉中间的部分，保留一个空值）：

Alibaba_Ad = ""


2、去支付宝图片广告：

Dv_ClsMain.asp找到：

If Dvbbs.Forum_ChanSetting(3)="0"

把0改成1（好像不改也成）

再找到：

<td align=right valign=bottom><a href=""https://www.alipay.com"" target=_blank><img src="""&Dvbbs_Server_Url&"dvbbs/alipay_icon2.gif"" border=0 alt=""本论坛采用阿里巴巴支付宝网上银行支付系统，安全、可靠、便捷""></a></td>

将这句也删掉

钟祥一中 课堂实录教学视频 精品课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
hyichun1997
 小大  8楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：3424 积分：46943 威望：20 精华：144 注册：2006/2/20 13:17:21 		  发贴心情 Post By：2006/2/25 7:40:05  

[插件]-标题醒目插件

修改如下：

分页模板page_post，在template.html(6)中找到

<select name="topicximoo"><option value="0">标题醒目</option><option value="1">HTML支持</option><option value="2">红色醒目</option><option value="3">蓝色醒目</option><option value="4">绿色醒目</option></select>

替换：

<select name="topicximoo"><option value="0">标题醒目</option><option value="1">HTML支持</option><option value="2">红色醒目</option><option value="3">蓝色醒目</option><option value="4">绿色醒目</option><option value=5>紫框醒目</option><option value=6>绿框醒目</option><option value=7>红框醒目</option><option value=8>蓝框醒目</option><option value=9>霓虹醒目</option><option value=10>跳跃醒目</option><option value=11>突出醒目</option><option value=12>彩色醒目</option></select>

Page_Index分页模板，在template.html(1)中找到

<xsl:when test="@topicmode='4'">
<font color="green"><xsl:choose>
  <xsl:when test="string-length(@title) &gt; 30 "><xsl:value-of select="concat(substring(@title,0,20),'....',substring(@title,(string-length(@title)- 10 ),string-length(@title)))" disable-output-escaping="yes"/>[长]</xsl:when>
  <xsl:otherwise><xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:otherwise>
</xsl:choose></font>
</xsl:when>

在下面加入

<xsl:when test="@topicmode='5'">
<span style="border:solid 1px #DD2292;border-left-width:5px;border-left-color:#DD2292;background:#ffffff;padding:1px 6px 2px 6px;font-size: 8pt"><xsl:choose>
  <xsl:when test="string-length(@title) &gt; 30 "><xsl:value-of select="concat(substring(@title,0,20),'....',substring(@title,(string-length(@title)- 10 ),string-length(@title)))" disable-output-escaping="yes"/>[长]</xsl:when>
  <xsl:otherwise><xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:otherwise>
</xsl:choose></span>
</xsl:when>
<xsl:when test="@topicmode='6'">
  <span style="border:solid 1px #55AA55;border-left-width:5px;border-left-color:#55AA55;background:#ffffff;padding:1px 6px 2px 6px;font-size: 8pt"><xsl:choose>
  <xsl:when test="string-length(@title) &gt; 30 "><xsl:value-of select="concat(substring(@title,0,20),'....',substring(@title,(string-length(@title)- 10 ),string-length(@title)))" disable-output-escaping="yes"/>[长]</xsl:when>
  <xsl:otherwise><xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:otherwise>
</xsl:choose></span>
</xsl:when>
<xsl:when test="@topicmode='7'">
<span style="border:solid 1px #cc0000;border-left-width:5px;border-left-color:#cc0000;background:#ffffff;padding:1px 6px 2px 6px;font-size: 8pt"><xsl:choose>
  <xsl:when test="string-length(@title) &gt; 30 "><xsl:value-of select="concat(substring(@title,0,20),'....',substring(@title,(string-length(@title)- 10 ),string-length(@title)))" disable-output-escaping="yes"/>[长]</xsl:when>
  <xsl:otherwise><xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:otherwise>
</xsl:choose></span>
</xsl:when>
<xsl:when test="@topicmode='8'">
<span style="border:solid 1px #0000cc;border-left-width:5px;border-left-color:#0000cc;background:#ffffff;padding:1px 6px 2px 6px;font-size: 8pt"><xsl:choose>
  <xsl:when test="string-length(@title) &gt; 30 "><xsl:value-of select="concat(substring(@title,0,20),'....',substring(@title,(string-length(@title)- 10 ),string-length(@title)))" disable-output-escaping="yes"/>[长]</xsl:when>
  <xsl:otherwise><xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:otherwise>
</xsl:choose></span>
</xsl:when>
<xsl:when test="@topicmode='9'">
<font textcolor1="#FFFF00" textbkcolor1="transparent" textcolor2="#FFCC99" textbkcolor2="transparent" speed="100" letters1="1" letters2="1" pause="500" style="behavior:url(inc/z_HighlightTopic/z_FlashText.htc);color:#c000c0;background-color:transparent"><xsl:choose>
  <xsl:when test="string-length(@title) &gt; 30 "><xsl:value-of select="concat(substring(@title,0,20),'....',substring(@title,(string-length(@title)- 10 ),string-length(@title)))" disable-output-escaping="yes"/>[长]</xsl:when>
  <xsl:otherwise><xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:otherwise>
</xsl:choose></font>
</xsl:when>
<xsl:when test="@topicmode='10'">
<font textoffset1="-4" textoffset2="-2" speed="100" letters1="1" letters2="1" pause="1000" style="behavior:url(inc/z_HighlightTopic/z_WaveText.htc);color:#FF6600;background-color:transparent"><xsl:choose>
  <xsl:when test="string-length(@title) &gt; 30 "><xsl:value-of select="concat(substring(@title,0,20),'....',substring(@title,(string-length(@title)- 10 ),string-length(@title)))" disable-output-escaping="yes"/>[长]</xsl:when>
  <xsl:otherwise><xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:otherwise>
</xsl:choose></font>
</xsl:when>
<xsl:when test="@topicmode='11'">
<font textcolor="#ff0000" basesize="12" textsize1="16" textsize2="14" speed="100" letters1="1" letters2="1" pause="500" style="behavior:url(inc/z_HighlightTopic/z_ResizeText.htc);color:#993300;background-color:transparent;"><xsl:choose>
  <xsl:when test="string-length(@title) &gt; 30 "><xsl:value-of select="concat(substring(@title,0,20),'....',substring(@title,(string-length(@title)- 10 ),string-length(@title)))" disable-output-escaping="yes"/>[长]</xsl:when>
  <xsl:otherwise><xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:otherwise>
</xsl:choose></font>
</xsl:when>
<xsl:when test="@topicmode='12'">
<font textoffset1="-4" textoffset2="-2" speed="100" letters1="1" letters2="1" pause="1000" style="behavior:url(inc/z_HighlightTopic/font.htc);color:#FF6600;background-color:transparent"><xsl:choose>
  <xsl:when test="string-length(@title) &gt; 30 "><xsl:value-of select="concat(substring(@title,0,20),'....',substring(@title,(string-length(@title)- 10 ),string-length(@title)))" disable-output-escaping="yes"/>[长]</xsl:when>
  <xsl:otherwise><xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:otherwise>
</xsl:choose></font>
</xsl:when>

图片点击可在新窗口打开查看点击浏览该文件


解压后放到inc/z_HighlightTopic

钟祥一中 课堂实录教学视频 精品课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
hyichun1997
 小大  9楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：3424 积分：46943 威望：20 精华：144 注册：2006/2/20 13:17:21 		  发贴心情 Post By：2006/2/25 7:53:11  

禁止保存本站图片的修改

修改当前模板主模块(Main_Style)  Dvbbs.mainhtml(2)

<script language = "javaScript" src = "inc/Main.js" type="text/javascript"></script>
</head>
<body onload="if(window.name!=''){document.body.style.width='98%';}">
<!-- #BeginEditable "example" -->
            <SCRIPT language=JavaScript1.2>

/*
Visit http://www.255000.com
*/

var clickmessage="本站图片不能保存"

function disableclick(e) {
if (document.all) {
if (event.button==2||event.button==3) {
if (event.srcElement.tagName=="IMG"){
alert(clickmessage);
return false;
}
}
}
if (document.layers) {
if (e.which == 3) {
alert(clickmessage);
return false;
}
}
}

function associateimages(){
for(I=0;I<document.images.length;I++)
document.images[I].onmousedown=disableclick;
}

if (document.all)
document.onmousedown=disableclick
else if (document.layers)
associateimages()
</SCRIPT>
<div class="menuskin" id="popmenu" onmouseover="clearhidemenu()" onmouseout="dynamichide(event)" style="z-index:100;"></div>

钟祥一中 课堂实录教学视频 精品课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
客人(61.184.*.*)
 小大  10楼


  发贴心情 Post By：2006/5/8 23:01:24  

智能个人签名 FOR 7.1SP1 (对搜索引擎的意外优化)

修改方法:
打开"page_dispbbs_template.html(0)"模板,找到:

<xsl:if test="/post/userlist/user[@userid=$userid]/@usersign !='' and @signflag =1">
<div style="width:85%;overflow-x: hidden;">
<img src="{/post/setting/@picurl}sigline.gif" /><br /><xsl:value-of select="/post/userlist/user[@userid=$userid]/@usersign" disable-output-escaping="yes"/>
</div>
</xsl:if>
</xsl:if>

修改成:

<xsl:choose>
<xsl:when test="/post/userlist/user[@userid=$userid]/@usersign !='' and @signflag =1">
<div align="center" style="width:98%;overflow-x: hidden;">
<fieldset style="line-height:180%;FONT-SIZE: 11px; WIDTH: 98%; FONT-FAMILY: Tahoma, Arial" align="center">
<legend align="right"><a href="dispuser.asp?id={@postuserid}" target="_blank" title="查看{@username}的个人资料"><font color="#ff0000"><xsl:value-of select="@username" /></font></a> 的个人签名</legend>
<xsl:value-of select="/post/userlist/user[@userid=$userid]/@usersign" disable-output-escaping="yes"/>
</fieldset>
</div></xsl:when>
<xsl:otherwise><div align="center" style="width:98%;overflow-x: hidden;">
<fieldset style="line-height:180%;FONT-SIZE: 11px; WIDTH: 98%; FONT-FAMILY: Tahoma, Arial" align="center">
<legend align="right">欢迎光临本论坛</legend>
<center><font color="#0000ff">你可以发送本帖给QQ/MSN或者其他上面的好友前来讨论</font><br />
拒绝任何人以任何形式在本论坛发表与我国法律相抵触的言论!<br />
本文所有权属于 <a target="_blank" href="dispuser.asp?id={@postuserid}" title="查看{@username}的个人资料">
<font color="#FF6600"><xsl:value-of select="@username" /></font></a> 和 <a href="/" target="_blank">
<font color="#FF6600">本论坛</font></a> 共同所有，未经同意，禁止转载!
</center>
</fieldset>
</div></xsl:otherwise>
</xsl:choose>
</xsl:if>
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
hyichun1997
 小大  11楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：3424 积分：46943 威望：20 精华：144 注册：2006/2/20 13:17:21 		  发贴心情 Post By：2006/5/29 6:02:56  

发贴时将内容复制以防发贴失败的完美修改

此修改为防止网站超时或者是其他的原因导致会员发送写好帖子内容却在点发表时,因发送不成功，导致内容丢失,前功尽弃。修改后,发表前内容将被同时复制到系统剪贴板,只要使用粘贴,即可找回帖子内容.

具体修改办法如下:

1、快速回复的修改,打开后台风格模板总管理page_dispbbs temp(0),找到

var cookiesstr=readCookie('mofaface_'+ topicid);
if (cookiesstr ==null){
createCookie('mofaface_'+ topicid,MagicID,365)
DispMagicEmot(MagicID,350,500)
}
}
</script>


在</script>上面添加下面代码

function CopyBody()
{
IframeID.focus();
IframeID.document.execCommand('selectAll');
IframeID.document.execCommand('copy');
alert("你发表的内容已被复制到剪贴板，如果发帖不成功,请在编辑框中按下CTRL+V即可找回帖子内容!")
}

修改结果如下:红色部分即增加的代码!

var cookiesstr=readCookie('mofaface_'+ topicid);
if (cookiesstr ==null){
createCookie('mofaface_'+ topicid,MagicID,365)
DispMagicEmot(MagicID,350,500)
}
}
function CopyBody()
{
IframeID.focus();
IframeID.document.execCommand('selectAll');
IframeID.document.execCommand('copy');
alert("你发表的内容已被复制到剪贴板，如果发帖不成功,请在编辑框中按下CTRL+V即可找回帖子内容!")
}
</script>



2、然后找到

<form id="Dvform" name="Dvform" action="savepost.asp?action=sre&amp;method=fastreply&amp;BoardID={post/postinfo/@boardid}" onkeydown="ctlent();" onsubmit="Dvbbs_CopyData('Body');" method="post">


修改为下面代码,红色为添加部分


<form id="Dvform" name="Dvform" action="savepost.asp?action=sre&amp;method=fastreply&amp;BoardID={post/postinfo/@boardid}" onkeydown="ctlent();" onsubmit="CopyBody(); Dvbbs_CopyData('Body');" method="post">



3、主题发布的修改,打开后台风格模板总管理page_post temp(0),找到

<form name="Dvform" method="post" action="{$toaction}" onsubmit="Dvbbs_CopyData('Body');return Checkpostdata();">

修改为下面代码,

<form name="Dvform" method="post" action="{$toaction}" onsubmit="CopyBody(); Dvbbs_CopyData('Body');return Checkpostdata();">



4、找到
function showtitle()

在上面增加

function CopyBody()
{
IframeID.focus();
IframeID.document.execCommand('selectAll');
IframeID.document.execCommand('copy');
alert("你发表的内容已被复制到剪贴板，如果发帖不成功,请在编辑框中按下CTRL+V即可找回帖子内容!")
}



OK!修改完成!
这个修改在发贴时会出现提示窗,"你发表的内容已被复制到剪贴板，如果发帖不成功,请在编辑框中按下CTRL+V即可找回帖子内容!"

如果你不想要提示窗,那么请按下面的方法修改:

1. 去掉上面1. 4.步代码中的这句代码,下面红色显示,此句为提示窗,其他修改同上!

alert("你发表的内容已被复制到剪贴板，如果发帖不成功,请在编辑框中按下CTRL+V即可找回帖子内容!")


2.主题发布的修改,在动网默认风格分页面模板(page_post)界面风格管理,----template.html(0),找到

④ 如果您觉得自己的帖子有一定价值，或管理人员希望用户付出一定代价才能浏览相关内容，可发起金币购买贴<br />

在下面增加一句提示代码

<font color="#FF0000"><img src="skins/Default/ztop.gif"> 发贴时内容将被复制到剪贴板,如果发贴失败,请重新在编辑框中用鼠标右键粘贴或用"CTRL+V"即可找回帖子内容!</font><br/>

或者(没有图片的提示)

<font color="#FF0000">★发贴时内容将被复制到剪贴板,如果发贴失败,请重新在编辑框中用鼠标右键粘贴或用"CTRL+V"即可找回帖子内容!★</font><br/>


3.快速回复的修改,后台风格模板总管理page_dispbbs temp(0),找到

<div class="postlary2" style="height:28px;line-height:28px;border-top:0px; " >
<div class="postuserinfo" style="height:28px;"><input type="checkbox" checked="checked" value="yes" name="signflag" /><b>显示签名</b></div>
<div class="postie" style="height:28px;padding:0px;text-indent:10px;text-align:left; "><div>
<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="{post/setting/@maxpostlen}" name="total" /> 字节.
</div></div>

修改为下面代码,红色为修改和增加部分

<div class="postlary2" style="height:50px;line-height:28px;border-top:0px; " >
<div class="postuserinfo" style="height:28px;"><input type="checkbox" checked="checked" value="yes" name="signflag" /><b>显示签名</b></div>
<div class="postie" style="height:50px;padding:0px;text-indent:10px;text-align:left; "><div>
<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="{post/setting/@maxpostlen}" name="total" /> 字节.
<br /><font color="#FF0000">★发贴时内容将被复制到剪贴板,如果发贴失败,请重新在编辑框中用鼠标右键粘贴或用"CTRL+V"即可找回帖子内容!★</font>
</div></div>

钟祥一中 课堂实录教学视频 精品课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
孤孤单单
 小大  12楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：旅长 贴子：498 积分：6825 威望：0 精华：24 注册：2006/9/19 22:37:12 		关闭论坛展区  发贴心情 Post By：2006/10/2 22:24:59  

 

1.首先把论坛目录下的 show.asp 文件改为任意名，当你想要回这个功能的时候再改回来。

2.进入后台 “动网默认风格分页面模板(main_style)界面风格管理”里面找到“Dvbbs.mainhtml(6)”

找到下面的代码删去或屏蔽

<!--
<div class="menudiv1"><a href="show.asp?boardid=13" onmouseover="showmenu(event,'','Menu_Show')" class="ImgOnclick">论坛展区</a></div>
-->

 

然后保存修改，这下你看看还能不能进行论坛展区呀，呵呵，大家觉得这个方法好的话就顶一下。

生物教学视频
名师课堂
实录精品
课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
万里云
 小大  13楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：652 积分：8530 威望：20 精华：32 注册：2005/12/31 8:02:06 		动网论坛防机器注册  发贴心情 Post By：2009/10/22 15:39:26  

<%

'-------针对信息产业局服务器一流信息监控的动网防广告代码

'说明:防注册机核心检测代码

'--检测当前是否访问reg.asp 即进行注册的相关操作

If server.mappath(Request.ServerVariables("SCRIPT_NAME")) = Server.MapPath("reg.asp") Then

'判断Session对象是否被赋值

If Session("AllowReg") <> 1 Then

Response.Write("<script language=""javascript"">" & VbCrLf)

Response.Write("<!--" & VbCrLf)

Response.Write("alert (""论坛启用了新防注册机机制,给您注册时带来的不便，敬请原谅！"");" & VbCrLf)

Response.Write("alert (""注册前请您先浏览论坛任意版块中的任意一个帖子，既可注册！"");" & VbCrLf)

Response.Write("window.location.href = ""index.asp"";" & VbCrLf)

Response.Write("// ->" & VbCrLf)

Response.Write("</script>" & VbCrLf)

Response.End

End if

End if

'检测是否在查看公告页面

If server.mappath(Request.ServerVariables("SCRIPT_NAME")) = Server.MapPath("dispbbs.asp") Then

If Session("AllowReg") <> 1 Then

Session("AllowReg") = 1

End if

End if

%>

复制到CONN里面，或每个页面都会调用的页面也行

-----------------------------------------------------------------------------

怎样设置注册机恶意注册防止垃圾帖

操作方法：

1.打开reg.asp文件

先找到:

answer=md5(Request.form("answer"),16)

End If

其下面增加:

'ssa加入防止恶意注册必填项

If Request.form("Forumname")="" Then

Response.redirect "showerr.asp?ErrCodes=<li>您没有回答“防恶意注册问题答案”！&action=OtherErr"

Else

If Request.form("Forumname")<>Dvbbs.Forum_Info(0) Then

Response.redirect "showerr.asp?ErrCodes=<li>请回答正确的“防恶意注册问题答案”！&action=OtherErr"

End If

End If

再找到: TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))

在其下面添加一行: TempLateStr=Replace(TempLateStr,"{$Forumname}",Dvbbs.Forum_Info(0))

2.后台界面风格模板总管理page_login template.html(13)中找到

<TD class=tablebody1><B>问题答案</B>：<BR>忘记密码的提示问题答案，用于取回论坛密码</TD>

<TD class=tablebody1>

<INPUT type=text size=30 name=answer>

</TD></TR>

后面添加:

<TR>

<TD class=tablebody1><B>本论坛的中文名字是什么？</B><BR><font color=red>此条为防止恶意注册必填项！<br>

答案:</font><input type="text" value={$Forumname} onclick="oCopy(this)" readonly style="border-left:none; border-right:none; border-top:none; border-bottom: 1 solid blue;background:transparent;width:180px;color:blue"> <button style="font-size:12px; cursor:help; border-left:none; border-right:none; border-top:none; border-bottom:none; background:transparent" onclick="window.clipboardData.setData('text',this.previousSibling.value)">

<font title="点击即可复制答案">(点击复制)</font></botton></TD>

<TD class=tablebody1>

<INPUT maxLength=50 size=30 name=Forumname></TD>

</TR>



钟祥一中 课堂实录教学视频 精品课件
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
万里云
 小大  14楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：652 积分：8530 威望：20 精华：32 注册：2005/12/31 8:02:06 		动网论坛防机器注册  发贴心情 Post By：2009/10/22 15:46:13  

实现方法：


第一步：打开reg.asp文件， 找到：

TempLateStr=Replace(TempLateStr,"{$color}",Dvbbs.mainsetting(1))
TempLateStr=Replace(TempLateStr,"{$FaceDefault}",FaceDefault)

在上面插入如下代码：

'<!--修改开始-->
Dim aa,bb,xx
Randomize
aa = int(rnd*10)
bb = int(rnd*10)
xx = aa + bb
session("Answer") = xx
TempLateStr=Replace(TempLateStr,"{$Ask}",aa&" + "&bb&"= ？")
TempLateStr=Replace(TempLateStr,"{$Answer}",xx)
'<!--修改结束-->

第二步：在reg.asp文件找到：

If Dvbbs.forum_setting(78)="1" Then
If Not Dvbbs.CodeIsTrue() Then
'Response.write "验证码校验失败，请返回刷新页面后再输入验证码"
Response.redirect "showerr.asp?ErrCodes=<li>验证码校验失败，请返回刷新页面后再输入验证码。&action=OtherErr"
End If
End If

在上面添加如下代码：

'<!--修改开始-->
If Not Int(Request.Form("zhuceji")) = Session("Answer") Then
Response.redirect "showerr.asp?ErrCodes=<li>未填写正确的防注册机项，不能注册！&action=OtherErr"
End If
'<!--修改结束-->

第三步：进入后台风格模板总管理，打开page_login模板中的template.html(13)，找到：

function formcheck(){
if (RegCheck.pass(document.theForm.{$psw}.value,'{$psw}',0)==false){
return false;
}

在上面添加如下代码：

<!--修改开始-->
function checkzcj(obj)
{
if (obj.value!="{$Answer}")
{
isok_zhuceji.innerHTML = "<img src='"+forum_picurl+"/note_error.gif' border='0'/><span class='redfont'>填写错误</span>";
}
else
{
isok_zhuceji.innerHTML = "<img src='"+forum_picurl+"/note_ok.gif' border='0'/><span class='bluefont'>填写正确</span>";
}
}
<!--修改结束-->

第四步：找到：

<tr>

<td class="tablebody1"><b>Email地址</b>：<br />请输入有效的邮件地址，这将使您能用到论坛中的所有功能</td>

<td class="tablebody1">

在上面添加如下代码：

<!--修改开始-->
<tr>

<td class="tablebody1"><b>请输入下面这段公式的答案</b>：<br />此项为防注册机项，公式：<font color="#0000FF"><b>{$Ask}</b></font></td>

<td class="tablebody1">

<input name="zhuceji" type="text" size="30" style="float:left;" tabindex="9"/ onkeyup="checkzcj(this);"><div id="isok_zhuceji" class="forminfo"></div>

</td></tr>
<!--修改结束-->

第五步，找到：

if (RegCheck.Value(document.theForm.e_mail.value,'e_mail')==false){
return false;
}
return true;

在上面添加如下代码：

<!--修改开始-->
if (RegCheck.Value(document.theForm.zhuceji.value,'zhuceji')==false){
return false;
}
if (document.theForm.zhuceji.value!="{$Answer}"){
isok_zhuceji.innerHTML = "<img src='"+forum_picurl+"/note_error.gif' border='0'/><span class='redfont'>请填写正确的答案！</span>";
return false;
}
<!--修改结束-->

钟祥一中 课堂实录教学视频 精品课件
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
hyichun1997
 小大  15楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：3424 积分：46943 威望：20 精华：144 注册：2006/2/20 13:17:21 		  发贴心情 Post By：2009/10/25 15:55:20  

取消《请提交您的时区和时间》注册项设置：

bbs/userregmanager.asp?action=setting

钟祥一中 课堂实录教学视频 精品课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
帅哥哟，离线，有人找我吗？
hyichun1997
 小大  16楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：园主 贴子：3424 积分：46943 威望：20 精华：144 注册：2006/2/20 13:17:21 		  发贴心情 Post By：2009/10/25 16:09:54  

注册设置回答问题：

inc/Checkyuckj.asp

钟祥一中 课堂实录教学视频 精品课件 教学实录
支持(0) 中立(0) 反对(0) 回到顶部
WAP版【生物百花园】　|　RSS2.0　|　Xhtml无图版　|　Xslt无图版
Copyright ©2000 - 2095 生物百花园
www.biobox.cn
Powered By Dvbbs Version 8.3.0 | Design：生物百花园