DV7.1SP1版修改美化

村长小麦 · 发表于 2007-5-13 13:39:23

<div class="t_msgfont" id="message11881">说明：以下方法适用于7.1，和7.1 SP1，7.0也可能适用，不过没测试。 此方法将使满足条件的贴子进入审核中，没有审核不能显示，不会将用户发贴删除。 一、打开Savepost.asp 二、搜索到NeedIsAudit=0 三、在它下面加上以下代码： <div class="msgheader">QUOTE:</div><div class="msgborder">'VILL 新用户含链接不能发表 If DateDiff("d",Dvbbs.MyUserInfo(14),Now()) < 10 Then '10表示对注册不满10天的用户进行检查 Dim BlackList,TempBodyInfo,V BlackList = ".cn|.net|.com|.org|.cc|.biz|合租服务器|入chinanet|整机租用|虚拟主机|域名注册|企业邮局" '这里可以自定义关键字 BlackList = Split(BlackList,"|") TempBodyInfo = Content TempBodyInfo = LCase(TempBodyInfo) For V=0 To UBound(BlackList) If InStr(TempBodyInfo,BlackList(V)) > 0 Then NeedIsAudit=1 Exit Function End If Next End If '添加结束</div></div>

村长小麦 · 发表于 2007-5-13 13:39:55

<div class="t_msgfont" id="message11673">来源：<a href="http://bbs.dvbbs.net/dispbbs.asp?boardid=13&id=1104504&star=1#1592215" target="_blank">http://bbs.dvbbs.net/dispbbs.asp?boardid=13&id=1104504&star=1#1592215</a>原帖地址：<a href="http://www.snhome.cn/bbs/dispbbs.asp?boardid=11&id=425" target="_blank"></a><a href="http://www.snhome.cn/bbs/dispbbs.asp?boardid=11&id=425" target="_blank">http://www.snhome.cn/bbs/dispbbs.asp?boardid=11&id=425</a><a></a>演示：<a href="http://www.snhome.cn/bbs/dispbbs.asp?boardid=7&id=382&star=1#382" target="_blank"></a><a href="http://www.snhome.cn/bbs/dispbbs.asp?boardid=7&id=382&star=1#382" target="_blank">http://www.snhome.cn/bbs/dispbbs.asp?boardid=7&id=382&star=1#382</a><a></a>思念家园 http:/www.snhome.cn/bbs 点击广告后显示帖子内容【广告帖】【广告帖】功能与使用说明1、可以在发帖时设置要不要显示广告2、版主以上级别用户可以发广告帖，普通用户只有在发帖达到一定数量后方可发广告帖（这一项可以不用）3、广告内容在个人设置里添加，不到要求不可以设置【广告帖】制作方法一、数据库的修改1、在表Dv_User里增加字段snhome_ad1和snhome_ad2（属性如图所示） <img src="http://bbs.dvbbs.net/skins/default/filetype/jpg.gif" border="0" alt=""/>此主题相关图片如下： <a href="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/200511172154712920.jpg" target="_blank"><img src="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/200511172154712920.jpg" border="0" alt=""/></a>2、在表Dv_bbs1里增加字段snhome_flag（属性如图所示） <img src="http://bbs.dvbbs.net/skins/default/filetype/jpg.gif" border="0" alt=""/>此主题相关图片如下： <a href="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/200511172154767918.jpg" target="_blank"><img src="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/200511172154767918.jpg" border="0" alt=""/></a>二、文件的修改1、post.asp①找到 Private ParentID,RootID,Topic,Content,char_changed,signflag,mailflag,iLayer,iOrders在后面添加,snhome_flag②找到If Dvbbs.GroupSetting(51)="1" And (Action=1 Or Action=3) Then TempStr = Replace(TempStr,"{$useraction}",TempArray(3))在下面添加'思念家园广告帖 <a href="http://www.snhome.cn/" target="_blank"></a><a href="http://www.snhome.cn/" target="_blank"></a><a href="http://www.snhome.cn/" target="_blank">www.snhome.cn</a><a></a><a></a> If Dvbbs.GroupSetting(51)="1" And (Action=1 Or Action=3 Or Action=4) Then TempStr = Replace(TempStr,"{$snhome_ad}",TempArray(9))③找到 TempStr = Replace(TempStr,"{$retopicloop}","") 有四处在下面添加TempStr = Replace(TempStr,"{$snhome_ad}","")④找到 TempStr = Replace(TempStr,"","disabled=""disabled""")添加TempStr = Replace(TempStr,"{$checkbox6}","disabled=""disabled""") TempStr = Replace(TempStr,"{$checkbox7}","disabled=""disabled""")⑤找到 TempStr = Replace(TempStr,"","")添加TempStr = Replace(TempStr,"{$checkbox"&snhome_flag+6&"}","checked=""checked""") TempStr = Replace(TempStr,"{$checkbox7}","")⑥找到Set Rs=Dvbbs.Execute("select body,topic,locktopic,username,dateandtime,isbest,UbbList,PostBuyUser,GetMoneyType,signflag,ip在后面添加,snhome_flag⑦找到 Set Rs=Dvbbs.Execute("select b.body,b.topic,b.locktopic,b.username,b.dateandtime,b.isbest,u.lockuser,u.UserGroupID,b.UbbList,b.PostBuyUser,b.GetMoneyType,b.signflag,b.ip添加,b.snhome_flag⑧找到 Set Rs=Dvbbs.Execute("Select top 10 b.UserName,b.Topic,b.dateandtime,b.body,b.AnnounceID,b.isbest,u.lockuser,u.UserGroupID,b.postbuyuser,b.ubblist,b.IsAudit,b.locktopic,b.signflag,b.ip,b.postuserid,添加添加,b.snhome_flag⑨找到（有两处都要加） Set Rs=Dvbbs.Execute("select b.username,b.topic,b.body,b.dateandtime,u.UserGroupID,b.signflag,b.emailflag,b.UbbList,b.Expression,b.UseTools,添加,b.snhome_flag2、savepost.asp①找到 Private AnnounceID,ReplyID,ParentID,RootID,Topic,Content,char_changed,signflag,mailflag,iLayer,iOrders在后面加,snhome_flag②找到 Myistopall = Dvbbs.Checkstr(Trim(Request.Form("istopall")))在下面添加 snhome_flag = Dvbbs.Checkstr(Trim(Request.Form("snhome_flag")))③找到 If Dvbbs.UserID=0 Then mailflag=0:signflag=0 Else If Not IsNumeric(mailflag) Or mailflag="" Then mailflag=0 mailflag=CInt(mailflag) If Not IsNumeric(signflag) Or signflag="" Then signflag=1 signflag=CInt(signflag) End If 修改为If Dvbbs.UserID=0 Then mailflag=0:signflag=0:snhome_flag=0 Else If Not IsNumeric(mailflag) Or mailflag="" Then mailflag=0 mailflag=CInt(mailflag) If Not IsNumeric(signflag) Or signflag="" Then signflag=1 signflag=CInt(signflag) If Not IsNumeric(snhome_flag) Or snhome_flag="" Then snhome_flag=1 snhome_flag=CInt(snhome_flag) End If④找到Set Rs=Dvbbs.Execute("select b.username,b.topic,b.body,b.dateandtime,u.UserGroupID,b.signflag,b.emailflag 在后面添加,b.snhome_flag（有两处）⑤找到 Topic=rs("topic") 在下面添加 snhome_flag=Rs("snhome_flag")⑥找到 SQL="insert into "&TotalUseTable&"(Boardid,ParentID,username,topic,body,DateAndTime,length,RootID,layer,orders,ip,Expression,locktopic,signflag,emailflag,isbest,PostUserID,isupload,IsAudit,Ubblist,GetMoney,UseTools,PostBuyUser,GetMoneyType) values ("&Dvbbs.boardid&","&<img alt="" src="http://www.happybao.com/forums/images/smilies/titter.gif" border="0" smilieid="9"/>arentID&",'"&username&"','"&topic&"','"&Content&"','"&DateTimeStr&"','"&Dvbbs.strlength(Content)&"',"&RootID&","&ilayer&","&iorders&",'"&Dvbbs.UserTrueIP&"','"&Expression(1)&"',"&locktopic&","&signflag&","&mailflag&",0,"&Dvbbs.userid&","&ihaveupfile&","&IsAudit&",'"&UbblistBody&"',"&ToMoney&",'"&UseTools&"','"&ToolsBuyUser&"',"&GetMoneyType&")"修改为 SQL="insert into "&TotalUseTable&"(Boardid,ParentID,username,topic,body,DateAndTime,length,RootID,layer,orders,ip,Expression,locktopic,signflag,snhome_flag,emailflag,isbest,PostUserID,isupload,IsAudit,Ubblist,GetMoney,UseTools,PostBuyUser,GetMoneyType) values ("&Dvbbs.boardid&","&<img alt="" src="http://www.happybao.com/forums/images/smilies/titter.gif" border="0" smilieid="9"/>arentID&",'"&username&"','"&topic&"','"&Content&"','"&DateTimeStr&"','"&Dvbbs.strlength(Content)&"',"&RootID&","&ilayer&","&iorders&",'"&Dvbbs.UserTrueIP&"','"&Expression(1)&"',"&locktopic&","&signflag&","&snhome_flag&","&mailflag&",0,"&Dvbbs.userid&","&ihaveupfile&","&IsAudit&",'"&UbblistBody&"',"&ToMoney&",'"&UseTools&"','"&ToolsBuyUser&"',"&GetMoneyType&")"⑦接着找到 rs("emailflag")=mailflag 在下面添加 rs("snhome_flag")=snhome_flag3、mymodify.asp修改①找到 Dim signtrue 在其后添加 ,snhome_ad11,snhome_ad21②找到 sql="Select UserID,UserName,UserEmail,UserPost,UseRsign,UseRsex,UserFace,UserWidth,UserHeight,JoinDate,UserGroup,UserTitle,UserBirthday,UserPhoto,UserInfo,UseRsetting 在后面添加 ,snhome_ad1,snhome_ad2③找到 If My_info(14)<>"" Then ShowUserInfo=split(My_info(14),"|||") If ubound(ShowUserInfo)=14 Then CanUserInfo=True End If End If在它的上面添加 snhome_ad11=My_info(16) snhome_ad21=My_info(17)④找到 My_infotemp=Replace(My_infotemp,"{$user_Setusertrue}",Setusertrue)在下面添加 My_infotemp=Replace(My_infotemp,"{$snhome_ad12}",snhome_ad11) My_infotemp=Replace(My_infotemp,"{$snhome_ad22}",snhome_ad21)⑤找到 Rs("UserPhoto")=Replace(Dv_FilterJS(Request.Form("userphoto")),"|","")在下面添加 Rs("snhome_ad1")=Replace(Request.Form("snhome_ad11"),"|","") Rs("snhome_ad2")=Replace(Request.Form("snhome_ad21"),"|","")4、dispbbs.asp的修改①找到 SQL="Select Top 1 AnnounceID,UserName,Topic,dateandtime,body,Expression,ip,RootID,signflag,isbest,PostUserid,layer,isagree,GetMoneyType,IsUpload,Ubblist,LockTopic,GetMoney,UseTools,PostBuyUser,ParentID修改为 SQL="Select Top 1 AnnounceID,UserName,Topic,dateandtime,body,Expression,ip,RootID,signflag,isbest,PostUserid,layer,isagree,GetMoneyType,IsUpload,Ubblist,LockTopic,GetMoney,UseTools,PostBuyUser,ParentID,snhome_flag②找到SQL="Select AnnounceID,UserName,Topic,dateandtime,body,Expression,ip,RootID,signflag,isbest,PostUserid,layer,isagree,GetMoneyType,IsUpload,Ubblist,LockTopic,GetMoney,UseTools,PostBuyUser,ParentID③修改为SQL="Select AnnounceID,UserName,Topic,dateandtime,body,Expression,ip,RootID,signflag,isbest,PostUserid,layer,isagree,GetMoneyType,IsUpload,Ubblist,LockTopic,GetMoney,UseTools,PostBuyUser,ParentID,snhome_flag④找到SQL="Select AnnounceID,UserName,Topic,dateandtime,body,Expression,ip,RootID,signflag,isbest,PostUserid,layer,isagree,GetMoneyType,IsUpload,Ubblist,LockTopic,GetMoney,UseTools,PostBuyUser,ParentID修改为SQL="Select AnnounceID,UserName,Topic,dateandtime,body,Expression,ip,RootID,signflag,isbest,PostUserid,layer,isagree,GetMoneyType,IsUpload,Ubblist,LockTopic,GetMoney,UseTools,PostBuyUser,ParentID,snhome_flag⑤找到Set Rs=Dvbbs.Execute("Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,userEP,userCP,Userbirthday,Usersex,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney,UserTicket,UserAvaSetting,UserIsAva在后面添加,snhome_ad1,snhome_ad2二、后台的修改分页面模板(page_post) 1、template.html(0)找到{$useraction}在后面加上 {$snhome_ad}2、template.html(6)在最后添加 ||&nbsp;&nbsp;广告:<input type="radio" name="snhome_flag" value="1" {$checkbox7}>开 <input type="radio" name="snhome_flag" value="0" {$checkbox6}/>关分页面模板(page_dispbbs) template.html(0) 找到<xsl:value-of select="@body" disable-output-escaping="yes" /> 用以下内容替换<xsl:choose> <xsl:when test="@snhome_flag='1' and @parentid ='0'"><div id="yAd" target="_blank" onclick="javascript:will()"> 点击下面广告查看帖子内容→第一步 <xsl:value-of select="/post/userlist/user[@userid=$userid]/@snhome_ad1" disable-output-escaping="yes" /> </div><div id="oUrl" style="display:none" target="_blank" onclick="javascript:willl()"> 点击下面广告查看帖子内容→最后一步 <xsl:value-of select="/post/userlist/user[@userid=$userid]/@snhome_ad2" disable-output-escaping="yes" /> </div><div id="yAdd" style="display:none"> ↓↓谢谢您的支持，帖子内容如下↓↓ <xsl:value-of select="@body" disable-output-escaping="yes"/> </div> <xsl:if test="@snhome_flag='1' and @parentid ='0'"> <script language = "Javascript" src="inc/snhome_ad.js" type="text/javascript"></script> </xsl:if> </xsl:when> <xsl<img alt="" src="http://www.happybao.com/forums/images/smilies/shocked.gif" border="0" smilieid="6"/>therwise><xsl:value-of select="@body" disable-output-escaping="yes" /> </xsl<img alt="" src="http://www.happybao.com/forums/images/smilies/shocked.gif" border="0" smilieid="6"/>therwise></xsl:choose>新建文件 snhome_ad.js 内容为（放在文件夹inc里） if (web__cookie('snhome_cn') !='') { oUrl.style.display = "none"; yAd.style.display = "none"; yAdd.style.display = ""; } else{ }分页面模板(page_usermanager) template.html(5) 找到 <tr><td valign=top class=tablebody1>签&nbsp;&nbsp;&nbsp;&nbsp;名： 不能超过 {$signlength} 个字符，0 为不做限制 文字将出现在您发表的文章的结尾处。</td> <td class=tablebody1> <textarea name="Signature" rows=5 cols=60 wrap=PHYSICAL>{$user_Signature}</textarea> </td></tr> 在下面加上<tr><td valign=top class=tablebody1>广&nbsp;&nbsp;&nbsp;&nbsp;告&nbsp;&nbsp;1： 广告将出现在您发表的文章之前。 注意：发帖>100帖后方可使用广告帖功能</td> <td class=tablebody1> <textarea name="snhome_ad11" rows=5 cols=60 wrap=PHYSICAL>{$snhome_ad12}</textarea> </td></tr> <tr><td valign=top class=tablebody1>广&nbsp;&nbsp;&nbsp;&nbsp;告&nbsp;&nbsp;2： 广告将出现在您发表的文章之前。 注意：发帖>100帖后方可使用广告帖功能</td> <td class=tablebody1> <textarea name="snhome_ad21" rows=5 cols=60 wrap=PHYSICAL>{$snhome_ad22}</textarea> </td></tr> 《完》</div>

村长小麦 · 发表于 2007-5-13 13:40:16

<table class="t_msg" cellspacing="0" cellpadding="4" border="0"><tbody><tr><td class="line" valign="top" height="100%" style="

ADDING-TOP: 10px;"><div class="t_msgfont" id="message11719">动网默认风格分页面模板(page_index)界面风格管理 template.html(3)找到<div class="msgheader">QUOTE:</div><div class="msgborder"><xsl:variable name="marquee" select="0"/> <xsl:variable name="maxposition" select="5"/> <xsl:variable name="show" select="1"/></div>把0设为1就可以了然后找到：<div class="msgheader">QUOTE:</div><div class="msgborder">公告：<xsl:for-each select="xml/news[@boardid=$boardid][position() &lt; ($maxposition+1)]"> <a href="javascript<img alt="" src="http://www.happybao.com/forums/images/smilies/shocked.gif" border="0" smilieid="6"/>penScript('announcements.asp?boardid={$boardid}',500,400)"><xsl:value-of select="@title" disable-output-escaping="yes"/></a>(<xsl:value-of select="translate(@addtime,'T',' ')" />) </xsl:for-each>把公告前加入<img alt="公告图片" src="images/gong.gif"/></div>修改后如下<div class="msgheader">QUOTE:</div><div class="msgborder"><img alt="公告图片" src="images/gong.gif"/>公告：<xsl:for-each select="xml/news[@boardid=$boardid][position() &lt; ($maxposition+1)]"> <a href="javascript<img alt="" src="http://www.happybao.com/forums/images/smilies/shocked.gif" border="0" smilieid="6"/>penScript('announcements.asp?boardid={$boardid}',500,400)"><xsl:value-of select="@title" disable-output-escaping="yes"/></a>(<xsl:value-of select="translate(@addtime,'T',' ')" />) </xsl:for-each></div></div> </td></tr><tr><td valign="bottom"> </td></tr></tbody></table>

村长小麦 · 发表于 2007-5-13 13:41:05

<div class="t_msgfont" id="message11770">(page_dispbbs)界面风格管理-------template.html(0)找到<xsl:if test="/post/userlist/user[@userid=$userid]/@usersign !='' and @signflag =1"> <div style="width:85%;overflow-x: hidden;"> 在其上面添加<xsl:if test="@parentid > 0"> <div> <hr/> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%" height="100%" border="0"> <a href="<a href="http://www.500wan.com/sina/index.asp?regfrom=it577" target="_blank"></a><a href="http://www.500wan.com/sina/index.asp?regfrom=it577" target="_blank"></a><a href="http://www.500wan.com/sina/index.asp?regfrom=it577" target="_blank">http://www.500wan.com/sina/index.asp?regfrom=it577</a><a></a><a></a>" title="新浪500W足球彩票合买俱乐部" target="_blank"><img src="<a href="http://image2.sina.com.cn/ty/up/2005-11-21/U352P6T64D15520F1091DT20051121191023.gif" target="_blank"></a><a href="http://image2.sina.com.cn/ty/up/2005-11-21/U352P6T64D15520F1091DT20051121191023.gif" target="_blank"></a><a href="http://image2.sina.com.cn/ty/up/2005-11-21/U352P6T64D15520F1091DT20051121191023.gif" target="_blank">http://image2.sina.com.cn/ty/up/2005-11-21/U352P6T64D15520F1091DT20051121191023.gif</a><a></a><a></a>" width="550" border="0" align="middle" /></a></td> </tr> </table><hr/> </div></xsl:if>就可以了，这里的"@parentid > 0" 表示除了楼主的贴子外,其他的都显示改广告.如果想让每个帖子都显示的话,头尾<xsl:if test="@parentid > 0"></xsl:if>两句就可以了，想只让楼主的帖子显示广告或者指定的某一楼显示广告将"@parentid > 0" 改成=0(0表是顶楼,您可以改成10等等)附演示图: <a href="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/2005112123373636651.gif" target="_blank"><img src="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/2005112123373636651.gif" border="0" alt=""/></a></div>

村长小麦 · 发表于 2007-5-13 13:41:44

<div class="t_msgfont" id="message11782">打开：userregmanager.asp<% Rem 页面说明,前台的注册设置管理页面,只有超级版主和管理员可以进入 If Not Dvbbs.Master and Not Dvbbs.superboardmaster Then Response.redirect "showerr.asp?ErrCodes=<li>您没有权限进行用户注册管理。</li>蓝色代码删掉保存就可以，测试通过了！</div>

村长小麦 · 发表于 2007-5-13 13:42:16

<div class="t_msgfont" id="message12151">参考网站：<a href="http://bbs.chinaz.com/" target="_blank"></a><a href="http://bbs.chinaz.com/" target="_blank">http://bbs.chinaz.com</a><a></a>
<a href="http://www.nogo8.com/bbs" target="_blank"><a href="http://www.nogo8.com/bbs" target="_blank">http://www.nogo8.com/bbs</a></a><a href="http://www.nogo8.com/bbs" target="_blank">http://www.nogo8.com/bbs</a><a></a>效果： <img src="http://bbs.dvbbs.net/skins/default/filetype/jpg.gif" border="0" alt=""/>此主题相关图片如下： <a href="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/2005112217592084578.jpg" target="_blank"><img src="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/2005112217592084578.jpg" border="0" alt=""/></a>这样的页面最顶部增加一个导航条，有很多方便之处，一来如果你的站项目比较多，比如有博客，游戏等，可以放在最上面，二来如果一些娱乐类论坛插件较多，可以选择主打的或者特色的连接做到上面，总之很方便。当然如果你有兴趣还可以放图片或者flash了。代码： <div class="msgheader">QUOTE:</div><div class="msgborder"><div class="mainbar" id="site_menu"> <a href="#" target="_blank">对应文字</a> | <a href="#" target="_blank">对应文字</a> | <a href="#" target="_blank">对应文字</a> | <a href="#" target="_blank">对应文字</a> | <a href="#" target="_blank">对应文字</a> | <a href="#" target="_blank">对应文字</a> </div></div>其中#可换成你需要的连接blank是打开方式，也可以任意修改。对应文字就不说了吧....想增加减少也很容易，就不说了。方法：将代码插入(main_style)——Dvbbs.mainhtml(4)的最上面。^_^后补：有朋友问到如何改背景颜色。下面说一下——
<div class="msgheader">QUOTE:</div><div class="msgborder"><div class="mainbar" id="site_menu">改为<div class="mainbar" id="site_menu" style="background-color: #996600;>就可以了。颜色代码自己随便改。</div></div>

村长小麦 · 发表于 2007-5-13 13:42:41

此法为本人用FORNTPAGE不断调试而来。代码如下 <div class="mainbar" id="topbar_top">dvbbs</div> <div class="mainbar" id="topbar_top">dvbbs</div> <TABLE class=tableborder1 height=41 cellSpacing=0 cellPadding=0 width="100%" align=center id="table2"> <TBODY> <TR> <TD width=1 height=31></TD> <TD class=TopLighNav2 height=31> <TABLE height=31 width="100%" align=center border=0 cellspacing="0" cellpadding="0" id="table3"> <TBODY> <TR> <TD align=center width="100%" height=18 valign="top"> <<img alt="" src="http://www.happybao.com/forums/images/smilies/titter.gif" border="0" smilieid="9"/> align=center><object classid="clsid<img alt="" src="http://www.happybao.com/forums/images/smilies/biggrin.gif" border="0" smilieid="3"/>27CDB6E-AE6D-11cf-96B8-444553540000" codebase="<a href="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" target="_blank"></a><a href="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6" target="_blank">http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6</a>,0,29,0<a></a>" width="100%" height="168" align="middle"> <param name="_cx" value="24024"> <param name="_cy" value="4445"> <param name="FlashVars" value> <param name="Movie" value="你的FLASH地址"> <param name="Src" value="你的FLASH地址"> <param name="WMode" value="Transparent"> <param name="

lay" value="-1"> <param name="Loop" value="-1"> <param name="Quality" value="High"> <param name="SAlign" value> <param name="Menu" value="-1"> <param name="Base" value> <param name="AllowScriptAccess" value="always"> <param name="Scale" value="ExactFit"> <param name="DeviceFont" value="0"> <param name="EmbedMovie" value="0"> <param name="BGColor" value> <param name="SWRemote" value> <param name="MovieData" value> <param name="SeamlessTabbing" value="1"><embed src="你的FLASH地址" width="100%" height="100" align="middle" quality="high" pluginspage="<a href="http://www.macromedia.com/go/getflashplayer" target="_blank"></a><a href="http://www.macromedia.com/go/getflashplayer" target="_blank">http://www.macromedia.com/go/getflashplayer</a><a></a>" type="application/x-shockwave-flash" scale="noborder" bgcolor="#E4E8EF"> </object> </TD> </tr> <tr> <TD align=left width="110" height="29">　</TD><TD align=left width="111" height="29">　</TD><TD align=center width="111" height="29"></TD><TD align=center width="111" height="29"></TD><TD align=center width="111" height="29"></TD><TD align=left width="111" height="29"></TD><TD align=left width="111" height="29"> 　 </TD> </tr> </table> </td> </table> <body bgcolor="#99CCFF" text="#0066FF"> <div class="mainbar" id="topbar_menu">{$menu}</div> 演示：<a href="http://www.gyl789.cn/bbs" target="_blank"></a><a href="http://www.gyl789.cn/bbs" target="_blank">http://www.gyl789.cn/bbs</a>

村长小麦 · 发表于 2007-5-13 13:43:03

<div class="t_msgfont" id="message11141">page_index template.html(0)1. 找到<xsl:template match="/">上面添加:<xsl:variable name="m_script"> <![CDATA[<script language="JavaScript" type="text/JavaScript"> function jumpmaster(targ,selObj,restore){ eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } </script> ]]> </xsl:variable>2.找到<xsl<img alt="" src="http://www.happybao.com/forums/images/smilies/shocked.gif" border="0" smilieid="6"/>therwise> <xsl:choose> <xsl:when test="/BoardList/boardmaster[@boardid=$boardid]/master">版主：<xsl:for-each select="/BoardList/boardmaster[@boardid=$boardid]/master"> <a href="dispuser.asp?name={.}" title="查看版主{.}的资料" target="_blank"><xsl:value-of select="."/></a> </xsl:for-each></xsl:when> <xsl<img alt="" src="http://www.happybao.com/forums/images/smilies/shocked.gif" border="0" smilieid="6"/>therwise> 此版暂无版主 </xsl<img alt="" src="http://www.happybao.com/forums/images/smilies/shocked.gif" border="0" smilieid="6"/>therwise> </xsl:choose> </xsl

therwise>改为:<xsl

therwise> <xsl:value-of select="$m_script" disable-output-escaping="yes"/> <div style="margin-top:8px;"> <select name="m" size="1" style="width:80px;" onChange="jumpmaster('self',this,1)"> <option>版主列表</option> <xsl:for-each select="/BoardList/boardmaster[@boardid=$boardid]/master"> <option value="Dispuser.asp?name={.}"> <xsl:value-of select="."/> </option> </xsl:for-each> </select> </div> </xsl

therwise></div>

村长小麦 · 发表于 2007-5-13 13:43:40

<div class="t_msgfont" id="message11328"> <a href="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/200511269183730616.gif" target="_blank"><img src="http://bbs.dvbbs.net/Dv_UPLOADFILE/2005-11/200511269183730616.gif" border="0" alt=""/></a>
这样的设置，最大的好处就是可以任意更换发贴心情图片了。因为动网默认的设置里，如果你替换了比较大的发贴心情图片，在快速回复框里显示的很别扭的....下面说说修改方法所有设置均在后台风格模板设置中的page_dispbbs_template.html(0)中进行。 以下修改是首先实现发帖表情框的高度，我的想法是先看得见再说 找到<div class="msgheader">QUOTE:</div><div class="msgborder">auto ;padding:4px 20px 4px 20px;height:30px;line-height:30px;text-align</div>把height:30px改为你想要的高度，一般对照你的心情图标高度调整就可以了。我设置的是70。以下修改是先把段落格式，字体，字号这部分移走并放在快速回复工具栏中找到这样一段，就是段落格式，字体，字号那段代码—— <div class="msgheader">QUOTE:</div><div class="msgborder"><div style="float:left;height:30px;line-height:30px;border:1px inset;background-color: #fff;padding:4px;"> <select id="Dvbbs_formatSelect" class="Dvbbs_TBGen" onchange="Dvbbs_doSelectClick('FormatBlock',this)"> <option>段落格式</option> <option value="&lt<img alt="" src="http://www.happybao.com/forums/images/smilies/titter.gif" border="0" smilieid="9"/>&gt;">普通格式</option> <option value="&lt;H1&gt;">标题 1</option> <option value="&lt;H2&gt;">标题 2</option> <option value="&lt;H3&gt;">标题 3</option> <option value="&lt;H4&gt;">标题 4</option> <option value="&lt;H5&gt;">标题 5</option> <option value="&lt;H6&gt;">标题 6</option> <option value="&lt;H7&gt;">标题 7</option> <option value="&lt<img alt="" src="http://www.happybao.com/forums/images/smilies/titter.gif" border="0" smilieid="9"/>RE&gt;">已编排格式</option> <option value="&lt;ADDRESS&gt;">地址</option> </select> <select class="Dvbbs_TBGen" id="FontName" onchange="FormatText ('fontname',this[this.selectedIndex].value);"> <option class="heading" selected="selected">字体</option> <option value="宋体">宋体</option> <option value="黑体">黑体</option> <option value="楷体_GB2312">楷体</option> <option value="仿宋_GB2312">仿宋</option> <option value="隶书">隶书</option> <option value="幼圆">幼圆</option> <option value="新宋体">新宋体</option> <option value="细明体">细明体</option> <option value="Arial">Arial</option> <option value="Arial Black">Arial Black</option> <option value="Courier">Courier</option> <option value="Verdana">Verdana</option> <option value="Wide Latin">Wide Latin</option> <option value="Wingdings">Wingdings</option> </select> <select class="Dvbbs_TBGen" id="FontSize" onchange="FormatText('fontsize',this[this.selectedIndex].value);"> <option class="heading" selected="selected">字号</option> <option value="1">1</option> <option value="2">2</option> <option value="3">3</option> <option value="4">4</option> <option value="5">5</option> <option value="6">6</option> <option value="7">7</option> </select> </div> </div>把这段剪切，然后粘贴到 <div class="msgheader">QUOTE:</div><div class="msgborder"><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';"/> </div> </div></div> 两个</div>中间，然后把粘贴的代码中的 <div class="msgheader">QUOTE:</div><div class="msgborder"><div style="float:left;height:30px;line-height:30px;border:1px inset;background-color: #fff;padding:4px;"></div> 改为<div>即可。当然以上两步你可以颠倒着做^_^！以下修改是调整发帖表情框的高度，当然不想调也可以，只要你觉得好看... 找到：<div class="msgheader">QUOTE:</div><div class="msgborder">发贴表情</div> <div style="height:160px;border:1px inset;background-color: #fff;padding:15px;text-indent:0px;overflow:auto;overflow-y:scroll;"></div> 把height:160px中的数值改为想要的即可。我设定的是280。 好了。到这里就全部OK了。 下面附送1点小技巧 去掉快速回复框中的交易<img src="http://bbs.dvbbs.net/images/post/icon_alipay.gif" border="0" alt=""/>图标 很简单，，把 <div class="msgheader">QUOTE:</div><div class="msgborder"><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';"/></div> 删掉即可。来源：<a href="http://bbs.dvbbs.net/dispbbs.asp?boardID=102&ID=1112601&page=1" target="_blank">http://bbs.dvbbs.net/dispbbs.asp?boardID=102&ID=1112601&page=1</a></div>

村长小麦 · 发表于 2007-5-13 13:44:39

<div class="t_msgfont" id="message11349">版主或管理员对帖子评价后在前台显示出来 （通过） 后台风格模板—page_dispbbs—template.html(0)找到<xsl:if test="@isbest='1'"> &lt;img src="<xsl:value-of select="<a>/post/setting/@picurl</a>" />jing.gif" border="0" title="本贴被加为精华" align="absmiddle"/&gt; </xsl:if> <xsl:if test="@isagree != ''and contains(@isagree,'|')"> <xsl:if test="substring-after(@isagree,'|') &gt; 0"> &lt;img src="<xsl:value-of select="<a>/post/setting/@picurl</a>" />agree.gif" border="0" alt="好评，获得<xsl:value-of select="substring-after(@isagree,'|')" />个金币奖励" / &gt; </xsl:if> <xsl:if test="substring-before(@isagree,'|') &gt; 0"> &lt;img src="<xsl:value-of select="<a>/post/setting/@picurl</a>" />DisAgree.gif" border="0" alt="差评，扣除<xsl:value-of select="substring-before(@isagree,'|')" />个金币"/&gt; </xsl:if> </xsl:if> <xsl:if test="@isupload='2' or @isupload='3'"> &lt;a href="wap.asp?Action=readme" target="_blank" &gt;&lt;img src="<xsl:value-of select="<a>/post/setting/@picurl</a>" />wap00.gif" border="0" alt="Wap-手机发帖"/&gt;&lt;/a&gt; </xsl:if>修改为<xsl:if test="@isbest='1'"> &lt;img src="<xsl:value-of select="<a>/post/setting/@picurl</a>" />jing.gif" border="0" title="好" align="absmiddle"/&gt;&lt;font color=red&gt;[好]&lt;/font&gt; </xsl:if> <xsl:if test="@isagree != ''and contains(@isagree,'|')"> <xsl:if test="substring-after(@isagree,'|') &gt; 0"> &lt;img src="<xsl:value-of select="<a>/post/setting/@picurl</a>" />agree.gif" border="0" alt="好评，获得<xsl:value-of select="substring-after(@isagree,'|')" />个金币奖励" / &gt;&lt;font color=blue&gt;[好评，获得<xsl:value-of select="substring-after(@isagree,'|')" />个金币奖励]&lt;/font&gt; </xsl:if> <xsl:if test="substring-before(@isagree,'|') &gt; 0"> &lt;img src="<xsl:value-of select="<a>/post/setting/@picurl</a>" />DisAgree.gif" border="0" alt="差评，扣除<xsl:value-of select="substring-before(@isagree,'|')" />个金币"/&gt; &lt;font color=green&gt;[差评，扣除<xsl:value-of select="substring-before(@isagree,'|')" />个金币]&lt;/font&gt; </xsl:if> </xsl:if> <xsl:if test="@isupload='2' or @isupload='3'"> &lt;a href="wap.asp?Action=readme" target="_blank" &gt;&lt;img src="<xsl:value-of select="<a>/post/setting/@picurl</a>" />wap00.gif" border="0" alt="Wap-手机发帖"/&gt;&lt;/a&gt; &lt;/a&gt;&lt;font color=#CC00FF&gt;[Wap-手机发帖]&lt;/font&gt; </xsl:if></div>

		自动登录	找回密码
密码			中文注册

DV7.1SP1版修改美化

61、阻止发广告的万能方法。

62、点击广告后显示帖子内容的制作方法

63、公告滚动显示修改以及公告前加图片修改方法

64、签名前加入广告显示的修改

65、取消超级版主的用户注册管理权限

66、最顶部新增导航条的修改方法

67、将顶部表格合并成自适应FLASH的修改方法

68、版主下拉For7.1SP1

69、快速回复栏修改方法

70、版主或管理员对帖子评价后在前台显示出来