📄 admin_advertisement.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 5 页
字号:
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200'><strong>版位描述：</strong></td>"
    Response.Write "      <td width='600'>"
    Response.Write "        <textarea name='ZoneIntro' cols='50' rows='3' id='ZoneIntro'>" & PE_ConvertBR(rsZone("ZoneIntro")) & "</textarea>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200'><strong>版位类型：</strong><br>选择放置于此版位的广告类型。</td>"
    Response.Write "      <td width='600'>"
    Response.Write "        <table>"
    Response.Write "          <tr>"
    Response.Write "            <td>"
    For i = 1 To ZoneTypeNum
        Response.Write "              <input type='radio' name='ZoneType' value='" & i & "' onclick='Change_Setting();' " & IsRadioChecked(rsZone("ZoneType"), i) & "> " & ZoneConfig(i, 1) & "&nbsp;"
        If i Mod 5 = 0 Then Response.Write "<br>"
    Next
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' valign='top'><strong>版位设置：</strong><br>对版位的详细参数进行设置。</td>"
    Response.Write "      <td width='600' valign='top'>"
    Response.Write "        <table width='100%' height='40' border='0' cellpadding='2' cellspacing='1'>"
    Response.Write "          <tr>"
    Response.Write "            <td>"
    Response.Write "              <input name='DefaultSetting' type='radio' value='1' onClick=""ZoneSetting.style.display='none'"" " & IsRadioChecked(rsZone("DefaultSetting"), True) & "> 默认设置&nbsp;"
    Response.Write "              <input name='DefaultSetting' type='radio' value='0' onClick=""ZoneSetting.style.display=''"" " & IsRadioChecked(rsZone("DefaultSetting"), False) & "> 自定义设置&nbsp;"
    Response.Write "            </td>"
    Response.Write "          <tr>"
    Response.Write "        </table>"

    Response.Write "        <table id='ZoneSetting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("DefaultSetting"), False) & "'>"
    Response.Write "          <tr>"
    Response.Write "            <td>"
    Response.Write "              <table id='ZoneType1_Setting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("ZoneType"), 1) & "'><tr><td>"
    Call ShowZoneSetting(ZoneConfig(1, 2), 1)
    Response.Write "              </td></tr></table>"
    Response.Write "              <table id='ZoneType2_Setting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("ZoneType"), 2) & "'><tr><td>"
    Call ShowZoneSetting(ZoneConfig(2, 2), 2)
    Response.Write "              </td></tr></table>"
    Response.Write "              <table id='ZoneType3_Setting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("ZoneType"), 3) & "'><tr><td>"
    Call ShowZoneSetting(ZoneConfig(3, 2), 3)
    Response.Write "              </td></tr></table>"
    Response.Write "              <table id='ZoneType4_Setting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("ZoneType"), 4) & "'><tr><td>"
    Call ShowZoneSetting(ZoneConfig(4, 2), 4)
    Response.Write "              </td></tr></table>"
    Response.Write "              <table id='ZoneType5_Setting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("ZoneType"), 5) & "'><tr><td>"
    Call ShowZoneSetting(ZoneConfig(5, 2), 5)
    Response.Write "              </td></tr></table>"
    Response.Write "              <table id='ZoneType6_Setting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("ZoneType"), 6) & "'><tr><td>"
    Call ShowZoneSetting(ZoneConfig(6, 2), 6)
    Response.Write "              </td></tr></table>"
    Response.Write "              <table id='ZoneType7_Setting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("ZoneType"), 7) & "'><tr><td>"
    Call ShowZoneSetting(ZoneConfig(7, 2), 7)
    Response.Write "              </td></tr></table>"
    Response.Write "              <table id='ZoneType8_Setting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("ZoneType"), 8) & "'><tr><td>"
    Call ShowZoneSetting(ZoneConfig(8, 2), 8)
    Response.Write "              </td></tr></table>"
    Response.Write "              <table id='ZoneType9_Setting' width='100%' border='0' cellpadding='0' cellspacing='0' style='display:" & StyleDisplay(rsZone("ZoneType"), 9) & "'><tr><td>"
    Call ShowZoneSetting(ZoneConfig(9, 2), 9)
    Response.Write "              </td></tr></table>"
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"

    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200'><strong>版位尺寸：</strong><br>IAB：互联网广告联合会标准尺寸。<br>带*号的为新增加的标准广告尺寸。</td>"
    Response.Write "      <td width='600'>"
    Response.Write "        <table>"
    Response.Write "          <tr>"
    Response.Write "            <td>"
    Response.Write "              <input type='radio' name='SizeType' value='default' " & IsRadioChecked(IsIABSize, True) & ">"
    Response.Write "              <select name='ZoneSize' onchange='Zone_SelectSize(this)' " & strDisabled & ">"
    For i = 0 To 15
        Response.Write "<option value='" & IAB_Size(i, 0) & "' " & IsOptionSelected(ZoneSize, IAB_Size(i, 0)) & ">" & IAB_Size(i, 1) & "</option>"
    Next
    Response.Write "<option value='0x0' " & IsOptionSelected(IsIABSize, False) & ">自定义大小</option>"
    Response.Write "              </select>"
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr>"
    Response.Write "            <td>"
    Response.Write "              <input type='radio' name='SizeType' value='custom' onclick='Zone_EditSize()' " & IsRadioChecked(IsIABSize, False) & ">"
    Response.Write "              宽度: "
    Response.Write "              <input name='ZoneWidth' size='5' maxlength='4' onkeydown='Zone_EditSize()' value='" & rsZone("ZoneWidth") & "' " & strDisabled & ">&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "              高度:"
    Response.Write "              <input name='ZoneHeight' size='5' maxlength='4' onkeydown='Zone_EditSize()' value='" & rsZone("ZoneHeight") & "' " & strDisabled & ">"
    Response.Write "              <font color='red'>*</font>"
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200'><strong>显示方式：</strong><br>当版位中有多个广告时按照此设定进行显示（依据广告的权重）。</td>"
    Response.Write "      <td width='600'>"
    Response.Write "        <input name='ShowType' type='radio' value='1' " & IsRadioChecked(rsZone("ShowType"), 1) & "> 按权重随机显示&nbsp;&nbsp;权重越大显示机会越大。<br>"
    Response.Write "        <input name='ShowType' type='radio' value='2' " & IsRadioChecked(rsZone("ShowType"), 2) & "> 按权重优先显示&nbsp;&nbsp;显示权重值最大的广告。<br>"
    Response.Write "        <input name='ShowType' type='radio' value='3' " & IsRadioChecked(rsZone("ShowType"), 3)
    If rsZone("ZoneType") <> 1 Then Response.Write " disabled"
    Response.Write "> 按顺序循环显示&nbsp;&nbsp;此方式仅对矩形横幅有效。"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200'><strong>版位状态：</strong><br>设为活动的版位才能在前台显示。</td>"
    Response.Write "      <td width='600'>"
    Response.Write "        <input name='Active' type='checkbox' id='Active' value='yes' " & IsRadioChecked(rsZone("Active"), True) & "> 活动版位"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40' colspan='2' align='center'>"
    Response.Write "        <input name='ZoneID' type='hidden' id='ZoneID' value='" & rsZone("ZoneID") & "'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveModifyZone'>"
    Response.Write "        <input  type='submit' name='Submit' value=' 修 改 '>&nbsp;&nbsp;"
    Response.Write "        <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_Advertisement.asp?Action=ZoneList'"" style='cursor:hand;'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
    rsZone.Close
    Set rsZone = Nothing
End Sub

Sub ShowZoneSetting(Setting, ZoneType)
    Select Case ZoneType
    Case 1
        Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#ffffff'>"
        Response.Write "  <tr align='center' class='tdbg2'>"
        Response.Write "    <td colspan='2'><strong>版位参数设置--" & ZoneConfig(1, 1) & "</strong></td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td colspan='2' align='center'>此类型无版位参数设置！</td>"
        Response.Write "  </tr>"
        Response.Write "</table>"
    Case 2
        Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#ffffff'>"
        Response.Write "  <tr align='center' class='tdbg2'>"
        Response.Write "    <td colspan='2'><strong>版位参数设置--" & ZoneConfig(2, 1) & "</strong></td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>弹出方式：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <select name='Pop_PopType'>"
        Response.Write "        <option value='1' " & IsOptionSelected(GetSettingItem(Setting, 2, 1), "1") & ">前置窗口</option>"
        Response.Write "        <option value='2' " & IsOptionSelected(GetSettingItem(Setting, 2, 1), "2") & ">后置窗口</option>"
        Response.Write "        <option value='3' " & IsOptionSelected(GetSettingItem(Setting, 2, 1), "3") & ">网页对话框</option>"
        Response.Write "        <option value='4' " & IsOptionSelected(GetSettingItem(Setting, 2, 1), "4") & ">背投广告</option>"
        Response.Write "      </select>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>弹出位置（左）：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <input name='Pop_Left' type='text' id='Pop_Left' size='5' maxlength='4' value='" & GetSettingItem(Setting, 2, 2) & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>弹出位置（上）：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <input name='Pop_Top' type='text' id='Pop_Top' size='5' maxlength='4' value='" & GetSettingItem(Setting, 2, 3) & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>时间间隔：</strong><br>在时间间隔内不重复弹出。</td>"
        Response.Write "    <td>"
        Response.Write "      <input name='Pop_CookieHour' type='text' id='Pop_CookieHour' size='5' maxlength='2' value='" & GetSettingItem(Setting, 2, 4) & "'> 小时 　　<font color='blue'>设为0时总是弹出</font>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "</table>"
    Case 3
        Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#ffffff'>"
        Response.Write "  <tr align='center' class='tdbg2'>"
        Response.Write "    <td colspan='2'><strong>版位参数设置--" & ZoneConfig(3, 1) & "</strong></td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>广告位置（左）：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <input name='Move_Left' type='text' id='Move_Left' size='5' maxlength='4' value='" & GetSettingItem(Setting, 3, 1) & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>广告位置（上）：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <input name='Move_Top' type='text' id='Move_Top' size='5' maxlength='4' value='" & GetSettingItem(Setting, 3, 2) & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>移动平滑度：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <input name='Move_Delta' type='text' id='Move_Delta' size='7' maxlength='7' value='" & GetSettingItem(Setting, 3, 3) & "'> （取值在0.001至1之间）"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "</table>"
    Case 4
        Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#ffffff'>"
        Response.Write "  <tr align='center' class='tdbg2'>"
        Response.Write "    <td colspan='2'><strong>版位参数设置--" & ZoneConfig(4, 1) & "</strong></td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>广告位置（左）：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <input name='Fixed_Left' type='text' id='Fixed_Left' size='5' maxlength='4' value='" & GetSettingItem(Setting, 4, 1) & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>广告位置（上）：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <input name='Fixed_Top' type='text' id='Fixed_Top' size='5' maxlength='4' value='" & GetSettingItem(Setting, 4, 2) & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "</table>"
    Case 5
        Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#ffffff'>"
        Response.Write "  <tr align='center' class='tdbg2'>"
        Response.Write "    <td colspan='2'><strong>版位参数设置--" & ZoneConfig(5, 1) & "</strong></td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>漂浮类型：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <select name='Float_Type'>"
        Response.Write "        <option value='1' " & IsOptionSelected(GetSettingItem(Setting, 5, 1), "1") & ">变速漂浮</option>"
        Response.Write "        <option value='2' " & IsOptionSelected(GetSettingItem(Setting, 5, 1), "2") & ">匀速漂浮</option>"
        Response.Write "        <option value='3' " & IsOptionSelected(GetSettingItem(Setting, 5, 1), "3") & ">上下漂浮</option>"
        Response.Write "        <option value='4' " & IsOptionSelected(GetSettingItem(Setting, 5, 1), "4") & ">左右漂浮</option>"
        Response.Write "      </select>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='200'><strong>开始位置（左）：</strong></td>"
        Response.Write "    <td>"
        Response.Write "      <input name='Float_Left' type='text' id='Float_Left' size='5' maxlength='4' value='" & GetSettingItem(Setting, 5, 2) & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr class='tdbg'>"
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -