公会论坛修改设置专帖（以备不时之需）

恋爱、结婚插件帖间显示设置

安装方法：

后台添加插件菜单: (可选)(注意"../"不能少)

链 接 plus_marry_index.asp

管理链接 ../plus_marry_admin.asp

插 件 ID marry

链 接 plus_marry_index.asp

管理链接 ../plus_marry_admin.asp

插 件 ID marry

帖间显示部分:

第一步 打开DISPBBS.ASP 文件 加入红色字部分

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<!--#include file="inc/dv_ubbcode.asp"-->
<!--#include file="plus_marry_show.asp"-->
<%
If Dvbbs.BoardID < 1 Then
Response.Write "参数错误"
Response.End
End If
Dvbbs.LoadTemplates("dispbbs")

………………………………………………………………………………

postbody=Node.selectSingleNode("@body").text
'过滤脏字
postbody=Dvbbs.ChkBadWords(postbody)
Topic=Node.selectSingleNode("@topic").text
Node.selectSingleNode("@topic").text=Dvbbs.ChkBadWords(Topic)
UserName=Node.selectSingleNode("@username").text

Node.attributes.setNamedItem(postuserlist.createNode(2,"love","")).text=islove(Node.selectSingleNode("@username").text)

PostBuyUser=Node.selectSingleNode("@postbuyuser").text
ReplyID_a=Node.selectSingleNode("@announceid").text
RootID_a=Node.selectSingleNode("@rootid").text
AnnounceID_a=ReplyID_a
Node.selectSingleNode("@username").text=Dvbbs.ChkBadWords(username)　

第二步，进入后台风格模板管理，打开 PAGE_DISPBBS template.html(0)加入红色字部分

<xsl:if test="/post/userlist/user[@userid=$userid]/@usertitle != ''"><div>头衔：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@usertitle"/></div></xsl:if>
</xsl:if>
<div>等级：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userclass"/></div>

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

<xsl:if test="/post/userlist/user[@userid=$userid]/@userpower != 0"><div>威望：<font color="red"><b><xsl:value-of select="/post/userlist/user[@userid=$userid]/@userpower"/></b></font></div></xsl:if>
<div>文章：<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userpost"/></div>

用户资料显示部分修改

第一步：修改 dispuser.asp文件，添加红色部份

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="plus_marry_show.asp"-->
<%
Dvbbs.LoadTemplates("dispuser")
Dim ErrCodes,UserName,ShowUserid
UserName=Dvbbs.CheckStr(Request("name"))
If IsNumeric(Request("id")) and Request("id")<>"" Then
ShowUserid=Clng(Request("id"))
Else
…………………………………………………………………………………………………………………………

TempPart1=Replace(TempPart1,"{$UserMsn}",UserIM(3))
TempPart1=Replace(TempPart1,"{$UserAIM}",UserIM(4))
TempPart1=Replace(TempPart1,"{$UserYahoo}",UserIM(5))
TempPart1=Replace(TempPart1,"{$UserUC}",UserIM(6))
TempPart1=Replace(TempPart1,"{$UserMobile}",UserInfo(39))
TempPart1=Replace(TempPart1,"{$UserID}",ShowUserid)
dim love
love=islove(username)
TempPart1=Replace(TempPart1,"{$userlove}",love)
Response.Write TempPart1
End If

'详细资料部分

第二步： 分页面模板(page_dispuser)界面风格管理template.html(1)

</tr>
<tr>
<td class=tablebody2 align=right valign=top>婚恋状况</td>
<td class=tablebody2>{$userlove}</td>
<td class=tablebody1 align=center>
<b><a href="#" onclick="openScript('plus_Tools_InfoSetting.asp?action=0&ToUserID={$UserID}',500,400)">使用道具</a> | <b><a href="javascript:openScript('messanger.asp?action=new&touser={$UserName}',500,400)">给他留言</a> |
<a href="friendlist.asp?action=addF&myFriend={$UserName}" target=_blank>加为好友</a></b>
</td>
</tr></table><br>

首页滚动显示部分修改

（我个人觉得是没什么必要。因为实在想大家知道结婚了，可以在后台管理中设置结婚后发公告。实在不行还可以去发帖子…………不过有很多人找我要。就改了出来，因为我不懂XML，所以用了框架的方法，暂时只能这样。SORRY）

打开分页面模板（PAGE_INDEX） TEMPLATE（0） 添加红色字部分

a href="query.asp?stype=4&amp;pSearch=0&amp;nSearch=0">热门话题</a>
<font face="Wingdings" color="666666">v</font>
<a href="infolist.asp?t=toplist&amp;orders=1">发贴排行</a>
<font face="Wingdings" color="666666">v</font>
<a href="infolist.asp?t=toplist&amp;orders=7">用户列表</a>
</div>
</div>

<div class="th" style="text-align :center; ">
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">ea</FONT>
<a href="plus_marry_index.asp">【礼堂首页】</a>
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">bfea</FONT>
<a href="plus_marry_court.asp">【婚恋事务】</a>
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf</FONT><FONT FACE="Wingdings 2" COLOR="#FF9BB1">ea</FONT>
<a href="plus_marry_list.asp">【详细列表】</a>
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf</FONT><FONT FACE="Wingdings 2" COLOR="#FF9BB1">ea</FONT>
<a href="plus_marry_cabaret.asp">【社区酒店】</a>
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf</FONT>
</div>
<div class="mainbar3" style="text-align :center;padding:3px 0px;height:28px;" >
<iframe id="top_marry_topshow" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" src="plus_marry_topshow.asp" width="100%" height="20"></iframe></div>

</xsl:template>
<xsl:template name="userinfo">
<div style="float:left;width:80px;height:100px;overflow :hidden;"><a href="dispuser.asp?id={BoardList/userinfo/@userid}" title="查看我的信息"><img src="{BoardList/userinfo/@userface}" alt="查看我的信息" height="60" style="margin-top:12px;margin-left:2px;border:0px"/></a></div>
<div style="float:left;">

[此贴子已经被作者于2007-12-14 16:43:16编辑过]

占位编辑

倒计牌修改设置

把文件放在Resource/Label/
然后修改page_index  template.html(0)

找到
{$page_right.begin}
 <div class="page_right"><!--Div page_right -->

下面添加：
<ul>{$label.bj}</ul>

[此贴子已经被作者于2008-4-24 23:02:37编辑过]

荣誉勋章修改设置

 

3、修改论坛文件“dispbbs.asp”：
   ----------------------------------------------------------------------------------------------------------
   找到：
 Dim AnnounceID, ReplyID, Replyid_a, AnnounceID_a, RootID_a
   在下边添加
 Dim ExMedal,ExMedalDataList
   ----------------------------------------------------------------------------------------------------------
   找到：
 G_UserItemQuery = "userid,username,useremail,userpost,usertopic,usersign,usersex,userface,userwidth,userheight,joindate,lastlogin,userlogins,lockuser,userclass,userwealth,userep,usercp,userpower,userdel,userisbest,usertitle,userhidden,usermoney,userticket,titlepic,usergroupid,userim,useremail" '查询用户的字段列表
   在“useremail”后边添加：
 ,ex_medal
   ----------------------------------------------------------------------------------------------------------
   找到：
 LoadUserListData
   在下边添加：
 GetExMedal
   ----------------------------------------------------------------------------------------------------------
   找到：
 G_UserList = Rs.GetRows(-1)
   在下边添加：
  ExMedalDataList = ""
  For I=0 To UBound(G_UserList,2)
   If Not IsNull(G_UserList(29,I)) And Not IsEmpty(G_UserList(29,I)) And Not Len(G_UserList(29,I))=0 Then
    If Len(ExMedalDataList)=0 Then
     ExMedalDataList=G_UserList(29,I)
    Else
     ExMedalDataList=ExMedalDataList & "," & G_UserList(29,I)
    End If
   End If
  Next
   ----------------------------------------------------------------------------------------------------------
   找到：
 Sub LoadAndParseVote(sTemplate)
   在上边添加：
 Sub GetExMedal()
  Dim Rs
  If IsNull(ExMedalDataList) Or IsEmpty(ExMedalDataList) Or Len(ExMedalDataList)=0 Then Exit Sub
  Set Rs=Dvbbs.Execute("Select id,medalname,medaltext,medalpic,medalnum,addtime From [Ex_MedalData] Where id In ("& ExMedalDataList &")")
  If Not (Rs.Eof And Rs.Bof) Then ExMedal=Rs.GetRows(-1)
 End Sub
   ----------------------------------------------------------------------------------------------------------
   找到：
 Dim i, p, s, s2, bShowAll
   替换为：
 Dim i,j, p, s, s2, bShowAll
   ----------------------------------------------------------------------------------------------------------
   找到：
 TPL_Echo G_UserList(27, i-1)(6)
   在下边添加：
   Case "usermedal"
    s="无":s2=G_UserList(29, i-1)
    If Not IsNull(s2) And Not IsEmpty(s2) And Not Len(s2)=0 And IsArray(ExMedal) Then
     s="":s2=Split(s2,",")
     For I=0 To Ubound(s2)
      For J=0 To UBound(ExMedal,2)
       If Int(s2(I))=Int(ExMedal(0,J)) Then s=s&"<img src=""plus/ex_medal/pic/"&ExMedal(3,J)&""" alt="""&ExMedal(1,J)&"&#xA;"&ExMedal(2,J)&""" style=""width:20px;height:35px;margin-right:3px;margin-bottom:5px;""/>"
      Next
     Next
    End If
    TPL_Echo s
   ----------------------------------------------------------------------------------------------------------
4、进入论坛后台-风格界面-风格界面模板总管理-分页面模板(page_dispbbs)-界面风格-template.html(0)：
   ----------------------------------------------------------------------------------------------------------
   找到：
 <span>等级：{$user.userclass}</span>
   在上边添加：
 <span style="width:125px;">勋章：<br/>{$user.usermedal}</span>
   ----------------------------------------------------------------------------------------------------------

其它：修改模板“<span style="width:125px;">”中的125可以调整行勋章数量。

宠物中心修改设置

 

1、打开dispbbs.asp文件

   (A)在开始位置找到：

<!--#include file="inc/code_encrypt.asp"-->

   在下面添加：

<!--#include file="pet_conn.asp"-->
<!--#include file="pet_dispbbs.asp"-->

   (B)再找到：

   TPL_Echo G_UserList(27, i-1)(6)

   在下面添加下面的代码：

   Case "mypet_P"
                                s = showPet(username,0)
    TPL_Echo s
   Case "mypet_Z"
                                s = showPet(username,1)
    TPL_Echo s

2、打开savepost.asp文件

   (A)在开始位置找到：

<!--#include file="inc/code_encrypt.asp"-->

   在下面添加：

<!--#include file="pet_conn.asp"-->

   (B)再找到：

  Forumupload=split(Dvbbs.Board_Setting(19),"|")

   在后面添加以下代码：

  '--====koomvPet Start=====--
  If Action = 5 Or Action = 7 Then
   connpet.ExeCute("UPDATE mypetdata SET mypetexp= mypetexp+"&DEF_PET_newtopicexp&" WHERE username ='"& Dvbbs.MemberName &"' and mypetdead <1")
  ElseIf Action = 6 then
   connpet.ExeCute("UPDATE mypetdata SET mypetexp= mypetexp+"&DEF_PET_replytopicexp&" WHERE username ='"& Dvbbs.MemberName &"' and mypetdead <1")
  End If
  '--====koomvPet End=====--

3、贴间调用部分

   分页面模板(dispbbs)界面风格管理 template.html(0)找到：

 <span>注册：<em>{$user.joindate}</em></span>

   在下添加：

 <!--KoomvPet Start-->
 <div class="tabletitle1" style="width:168px;height:18px;text-align:center;float:left;font-weight:bold;" onClick="document.all.menu{$bbslist.floor}1.style.display=document.all.menu{$bbslist.floor}1.style.display=='none'?'':'none';document.all.menu{$bbslist.floor}2.style.display='none';return false" style="cursor: hand;">我 的 宠 物 图 片</div>
 <div id="menu{$bbslist.floor}1" style="display:display;" class="tabletitle1" style="width:168px;float:left;" >{$user.mypet_P}</div>
 <div class="tabletitle1" style="width:168px;height:18px;text-align:center;float:left;font-weight:bold;" onClick="document.all.menu{$bbslist.floor}2.style.display=document.all.menu{$bbslist.floor}2.style.display=='none'?'':'none';document.all.menu{$bbslist.floor}1.style.display='none';return false" style="cursor: hand;">我 的 宠 物 资 料</div>
 <div id="menu{$bbslist.floor}2" style="display:none;"  class="tabletitle1" style="width:168px;float:left;">{$user.mypet_Z}</div>
 <div style="margin-bottom:10px;"></div>
 <!--KoomvPet End-->

[此贴子已经被作者于2008-4-24 1:16:16编辑过]

广告公司修改设置

 

   1.首先确定论坛为8.2版本
   2.打开后台，前往风格界面→分页面模板(page_dispbbs)→template.html(0)
   3.
     找到| <a href="http://service.51uc.com/user_info/show_user_info_base.shtml?UID={$user.uc}" title="{$user.username}的UC情况" target="_blank">UC</a>

     在下面添加| <a href="plus_ad_tiezi.asp?b={$pub.boardid}&amp;t={$page.topicid}&amp;tiezi={$bbslist.title}" target="_blank"><img src="images/ad_img/tiezi.gif" border="0" title="觉得本贴好的话，请复制本贴告诉你的朋友，并能得到奖励！"></a>
   4.更新 论坛缓存 ，完成“复制本文地址传给好友”功能的添加。

[此贴子已经被作者于2008-4-24 1:12:32编辑过]

1. KS搜索结果的修改：

 

\Plus\Search.asp

 

行  27 -   MaxPerPage=5

 

修改5为自己需要的数值

 

 

 

2. 取消文章系统的图片自动添加“新窗口打开”

 

KS_Cls\KS.RCls.asp

 

搜索

 

Content=re.replace(Content,"<img src=$2 style=""cursor: pointer"" alt=""<点此在新窗口浏览图片>"" onclick=""javascript:window.open(this.src);"" onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)"" border=""0""/>")

 

整行删除

避免Flash始终位于最上层的解决方法

在<object>里面插入<PARAM NAME=wmode VALUE=transparent>

啊啊啊...如此简单！耗费我一上午心血！

网页添加背景音乐代码：

RM格式

<!--背景音乐<EMBED src=***.rm hidden=true type=application/octet-stream autostart="true" loop="true"></p>-->

MP3格式－最小化停止

<!--背景音乐<bgsound src="***.mp3" loop="-1"></p>-->

MP3格式－最小化不停止

<embed src="***.mp3" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="1" height="1" loop="true"></embed>

[此贴子已经被作者于2008-1-24 13:25:13编辑过]

首页跳转JS调用：

<script language='javascript' src='域名.js'></script>

域名.js 内容：

switch(location.host){

case 'www.abc.com':

location.href="http://www.abc.com/bbs/"

break;

}