论坛风格切换切换到宽版
  • 23405阅读
  • 20回复

[分享]动网论坛修改与插件备份 [复制链接]

上一主题 下一主题
离线qiaoer
 

只看楼主 倒序阅读 使用道具 楼主  发表于: 2005-12-14
DV7.1,贴子列表前要加日期的,进来~

后台风格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>

4、最好也改改:找到另一处的(不是上面添加这一处的):
<script type="text/javascript" language="javascript"><xsl:value-of select="$myscript" disable-output-escaping="yes" /></script>,删除掉!(不删除也行)


这样就可以了,试试吧,有什么问题再反馈。


指定版面也使用JS控制吧,第一段代码改成:


var rq_bid='1,2,3' //用,隔开要显示日期的版面ID
rq_bid=','+rq_bid+','
function AddPostDate(x,b)
{
if(rq_bid.indexOf(','+b+',')<0){return ''}
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+'日】')
}

第二段代码改成:


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

偶改这个的时候发现批量管理提交按钮有问题,点击“执行”按钮后,不管你按确定,还是按取消都一样执行下去,我将提交给动网高层人员:


也是这个风格:page_index,mainhtml(13)找到代码:


<input type="submit" name="Submit" value="执行" onclick="clicksubmit(this.form);"/>

改正为:


<input type="submit" name="Submit" value="执行" onclick="return clicksubmit(this.form);"/>

即可。

离线qiaoer

只看该作者 沙发  发表于: 2005-12-14
(11-14)附件上传显示详细信息插件 for sp1

现在说明11-14版的修改!

插件名称:上传附件显示详细信息
插件版本:1.11
插件作者:老庙黄金
发布时间:2005年3月18日
修改时间:2005年11月18日

修改方法:
主文件z_upload.asp已经修改,不必再修改!在附件内!

一. 修改inc/dv_ubbcode.asp:(修改后的文件在附件内!)

1、在首行添加:
<!--#include file="../z_Upload.asp"-->

2、找到
Public Re,reed,isgetreed,Board_Setting,WapPushUrl

增加一个新变量定义abgcolor,修改后

Public Re,reed,isgetreed,Board_Setting,abgcolor,WapPushUrl



3、然后找到代码

re.Pattern="\
离线qiaoer

只看该作者 板凳  发表于: 2005-12-14

(11-14)发贴必选专题弹窗提示的修改方法!

这次动网做了些些修改,就是多了个提示,但不够明显,如果不是动网论坛熟悉用户,会抱怨论坛发不了贴!我以前就遇到过,其实就是他没有注意到这个问题,还以为是论坛出错有问题!所以再做些些修改!


找到在images\post\DhtmlEdit1.js


用记事本打开


找到下面代码


//是否必选专题判断。2005-3-11 Dv.Yz
if (document.Dvform.topicmode){
if (document.Dvform.topicmode.value==0 && document.Dvform.selecttmode.value==2)
{
document.getElementById("titlestr").innerHTML=" <font color=\"#FF0000\">←您没有选择专题</font>"
document.Dvform.topic.focus();
ischeck=false
}
}


加一句代码,出个弹窗提示,免得发贴人又误会不能发贴!


alert("请选择所属专题!胡乱或错误的选择专题,一律删除!请您仔细归类!方便大家浏览!");


修改后如下:红色为添加部分!


//是否必选专题判断。2005-3-11 Dv.Yz
if (document.Dvform.topicmode){
if (document.Dvform.topicmode.value==0 && document.Dvform.selecttmode.value==2)
{
alert("请选择所属专题!胡乱或错误的选择专题,一律删除!请您仔细归类!方便大家浏览!");
document.getElementById("titlestr").innerHTML=" <font color=\"#FF0000\"><B>←您没有选择专题</B></font>"
document.Dvform.topic.focus();
ischeck=false
}
}

离线qiaoer

只看该作者 地板  发表于: 2005-12-14

(11-14)论坛网摘收录插件 for 7.1 sp1

插件提供:http://www.klooks.net
演示论坛:http://bbs.klooks.net


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


解压文件到论坛目录下!


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


template.html(0)


找到下面代码


<!--判断是否是IE,生成相应的style和class-->
<xsl:variable name="postclass">
<xsl:choose>
<xsl:when test="post/agent/@browser='Microsoft Internet Explorer'">postie</xsl:when>
<xsl:otherwise>post</xsl:otherwise>
</xsl:choose>
</xsl:variable>


添加下面代码
<script language="javascript" src="kl_wangzhai.js"></script>


修改后代码如下


<!--判断是否是IE,生成相应的style和class-->
<xsl:variable name="postclass">
<xsl:choose>
<xsl:when test="post/agent/@browser='Microsoft Internet Explorer'">postie</xsl:when>
<xsl:otherwise>post</xsl:otherwise>
</xsl:choose>
</xsl:variable>
<script language="javascript" src="kl_wangzhai.js"></script>


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

<xsl:choose>
<xsl:when test="post/postinfo/@postuserid =0">
<div id="repost" title="回复贴子" onclick="location.href='post.asp?action=re&amp;boardid={post/postinfo/@boardid}&amp;id={post/postinfo/@topicid}&amp;star={post/postinfo/@star}&amp;page={post/postinfo/@page}&amp;guest=true'"></div>
</xsl:when>
<xsl:otherwise>
<div id="repost" title="回复贴子" onclick="location.href='post.asp?action=re&amp;boardid={post/postinfo/@boardid}&amp;id={post/postinfo/@topicid}&amp;star={post/postinfo/@star}&amp;page={post/postinfo/@page}'"></div>
</xsl:otherwise>
</xsl:choose><div style="float:right;width:15%; height:28px" align="right">
<script language="javascript" src="kl_zhai.js"></script></div>

<div style="float:right;">您是本帖的第 <b><xsl:value-of select="post/postinfo/@hits"/></b> 个阅读者 </div>
</div>



[此贴子已经被作者于2005-12-14 20:40:42编辑过]
离线qiaoer

只看该作者 4楼 发表于: 2005-12-14

(11-14)如何去掉上部文字广告"国内使用量最大的动网论坛"的文字广告

这次补丁动网做了一些修改,用记事本打开


\inc\Dv_ClsMain.asp


找到



If act=1 Then loadSetup()
Dim xmlhttp
If IsSqlDataBase =0 Then
On Error Resume Next
Set xmlhttp = Server.CreateObject("msxml2.ServerXMLHTTP")
xmlhttp.setTimeouts 65000, 65000, 65000, 65000
xmlhttp.Open "POST",Get_ScriptNameUrl& "Loadservoces.asp",false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send()
Set xmlhttp = Nothing
End If


修改方法1: 直接将整段代码删除(测试可以)


修改方法2:If IsSqlDataBase =0 Then 修改为 If IsSqlDataBase =1 Then(测试可以)


修改方法3: xmlhttp.Open "POST",Get_ScriptNameUrl& "Loadservoces.asp",false


将其中Loadservoces.asp删除, (测试可以)


xmlhttp.Open "POST",Get_ScriptNameUrl& "",false


修改方法4: 直接将论坛目录下的Loadservoces.asp删除或更名!


修改后必须清空缓存!才能生效!

离线qiaoer

只看该作者 5楼 发表于: 2005-12-14

帖子中改变字体大小插件 v2.01 for Dv 7.1.0(sp1、10-27)


插件名称:帖子中改变字体大小
插件版本:2.01
插件作者:老庙黄金
修改者:读窗网络 http://www.duhome.cn/bbs
发布时间:2005年11月11日


本插件是基于水晶晶6.0时的《帖子中改变字体大小》插件相对于Dv7的升级版本,该版本完全改写了全部的代码,使用了全新的控制方式,使得界面更加协调和美观。


利用本插件,论坛的浏览者可以通过移动每个帖子顶部的滑块从而将帖子中的字体大小由6pt到72pt之间任意改变。


安装方法:


一、展开压缩包中的所有文件,连同目录z_Slider全部放在论坛的images目录下


二、修改后台模板,page_dispbbs中的template.html(0):


找到:
]]>
</xsl:variable>
<!--判断是否是IE,生成相应的style和class-->


在前面添加:
<script type="text/javascript" src="images/z_Slider/js/z_Range.js"></script>
<script type="text/javascript" src="images/z_Slider/js/z_Timer.js"></script>
<script type="text/javascript" src="images/z_Slider/js/z_Slider.js"></script>
<link type="text/css" rel="StyleSheet" href="images/z_Slider/css/z_Slider.css">
<SCRIPT FOR='window' EVENT='onresize' LANGUAGE='JavaScript'>
for(var i=0;i<s.length;i++) s.recalculate();
</script>
<SCRIPT LANGUAGE='JavaScript'>
var s=new Array();
function InitSlider(FontInputObj) {
var curSlider=new Slider(FontInputObj.parentElement,FontInputObj);
curSlider.setMinimum(6);
curSlider.setMaximum(72);
curSlider.setValue(9);
curSlider.onchange = function() {
var CurSize=this.getValue();
if(CurSize>=6&&CurSize<=72) {
var TopicObj=this.element.parentElement.children(4);
var TopicObj1=this.element.parentElement.children(3);
ResizeFont(TopicObj,CurSize);
ResizeFont(TopicObj1,CurSize);
}};
return curSlider;
}
function ResizeFont(TopicObj,CurSize) {
if(TopicObj&&TopicObj.style) {
if(TopicObj.style.fontSize!=null) TopicObj.style.fontSize=CurSize+"pt";
if(TopicObj.style.lineHeight!=null) TopicObj.style.lineHeight=(CurSize*12/9)+"pt";
}
if(TopicObj.children.length>0) for(var i=0;i<TopicObj.children.length;i++) if(TopicObj.children(i).currentStyle.fontSize!="") {ResizeFont(TopicObj.children(i),CurSize);}
}
</script>
<SCRIPT FOR='window' EVENT='onload' LANGUAGE='JavaScript'>
var appFlag=true;
if(navigator.appName != "Microsoft Internet Explorer") appFlag=false;
else {
var pos1=navigator.appVersion.indexOf("MSIE");
if(pos1<0) appFlag=false;
else {
var pos2=navigator.appVersion.substring(pos1,navigator.appVersion.length-1).indexOf(";");
if(pos2<0)
appFlag=false;
else {
var appVer=navigator.appVersion.substring(pos1+4,pos1+pos2);
if(appVer<5.5) appFlag=false;
}}}
if(appFlag) {
var curSlider;
if(!document.all.item("FontSliderInput").length) {
curSlider=InitSlider(document.all.FontSliderInput);
s[0]=curSlider;
} else
for(var i=0;i<document.all.item("FontSliderInput").length;i++) {
curSlider=InitSlider(document.all.item("FontSliderInput")(i));
s=curSlider;
}
}
</script>




找到:
<hr />
改为:
<div><input id="FontSliderInput" class="slider-input" style="display:none"/></div>
<hr />


离线qiaoer

只看该作者 6楼 发表于: 2005-12-14

(11-14)完美解决DV编辑器回车换双行

动网在编辑是如果采用回车换行,其代码显示的是<p>&nbsp;</p>,这样显示的是双行换行,行与行之间拉得开开的!

让直接敲回车也变成<BR>,以直接产生单个换行,下面就说说修改方法吧。



我们打开images/post/DHTMLEDIT.JS,

找到:

IframeID.document.charset=Dvbbs_charset;

下面添加一行事件代码:

IframeID.document.onkeypress=DelEnter

然后再在代码:

Dvbbs_setMode(1,1);
IframeID.focus();
}

后面加入DelEnter这个函数代码,就可以完全解决了全屏发贴那个编辑器的问题了。

//解决编辑器回车换双行开始
function DelEnter()
{
if(IframeID.event.keyCode==13)
{
  var txtobj=IframeID.document.selection.createRange()  //1
  txtobj.text==""?txtobj.text="\n":(IframeID.document.selection.clear())&(txtobj.text="\n") //2
  IframeID.document.selection.createRange().select() //3
  return false //4
}
}
//解决编辑器回车换双行结束
接下来,修改一下快速回复的编辑器,要修改的文件名是images/post/reply.js

找到代码

editor.document.charset=Dvbbs_charset;

在其后加入

editor.document.onkeypress=DelEnter

然后在下面大概三行后
Dvbbs_bLoad=true;
Dvbbs_setStyle();
}

插入下面代码

//解决编辑器回车换双行开始
function DelEnter()
{
if(IframeID.event.keyCode==13)
{
  var txtobj=IframeID.document.selection.createRange()  //1
  txtobj.text==""?txtobj.text="\n":(IframeID.document.selection.clear())&(txtobj.text="\n") //2
  IframeID.document.selection.createRange().select() //3
  return false //4
}
}
//解决编辑器回车换双行结束

如果你想省事,就直接使用我修改好的文件,覆盖吧!



[此贴子已经被作者于2006-7-23 3:59:35编辑过]
离线qiaoer

只看该作者 7楼 发表于: 2006-01-18

帖子列表前增加广告

1:管理目录下ForumAds.asp

<textarea name="Forum_ads(16)"  style="overflow-y:visible;width:100%;" rows="10"><%=Ads_16%></textarea>
</td>
</tr>

下面加入:

<%
dim Ads_33,Ads_34,Ads_35
If UBound(Dvbbs.Forum_ads)>36 Then
Ads_33=Dvbbs.Forum_ads(33)
Ads_34=Dvbbs.Forum_ads(34)
Ads_35=Dvbbs.Forum_ads(35)
End If
%>
<tr>
<td width="*" class="forumrow" colspan=2> <b>分版列表和帖子列表上面加入广告</b><br>支持HTML,不会写代码的请直接填写图片或flash的地址,并且填写宽和高。<br>
     <textarea  type="text" style="overflow-y:visible;width:100%;" Name=Forum_ads(33)><%=Ads_33%></textarea> <br>
      宽度:<input type="text" Name=Forum_ads(34) Value="<%=Ads_34%>" Size=10 style="ime-mode:disabled">
      高度:<input type="text" Name=Forum_ads(35) Value="<%=Ads_35%>" Size=10 style="ime-mode:disabled">  不清楚时填写0
      </td>
</td>
</tr>

然后找到:


Sub SaveConst()
Dim iSetting

将下面的 For i = 0 To 30  改为

  For i = 0 To 40

2:BBS根目录中index.asp

在最下面

%>上面加入

Function ej88()
if UBound(Dvbbs.Forum_ads)>36 then
dim guanggao,kuan,gao
kuan=""
gao=""
if Trim(Dvbbs.Forum_ads(34))<>"0" then kuan="width="&Trim(Dvbbs.Forum_ads(34))
if Trim(Dvbbs.Forum_ads(35))<>"0" then gao="height="&Trim(Dvbbs.Forum_ads(35))
if left(Trim(Dvbbs.Forum_ads(33)),1)="<" then
guanggao="<table cellspacing=1 cellpadding=3 align=center border=0><tr><td colspan=2 bgcolor=#FFFFFF height=0 ><div align=center>"&Trim(Dvbbs.Forum_ads(33))&"</div></td></tr></table>"
elseif LCase(right(Trim(Dvbbs.Forum_ads(33)),3))="swf" then
guanggao="<table cellspacing=1 cellpadding=3 align=center border=0 width=770><tr><td colspan=2 bgcolor=#FFFFFF height=0 ><div align=center><object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" "&kuan&" "&gao&"><param name=""movie"" value="""&Trim(Dvbbs.Forum_ads(33))&"""><param name=""quality"" value=""high""><param name=""wmode"" value=""transparent""><embed src="""&Trim(Dvbbs.Forum_ads(33))&"""  "&kuan&" "&gao&" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" wmode=""transparent""></embed></object></div></td></tr></table>"
elseif Trim(Dvbbs.Forum_ads(33))="0" then
guanggao=""
else
guanggao="<table cellspacing=1 cellpadding=3 align=center border=0 width=770><tr><td colspan=2 bgcolor=#FFFFFF height=0 ><div align=center><img border=""0"" src="""&Trim(Dvbbs.Forum_ads(33))&"""  "&kuan&" "&gao&"></div></td></tr></table>"
end if
Response.Write guanggao
end if
End Function

找到

     Response.Write  proc.output
Set XmlDom=Nothing
Set XMLStyle=Nothing
Set XSLT=Nothing

在上一行加入:ej88()

再找到

If Dvbbs.forum_setting(14)="1" Or Dvbbs.forum_setting(15)="1" Then
  Response.Write vbNewLine & "<iframe width=""0"" height=""0"" src=""Online.asp?action=1&Boardid="&Dvbbs.Boardid&""" name=""hiddenframe""></iframe>"
Else
  Response.Write vbNewLine & "<iframe width=""0"" height=""0"" src="""" name=""hiddenframe""></iframe>"
End If
Response.Write vbNewLine & "<Script Language=""JavaScript"">" & vbNewLine
Response.Write LoadToolsInfo & vbNewLine
Response.Write "</Script>" & vbNewLine

在下面加入:ej88()

3:BBS根目录中dispbbs.asp

Dvbbs.Showerr()
Dvbbs.Head_var 1,"","",""

下面加入  ej88()

然后在最下面%>前加入

Function ej88()
if UBound(Dvbbs.Forum_ads)>36 then
dim guanggao,kuan,gao
kuan=""
gao=""
if Trim(Dvbbs.Forum_ads(34))<>"0" then kuan="width="&Trim(Dvbbs.Forum_ads(34))
if Trim(Dvbbs.Forum_ads(35))<>"0" then gao="height="&Trim(Dvbbs.Forum_ads(35))
if left(Trim(Dvbbs.Forum_ads(33)),1)="<" then
guanggao="<table cellspacing=1 cellpadding=3 align=center border=0><tr><td colspan=2 bgcolor=#FFFFFF height=0 ><div align=center>"&Trim(Dvbbs.Forum_ads(33))&"</div></td></tr></table>"
elseif LCase(right(Trim(Dvbbs.Forum_ads(33)),3))="swf" then
guanggao="<table cellspacing=1 cellpadding=3 align=center border=0 width=770><tr><td colspan=2 bgcolor=#FFFFFF height=0 ><div align=center><object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" "&kuan&" "&gao&"><param name=""movie"" value="""&Trim(Dvbbs.Forum_ads(33))&"""><param name=""quality"" value=""high""><param name=""wmode"" value=""transparent""><embed src="""&Trim(Dvbbs.Forum_ads(33))&"""  "&kuan&" "&gao&" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" wmode=""transparent""></embed></object></div></td></tr></table>"
elseif Trim(Dvbbs.Forum_ads(33))="0" then
guanggao=""
else
guanggao="<table cellspacing=1 cellpadding=3 align=center border=0 width=770><tr><td colspan=2 bgcolor=#FFFFFF height=0 ><div align=center><img border=""0"" src="""&Trim(Dvbbs.Forum_ads(33))&"""  "&kuan&" "&gao&"></div></td></tr></table>"
end if
Response.Write guanggao
end if
End Function

好了,现在就可以去后台的广告管理中添加了。


[此贴子已经被作者于2006-7-23 5:21:36编辑过]
离线qiaoer

只看该作者 8楼 发表于: 2006-01-29
9.广告以页面方式加载在首帖和复帖上!

说明:根据以前广告帖改动代码 优化组合 转载请著名出处 谢谢合作

广电论坛ccttvv008改动 http://bbs.cfctv.com

广告以页面方式加载在首帖和复帖上  页面方式就是掉用其他页面内容,这样一来的话 方便改动广告 只要改页面 广告就改动了 省事 简单!

没有加版权的修改方法1:后台-页面风格-page_dispbbs-template.html 找到

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

原始的代码里就一处 请仔细查看 -  在上边的代码下边加

<xsl:if test="/post/postinfo/@star =1 and position()=1">
<iframe id="baidu_ad" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" src="n1.html" width="100%" height="100"></iframe>
<br />
</xsl:if>
<xsl:if test="@parentid > 0">
<div>
<iframe id="baidu_ad" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" src="n2.html" width="100%" height="100"></iframe><hr size="1"/>
</div></xsl:if>

说明: n1.html = (首帖广告页) 和 n2.html = (回复帖广告页) 是页面 把广告加在页面里上传到论坛根目录里就OK了 这要看你自己的改动了 红色标记是宽和高 请自己按你的要求修改

如果用本站的声名加日期是美化找到代码:

<xsl:if test="@parentid = 0">
<div>
<hr size="1"/>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="80%" height="20"><div align="center" height="19">本文由 [<xsl:value-of select="@username"/>] 发表,[<xsl:value-of select="@username"/>] 与〖广电论坛〗依据《论坛守则》享有相关权利!</div></td>
<td width="23%"><div align="right" height="19"><div align="center" style="border:dotted 1px;padding:2px;width:160px;font-size: 8pt">
<xsl:choose><xsl:when test="/post/userinfo/@canlookip = 1"><a href="TopicOther.asp?t=1&amp;boardid={@BoardID}&amp;userid={@PostUserid}&amp;ip={@ip}&amp;action=lookip" target="_blank"> <img width="10" border="0" src="skins/default/time.gif" alt="点击查看用户来源及管理,发贴IP:{@ip}"/></a> </xsl:when><xsl:otherwise> <img width="10" border="0" src="skins/default/time.gif" /> </xsl:otherwise></xsl:choose><xsl:text> </xsl:text>发表于<xsl:value-of select="@dateandtime" />
</div></div>
</td>
</tr>
</table><hr size="1"/>
</div></xsl:if>

在下边加

<xsl:if test="/post/postinfo/@star =1 and position()=1">
<iframe id="baidu_ad" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" src="n1.html" width="100%" height="100"></iframe>
<br />
</xsl:if>
<xsl:if test="@parentid > 0">
<div>
<iframe id="baidu_ad" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" src="n2.html" width="100%" height="100"></iframe><hr size="1"/>
</div></xsl:if>

说明: n1.html = (首帖广告页) 和 n2.html = (回复帖广告页) 是页面 把广告加在页面里上传到论坛根目录里就OK了 这要看你自己的改动了 红色标记是宽和高 请自己按你的要求修改

作个签名美化的找代码

<xsl:choose>
               <xsl:when test="/post/userlist/user[@userid=$userid]/@usersign !='' and @signflag =1">
<div style="width:100%;overflow-x: hidden;">
<fieldset style="padding: 10px;"><legend>这是<font color="#ff6600"><xsl:value-of select="@username"/></font>的签名,帅吧!</legend>
<xsl:value-of select="/post/userlist/user[@userid=$userid]/@usersign" disable-output-escaping="yes"/></fieldset>
</div>

在上边加广告代码

<xsl:if test="/post/postinfo/@star =1 and position()=1">
<iframe id="baidu_ad" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" src="n1.html" width="100%" height="100"></iframe>
<br />
</xsl:if>
<xsl:if test="@parentid > 0">
<div>
<iframe id="baidu_ad" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" src="n2.html" width="100%" height="100"></iframe><hr size="1"/>
</div></xsl:if>

说明图片1:楼主发帖下边广告图



说明图片2:回复帖子下边加广告图



声明:转载请著名出处  广电论坛 http://bbs.cfcatv.com


[此贴子已经被作者于2006-5-10 2:24:31编辑过]
离线qiaoer

只看该作者 9楼 发表于: 2006-05-05

1.去除页面文字广告里的默认广告

第一步:  注释掉(或者删掉)Dv_ClsOther.asp中的

If IsSqlDataBase = 0 Then
   IsDvAd = 1
   ii = 2
   TempStr = TempStr & "  <tr align=center>"&vbNewLine&"    <td width="""&ColWidth&"%"" class=tablebody1><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></td>"
  End If

这样除首页外的都解决了!

第二步:把Dv_ClsMain.asp中

Const IsBuss=1    改为 Const IsBuss=0

改完最好更新一下缓存

第二,就是文字广告

首先到论坛跟目录下找到Loadservoces
查找 xmlserverurl="http://server.dvbbs.net/dvbbs/Dv_xmlservices.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>"
也是把这句话注释掉,不用删除的
然后更新一下缓存,OK


[此贴子已经被作者于2006-5-5 23:08:14编辑过]
快速回复
限100 字节
批量上传需要先选择文件,再选择上传
 
上一个 下一个