动网论坛7.1下面的阿里巴巴广告怎么除啊,?帮忙

删除论坛底部广告方法：

1，首先找到inc/DV_clsmain.asp,  

再找到以If Forum_Setting(30) = "1" Then 开始,并且以End Sub结束的这段代码  

使用下面的代码替换掉原来的代码！

If Forum_Setting(30) = "1" Then

   Dim Endtime

   Endtime = Timer()

   Tmp = Replace(Tmp,"{$runtime}","<br />页面执行时间 0"&FormatNumber((Endtime-Startime),5)&" 秒, "&SqlQueryNum&" 次数据查询<br />"& CaCheInfo)

  End If

  Tmp = Replace(Tmp,"{$powered}", "Powered By <a href = ""http://www.dvbbs.net/"" target = ""_blank"">Dvbbs</a>  <a href = ""http://www.dvbbs.net/download.asp"" target = ""_blank"">Version " & Forum_Version & "</a>")

  Tmp = Replace(Tmp,"{$Footer_ads}",Forum_ads(1))

  Tmp = Replace(Tmp,"{$copyright}",Forum_Copyright)

  Response.Write Tmp

End Sub

2、在后台模板里main_style的Dvbbs.mainhtml(8)找到{$alipaymsg}，并删除

论坛底部的阿里巴巴广告就没了，呵呵挺简单的。

说详细点,就是:

找到inc/DV_clsmain.asp，将：

If Forum_Setting(30) = "1" Then

   Dim Endtime

   Endtime = Timer()

   Tmp = Replace(Tmp,"{$runtime}","<br />页面执行时间 0"&FormatNumber((Endtime-Startime),5)&" 秒, "&SqlQueryNum&" 次数据查询<br />"& CaCheInfo)

  End If

  Tmp = Replace(Tmp,"{$runtime}","")

  Dim Alibaba_Ad

  If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then

   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>"

  End If

  Tmp = Replace(Tmp,"{$powered}",Alibaba_Ad & "Powered By <a href = ""http://www.dvbbs.net/"" target = ""_blank"">Dvbbs</a>  <a href = ""http://www.dvbbs.net/download.asp"" target = ""_blank"">Version " & Forum_Version & "</a>")

  If Dvbbs.Forum_ChanSetting(3)="0" Then

   Tmp = Replace(Tmp,"{$alipaymsg}","<td width=""2%""></td><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>")

  Else

   Tmp = Replace(Tmp,"{$alipaymsg}","")

  End If

  Tmp = Replace(Tmp,"{$Footer_ads}",Forum_ads(1))

  Tmp = Replace(Tmp,"{$copyright}",Forum_Copyright)

  Response.Write Tmp

End Sub

替换为：

If Forum_Setting(30) = "1" Then

   Dim Endtime

   Endtime = Timer()

   Tmp = Replace(Tmp,"{$runtime}","<br />页面执行时间 0"&FormatNumber((Endtime-Startime),5)&" 秒, "&SqlQueryNum&" 次数据查询<br />"& CaCheInfo)

  End If

  Tmp = Replace(Tmp,"{$powered}", "Powered By <a href = ""http://www.dvbbs.net/"" target = ""_blank"">Dvbbs</a>  <a href = ""http://www.dvbbs.net/download.asp"" target = ""_blank"">Version " & Forum_Version & "</a>")

  Tmp = Replace(Tmp,"{$Footer_ads}",Forum_ads(1))

  Tmp = Replace(Tmp,"{$copyright}",Forum_Copyright)

  Response.Write Tmp

End Sub