发贴心情

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

方法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

方法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


评论

该日志第一篇评论

发表评论

评论也有版权!