作者：silence 2005/5/24 11:15:57
动网论坛7.1下面的阿里巴巴广告怎么除啊,?
动网论坛7.1下面的阿里巴巴广告怎么除啊,?帮忙
查看此帖的完整版本：动网论坛7.1下面的阿里巴巴广告怎么除啊,?阅读 2593 次
动网论坛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