【动网论坛7.1 sp1 修改】－如何去掉主页底部阿里巴巴支付宝

如何去掉主页底部阿里巴巴支付宝?

 

 

方法1：

 

inc/Dv_ClsMain.asp

 

找到

 

Dim Alibaba_Ad
If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then
Alibaba_Ad = "<div>网上贸易 创造奇迹! <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></div>"
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 " & fVersion & "</a>" )
If Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$alipaymsg}","<a href=""https://www.alipay.com"" target=""_blank"" title=""本论坛采用阿里巴巴支付宝网上银行支付系统，安全、可*、便捷""><img src="""&Dvbbs_Server_Url&"dvbbs/alipay_icon2.gif"" border=""0"" alt=""""></a>")
Else
Tmp = Replace(Tmp,"{$alipaymsg}","")
End If

 

中的If IsSqlDataBase = 0改成If IsSqlDataBase = 1
If Dvbbs.Forum_ChanSetting(3)="0" Then改成If Dvbbs.Forum_ChanSetting(3)="1" Then

 

方法2：

 

在inc/Dv_ClsMain.asp源代码中找到：

 

If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then
Alibaba_Ad = "<div>网上贸易 创造奇迹! <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></div>"
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 " & fVersion & "</a>" )
If Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$alipaymsg}","<a href=""https://www.alipay.com"" target=""_blank"" title=""本论坛采用阿里巴巴支付宝网上银行支付系统，安全、可*、便捷""><img src="""&Dvbbs_Server_Url&"dvbbs/alipay_icon2.gif"" border=""0"" alt=""""></a>")
Else
Tmp = Replace(Tmp,"{$alipaymsg}","")
End If

 

将其改为：

 

 

If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then
Alibaba_Ad = ""
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 " & fVersion & "</a>" )
If Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$alipaymsg}","")
Else
Tmp = Replace(Tmp,"{$alipaymsg}","")
End If