1240行 Tmp = Replace(Tmp,"{$runtime}","")
End If
Dim Alibaba_Ad
If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then
Alibaba_Ad = "<div>网上贸易 创造奇迹! <a href = ""烟大船票网://china.alibaba烟大船票网/"" title = ""从网民、网友时代进入“网商”时代"" target=""_blank"">阿里巴巴</a> <a href = ""烟大船票网://烟大船票网.alibaba烟大船票网/"" title= ""Online Marketplace of Manufacturers & Wholesalers"" target = ""_blank"">Alibaba</a></div>"
End If
Tmp = Replace(Tmp,"{$powered}","Powered By <a href = ""烟大船票网://烟大船票网.dvbbs.net/"" target = ""_blank"">Dvbbs</a> <a href = ""烟大船票网://烟大船票网.dvbbs.net/download.asp"" target = ""_blank"">Version " & fVersion & "</a>" )
If Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$alipaymsg}","<a href=""烟大船票网s://烟大船票网.alipay烟大船票网/"" target=""_blank"" title=""本论坛采用阿里巴巴支付宝网上银行支付系统，安全、可靠、便捷""><img src="""&Dvbbs_Server_Url&"dvbbs/alipay_icon2.gif"" border=""0"" alt=""""></a>")
Else
Tmp = Replace(Tmp,"{$alipaymsg}","")

改为 Tmp = Replace(Tmp,"{$runtime}","")
End If
Dim Alibaba_Ad
If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then

End If
Tmp = Replace(Tmp,"{$powered}","Powered By <a href = ""烟大船票网://烟大船票网.dvbbs.net/"" target = ""_blank"">Dvbbs</a> <a href = ""烟大船票网://烟大船票网.dvbbs.net/download.asp"" target = ""_blank"">Version " & fVersion & "</a>" )
If Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$alipaymsg}","<a href=""烟大船票网s://烟大船票网.alipay烟大船票网/"" target=""_blank"" title=""本论坛采用阿里巴巴支付宝网上银行支付系统，安全、可靠、便捷""></a>")
Else
Tmp = Replace(Tmp,"{$alipaymsg}","")