动网论坛修改大全

<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 class="mainbar" id="topbar_top">dvbbs</div>
<div class="mainbar" id="topbar_mid">
<div id="topbar_mid_r">
<div style="cursor:hand" onclick="window.external.AddFavorite(document.location.href,'{$title}')" onmousemove="status='收藏本页';" onmouseout="status='';">收藏本页</div>
<div><a href="{$mailto}" target="_blank">联系我们</a></div>
<div><a href="boardhelp.asp?boardID=18">论坛帮助</a></div>
</div>
<div id="topbar_mid_l">
<a href="{$link}"><img border="0" src="{$logo}" alt="" /></a>
</div>
<div id="topbar_mid_m">{$top_ads}</div>
</div>
<div class="mainbar" id="topbar_bottom">dvbbs</div>
<div class="mainbar" id="topbar_menu">{$menu}</div>
<br />

<div class="mainbar" id="topbar_top">dvbbs</div>
<div class="mainbar" id="topbar_mid">
        <table width="780" height="242" border="0" align="center">
        <tr>
        <td align=left background="你的图片地址">
          <div align="right">
            <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="770" height="240">
                <param name="movie" value="你的FLASH动画地址">
                <param name="quality" value="high">
  <param name="wmode" value="transparent">
                <embed src="你的FLASH动画地址" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="770" height="240"></embed>
            </object>
          </div></td>
        </tr>
    </table>
</div>
<div class="mainbar" id="topbar_bottom">dvbbs</div>
<div class="mainbar" id="topbar_menu">{$menu}</div>
<br />

六：文字广告去掉动网论坛默认广告

1、用记事本打开根目录下文件：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>"

直接删除这行代码

2、接着查找：

xmlserverurl="http://server.dvbbs.net/dvbbs/Dv_xmlservices.asp"

 

直接删除这行代码

3、保存上传

4、进入后台，更新服务器缓存！

5、完成

七：怎样设置广告在打开网站页面后自动打开数秒后自动消失？

1． 首先要把你所做的广告放到一个单独的静态页面中，不需要设置这个也面中广告所在的位置，如居中、居左等。
2． 静态页面的内容包括图片、flash、网页等。最好是flash，因为可以通过根据所在页面的时间长度设置flash的渐变效果，这样目的是让广告的出现与消失不会过于突然。
3． 广告的JS代码如下：
 
<script language="javascript">

var ads_agt=navigator.userAgent.toLowerCase();
var ads_is_major = parseInt(navigator.appVersion);

var ads_is_ie = ((ads_agt.indexOf("msie") != -1) && (ads_agt.indexOf("opera") == -1) && (ads_agt.indexOf("omniweb") == -1));
var ads_is_ie3 = (ads_is_ie && (ads_is_major < 4));
var ads_is_ie4 = (ads_is_ie && (ads_is_major == 4) && (ads_agt.indexOf("msie 5")==-1) && (ads_agt.indexOf("msie 6")==-1));
var ads_is_ie4up = (ads_is_ie && (ads_is_major >= 4));
var ads_is_ie5 = (ads_is_ie && (ads_is_major == 4) && (ads_agt.indexOf("msie 5.0")!=-1) );
var ads_is_ie5up = (ads_is_ie && !ads_is_ie3 && !ads_is_ie4);
var ads_is_ie5_1_macbeta = (ads_is_ie && (ads_agt.indexOf("mac")!=-1) && (ads_agt.indexOf("5.1b")!=-1));

var ads_is_nav = ((ads_agt.indexOf('mozilla')!=-1) && (ads_agt.indexOf('spoofer')==-1)
            && (ads_agt.indexOf('compatible') == -1) && (ads_agt.indexOf('opera')==-1)
            && (ads_agt.indexOf('webtv')==-1));
var ads_is_nav6 = (ads_is_nav && (ads_agt.indexOf("netscape6")!=-1) && (ads_agt.indexOf("6.1")==-1));
var ads_is_nav6up = (ads_is_nav && !ads_is_nav4 && !ads_is_nav3 && !ads_is_nav2);
var ads_is_nav6_1 = (ads_is_nav && (ads_agt.indexOf("netscape6")!=-1) && (ads_agt.indexOf("6.1")!=-1));
var ads_is_nav6_1up = (ads_is_nav && !ads_is_nav6 && !ads_is_nav4 && !ads_is_nav3 && !ads_is_nav2);

getsGlu = ((ads_is_ie5up && !ads_is_ie5_1_macbeta) || ads_is_nav6_1up);

//function changediv(depth)
//{
//    divAll.style.zIndex=depth
//    }
function changediv()
{
    document.getElementById('hiddenLayer').style.display = "block";
    document.getElementById('interstitialFrame').src = adInterPath;
    setTimeout("hidediv()",20000)   //广告持续时间//
}
function hidediv()
{
    document.getElementById('hiddenLayer').style.display="none";
    SYtag=2;
}
function showfull()
{
setTimeout("changediv()",10000);  //广告出现时间//
}
showfull()

<!--
//时间计算
SYfullscreen=false;
today=new Date();
function testdate()
{
    adInterPath='JS/Ad-top.html';  //广告所在的位置//
 SYfullscreen=true                             
}
testdate();

if(SYfullscreen==true)
{
    if (document.all) {
    // this is a 4.x browser, no?
    }
}
// -->
       </script>
       <script language="javascript">
<!--
if(SYfullscreen==true)
{
    if (document.all) {
    // this is a 4.x browser, no?
        document.write('<DIV ID="hiddenLayer" style="display: none; height: 160px;">');
        if (getsGlu) {
        expandableIframe = '<IFRAME id="interstitialframe" width=765 HEIGHT=300 align=center NORESIZE SCROLLING=No FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0></IFRAME>';  //广告位置的具体属性//
        document.write(expandableIframe);
    }
}
document.write('</div>');
}
// -->

</script>

其中：
●document.getElementById('hiddenLayer').style.display = "block";
  document.getElementById('interstitialFrame').src = adInterPath;
  setTimeout("hidediv()",20000)   //广告持续时间//
这个20000是调整广告打开后的持续时间；

●setTimeout("changediv()",10000);  //广告出现时间//
这个10000是打开页面后广告出现的时间，设置的数值越少，就早打开，如果是0则跟打开该网页同步。

●adInterPath='JS/Ad-top.html';  //广告所在的位置//
                           
adInterPath='JS/Ad-top.html'; 是连接你之前所做好的广告所在的位置，可以是某个网站的网址或相对路径。
如：adInterPath=' http://www.powereasy.net';

● expandableIframe = '<IFRAME id="interstitialframe" width=765 HEIGHT=300 align=center NORESIZE SCROLLING=No FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0></IFRAME>';中间红色的是可以修改打开广告的大小、位置和其他的属性。

4． 把以上的代码拷贝放到网页中所需要的位置，通过通过浏览网页的效果效果所需要的时间等。

八：想把首面各版面最后回复的主题改为贴子主题而不是贴子内容的

savepost.asp中，如下的

  If Action = 6 Then
   topic=Replace(Replace(cutStr(toptopic,14),chr(10),""),"'","")
   If topic="" Then
    topic=Replace(cutStr(Content,14),chr(10),"")
   Else
    topic=Replace(cutStr(topic,14),chr(10),"")
   End If
   If ihaveupfile=1 Then Dvbbs.Execute("update dv_upfile set F_AnnounceID='"&RootID&"|"&AnnounceID&"',F_Readme='"&Replace(toptopic,"'","")&"',F_flag=0 where F_ID in ("&upfileinfo&")")
  Else
   If ihaveupfile=1 Then Dvbbs.Execute("update dv_upfile set F_AnnounceID='"&RootID&"|"&AnnounceID&"',F_Readme='"&Topic&"',F_flag=0  where F_ID in ("&upfileinfo&")")
  End If
  LastPost=Replace(username,"$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & Replace(cutStr(Content,20),"$","") & "$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID
  LastPost=reubbcode(Replace(LastPost,"'",""))

改成：

  If Action = 6 Then
   topic=Replace(Replace(cutStr(toptopic,14),chr(10),""),"'","")
   If topic="" Then
    topic=Replace(cutStr(Content,14),chr(10),"")
   Else
    topic=Replace(cutStr(topic,14),chr(10),"")
   End If
   If ihaveupfile=1 Then Dvbbs.Execute("update dv_upfile set F_AnnounceID='"&RootID&"|"&AnnounceID&"',F_Readme='"&Replace(toptopic,"'","")&"',F_flag=0 where F_ID in ("&upfileinfo&")")
   LastPost=Replace(username,"$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & Replace(cutStr(toptopic,20),"$","") & "$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID
   LastPost=reubbcode(Replace(LastPost,"'",""))
  Else
   If ihaveupfile=1 Then Dvbbs.Execute("update dv_upfile set F_AnnounceID='"&RootID&"|"&AnnounceID&"',F_Readme='"&Topic&"',F_flag=0  where F_ID in ("&upfileinfo&")")
   LastPost=Replace(username,"$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & Replace(cutStr(topic,20),"$","") & "$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID
   LastPost=reubbcode(Replace(LastPost,"'",""))
  End If

就可以了。