<% Call Head() Dim admin_flag admin_flag=",2," If Not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 then Errmsg=ErrMsg + "
  • 本页面为管理员专用，请登录后进入。
  • 您没有管理本页面的权限。" dvbbs_error() Else If request("action")="save" Then Call saveconst() Else Call consted() End If If founderr then call dvbbs_error() footer() End If Sub consted() dim sel %>
    论坛广告设置（如为设置分论坛，就是分论坛首页广告，下属页面为帖子显示页面）
    说明：
    1、复选框中选择的为当前的使用设置模板，点击可查看该模板设置，点击别的模板直接查看该模板并修改设置。您可以将您下面的设置保存在多个论坛版面中
    2、您也可以将下面设定的信息保存并应用到具体的分论坛版面设置中，可多选
    3、如果您想在一个版面引用别的版面的配置，只要点击该版面名称，保存的时候选择要保存到的版面名称名称即可。
    查看分版面广告设置，请选择左边下拉框相应版面  

    >论坛默认广告
    点击此处返回论坛默认广告设置，默认广告设置包含所有除包含具体版面内容（如帖子列表、帖子显示、版面精华、版面发贴等）以外的页面。
    版面广告保存选项
    请按 CTRL 键多选
    		 <% Dim Ads_14 If UBound(Dvbbs.Forum_ads)>13 Then Ads_14=Dvbbs.Forum_ads(14) End If %> <% Dim Ads_15 If UBound(Dvbbs.Forum_ads)>14 Then Ads_15=Dvbbs.Forum_ads(15) End If %> <% Dim Ads_17 If UBound(Dvbbs.Forum_ads)>16 Then Ads_17=Dvbbs.Forum_ads(17) End If %>
    首页顶部广告代码
    如果开启了互动广告功能中的顶部广告，此处设置为无效
    首页尾部广告代码
    开启首页浮动广告 checked<%end if%>>关闭  checked<%end if%>>打开 
    论坛首页浮动广告图片地址
    论坛首页浮动广告连接地址
    论坛首页浮动广告图片宽度  象素
    论坛首页浮动广告图片高度  象素
    开启首页右下固定广告 checked<%end if%>>关闭  checked<%end if%>>打开 
    论坛首页右下固定广告图片地址
    论坛首页右下固定广告连接地址
    论坛首页右下固定广告图片宽度  象素
    论坛首页右下固定广告图片高度  象素
    是否开启帖间随机广告 checked<%end if%>>关闭  checked<%end if%>>打开 
    论坛帖间随机广告代码
    支持HTML语法，每条随机广告一行，用回车分开。
    是否开启页面文字广告位 checked<%end if%>>关闭  checked<%end if%>>打开 
    页面文字广告位设置(版面)
    请确认已打开了页面文字广告位功能
    		 checked<%end if%>>帖子列表  checked<%end if%>>帖子内容  checked<%end if%>>两者都显示  checked<%end if%>>两者都不显示 
    文字广告每行广告个数  个
    页面文字广告位内容
    支持HTML语法，每条广告一行，用回车分开。
    <% Dim Ads_16 If UBound(Dvbbs.Forum_ads)>15 Then Ads_16=Dvbbs.Forum_ads(16) End If %>
     
    <% end sub Sub SaveConst() Dim iSetting For i = 0 To 30 If Trim(Request.Form("Forum_ads("&i&")"))="" Then If i = 1 Or i = 0 Then iSetting = "" ElseIf i = 17 Then iSetting = 1 Else iSetting = 0 End If Else iSetting=Replace(Trim(Request.Form("Forum_ads("&i&")")),"$","") End If If i = 0 Then Dvbbs.Forum_ads = iSetting Else Dvbbs.Forum_ads = Dvbbs.Forum_ads & "$" & iSetting End If Next If Request("getskinid")="1" Then Sql = "Update Dv_Setup Set Forum_ads='"&Replace(Dvbbs.Forum_ads,"'","''")&"'" Dvbbs.Execute(sql) Dvbbs.loadSetup() End If If Request("getboard")<>"" Then Sql = "Update Dv_Board Set Board_Ads='"&Replace(Dvbbs.Forum_ads,"'","''")&"' Where BoardID In ("&Request("getboard")&")" Dvbbs.Execute(Sql) Dvbbs.loadSetup() RestoreBoardCache() Dvbbs.ReloadBoardCache request("getboard") Else Dvbbs.loadSetup() RestoreBoardCache() End If Dv_suc("广告设置成功！") End Sub Sub RestoreBoardCache() Dim Board,node Dvbbs. LoadBoardList() For Each node in Application(Dvbbs.CacheName &"_style").documentElement.selectNodes("style/@id") Application.Contents.Remove(Dvbbs.CacheName & "_showtextads_"&node.text) For Each board in Application(Dvbbs.CacheName&"_boardlist").documentElement.selectNodes("board/@boardid") Dvbbs.LoadBoardData board.text Application.Contents.Remove(dvbbs.CacheName & "_Text_ad_"& board.text &"_"&node.text) Application.Contents.Remove(dvbbs.CacheName & "_Text_ad_"& board.text &"_"&node.text&"_-time") Next Application.Contents.Remove(dvbbs.CacheName & "_Text_ad_0_"& node.text) Application.Contents.Remove(dvbbs.CacheName & "_Text_ad_0_"& node.text&"_-time") Next End Sub %>