📄 admin_advertisement.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_ContentEx.asp"-->
<!--#include file="../Include/PowerEasy.FSO.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Const NeedCheckComeUrl = True   '是否需要检查外部访问

Const PurviewLevel = 2      '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0   '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "AD"   '其他权限


Dim ADID, ZoneID
Dim ZoneConfig, ZoneTypeNum, IAB_Size

ZoneID = Trim(Request("ZoneID"))

If Action = "" Then
    Action = "ZoneList"
End If
If ChannelID = 0 Then
    ChannelID = -2
Else
    ChannelID = PE_CLng(ChannelID)
End If
If IsValidID(ZoneID) = False Then
    ZoneID = ""
End If
strFileName = "Admin_Advertisement.asp?Action=" & Action

Response.Write "<html><head><title>广告管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Call ShowPageTitle("网 站 广 告 管 理", 10021)
Response.Write "  <tr class='tdbg'>" & vbCrLf
Response.Write "    <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write "    <td>" & vbCrLf
Response.Write "      <a href='Admin_Advertisement.asp?Action=ZoneList'>广告版位管理</a>&nbsp;|&nbsp;"
Response.Write "      <a href='Admin_Advertisement.asp?Action=AddZone'>添加新版位</a>&nbsp;|&nbsp;"
Response.Write "      <a href='Admin_Advertisement.asp?Action=ADList'>网站广告管理</a>&nbsp;|&nbsp;"
Response.Write "      <a href='Admin_Advertisement.asp?Action=AddAD'>添加新广告</a>&nbsp;|&nbsp;"
Response.Write "      <a href='Admin_Advertisement.asp?Action=ZoneJSTemplate'>广告JS模板</a>&nbsp;|&nbsp;"
Response.Write "      <a href='Admin_UploadFile.asp?UploadDir=UploadAdPic'>广告上传图片管理</a>&nbsp;|&nbsp;"
Response.Write "      <a href='Admin_Advertisement.asp?Action=Import'>导入版位</a>&nbsp;|&nbsp;"
Response.Write "      <a href='Admin_Advertisement.asp?Action=Export'>导出版位</a>&nbsp;|&nbsp;"
Response.Write "    </td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
If Not fso.FolderExists(Server.MapPath(InstallDir & ADDir)) Then
    Response.Write "<br><li>找不到网站广告目录，请检查网站配置中的设置与实际的广告目录是否一致。</li>"
    Response.End
End If

Call InitZoneConfig

Select Case Action
Case "AddAD"
    Call AddAD
Case "ModifyAD"
    Call ModifyAD
Case "CopyAD"
    Call CopyAD
Case "Export"
    Call Export
Case "DoExport"
    Call DoExport
Case "Import"
    Call Import
Case "Import2"
    Call Import2
Case "DoImport"
    Call DoImport
Case "SaveAddAD", "SaveModifyAD"
    Call SaveAD
Case "SetADPassed", "CancelADPassed", "MoveAD", "DelAD"
    Call SetADProperty
Case "ADList"
    Call ADList
Case "PreviewAD"
    Call PreviewAD
Case "AddZone"
    Call AddZone
Case "ModifyZone"
    Call ModifyZone
Case "CopyZone"
    Call CopyZone
Case "SaveAddZone", "SaveModifyZone"
    Call SaveZone
Case "SetZoneActive", "CancelZoneActive", "MoveZone", "DelZone"
    Call SetZoneProperty
Case "ClearZone"
    Call ClearZone
Case "PreviewZone"
    Call PreviewZone
Case "ZoneJSCode"
    Call ZoneJSCode
Case "ZoneList"
    Call ZoneList
Case "ZoneJSTemplate"
    Call ZoneJSTemplate
Case "ModifyTemplate"
    Call ModifyTemplate
Case "SaveTemplate"
    Call SaveTemplate
Case "CreateJSZone"
    Call CreateJSZone
Case Else
    Call ZoneList
End Select
If FoundErr = True Then
    Call WriteEntry(2, AdminName, "广告管理操作失败，失败原因：" & ErrMsg)
    Call WriteErrMsg(ErrMsg, ComeUrl)
End If

Response.Write "</body></html>"
Call CloseConn

Sub InitZoneConfig()
    ZoneTypeNum = 9
    ReDim ZoneConfig(9, 4)
    ZoneConfig(0, 0) = ""
    ZoneConfig(0, 1) = ""
    ZoneConfig(1, 0) = "Banner"
    ZoneConfig(1, 1) = "矩形横幅"
    ZoneConfig(1, 2) = "1"
    ZoneConfig(2, 0) = "Pop"
    ZoneConfig(2, 1) = "弹出窗口"
    ZoneConfig(2, 2) = "2,1,100,100,0"
    ZoneConfig(3, 0) = "Move"
    ZoneConfig(3, 1) = "随屏移动"
    ZoneConfig(3, 2) = "3,15,200,0.015"
    ZoneConfig(4, 0) = "Fixed"
    ZoneConfig(4, 1) = "固定位置"
    ZoneConfig(4, 2) = "4,100,100"
    ZoneConfig(5, 0) = "Float"
    ZoneConfig(5, 1) = "漂浮移动"
    ZoneConfig(5, 2) = "5,1,100,100"
    ZoneConfig(6, 0) = "Code"
    ZoneConfig(6, 1) = "文字代码"
    ZoneConfig(6, 2) = "6"
    ZoneConfig(7, 0) = "Couplet"
    ZoneConfig(7, 1) = "对联广告"
    ZoneConfig(7, 2) = "7"
    ZoneConfig(8, 0) = "BottomLeft"
    ZoneConfig(8, 1) = "底左广告"
    ZoneConfig(8, 2) = "8"
    ZoneConfig(9, 0) = "BottomRight"
    ZoneConfig(9, 1) = "底右广告"
    ZoneConfig(9, 2) = "9"

    ReDim IAB_Size(15, 1)
    IAB_Size(0, 0) = "468x60"
    IAB_Size(0, 1) = "IAB - 468 x 60 IMU (横幅广告)"
    IAB_Size(1, 0) = "234x60"
    IAB_Size(1, 1) = "IAB - 234 x 60 IMU (半幅广告)"
    IAB_Size(2, 0) = "88x31"
    IAB_Size(2, 1) = "IAB -　88 x 31 IMU (小按钮)"
    IAB_Size(3, 0) = "120x90"
    IAB_Size(3, 1) = "IAB - 120 x 90 IMU (按钮一)"
    IAB_Size(4, 0) = "120x60"
    IAB_Size(4, 1) = "IAB - 120 x 60 IMU (按钮二)"
    IAB_Size(5, 0) = "728x90"
    IAB_Size(5, 1) = "IAB - 728 x 90 IMU (通栏广告) *"
    IAB_Size(6, 0) = "120x240"
    IAB_Size(6, 1) = "IAB - 120 x 240 IMU (竖幅广告)"
    IAB_Size(7, 0) = "125x125"
    IAB_Size(7, 1) = "IAB - 125 x 125 IMU (方形按钮)"
    IAB_Size(8, 0) = "180x150"
    IAB_Size(8, 1) = "IAB - 180 x 150 IMU (长方形) *"
    IAB_Size(9, 0) = "300x250"
    IAB_Size(9, 1) = "IAB - 300 x 250 IMU (中长方形) *"
    IAB_Size(10, 0) = "336x280"
    IAB_Size(10, 1) = "IAB - 336 x 280 IMU (大长方形)"
    IAB_Size(11, 0) = "240x400"
    IAB_Size(11, 1) = "IAB - 240 x 400 IMU (竖长方形)"
    IAB_Size(12, 0) = "250x250"
    IAB_Size(12, 1) = "IAB - 250 x 250 IMU (正方形弹出)"
    IAB_Size(13, 0) = "120x600"
    IAB_Size(13, 1) = "IAB - 120 x 600 IMU (摩天大楼)"
    IAB_Size(14, 0) = "160x600"
    IAB_Size(14, 1) = "IAB - 160 x 600 IMU (宽摩天大楼) *"
    IAB_Size(15, 0) = "300x600"
    IAB_Size(15, 1) = "IAB - 300 x 600 IMU (半页广告) *"
End Sub

Sub ShowJS_ADMain(ItemName)
    Response.Write "<SCRIPT language=javascript>" & vbCrLf
    Response.Write "function CheckItem(CB){" & vbCrLf
    Response.Write "  if(document.myform.chkAll.checked){" & vbCrLf
    Response.Write "    document.myform.chkAll.checked = document.myform.chkAll.checked&0;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if (CB.checked)" & vbCrLf
    Response.Write "    hL(CB);" & vbCrLf
    Response.Write "  else" & vbCrLf
    Response.Write "    dL(CB);" & vbCrLf
    Response.Write "  var TB=TO=0;" & vbCrLf
    Response.Write "  for (var i=0;i<myform.elements.length;i++) {" & vbCrLf
    Response.Write "    var e=myform.elements[i];" & vbCrLf
    Response.Write "    if ((e.name != 'chkAll') && (e.type=='checkbox')) {" & vbCrLf
    Response.Write "      TB++;" & vbCrLf
    Response.Write "      if (e.checked) TO++;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  myform.chkAll.checked=(TO==TB)?true:false;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckAll(form){" & vbCrLf
    Response.Write "  for (var i=0;i<form.elements.length;i++){" & vbCrLf
    Response.Write "    var e = form.elements[i];" & vbCrLf
    Response.Write "    if (e.name != 'chkAll' && e.disabled == false && e.type == 'checkbox') {" & vbCrLf
    Response.Write "      e.checked = form.chkAll.checked;" & vbCrLf
    Response.Write "      if (e.checked)" & vbCrLf
    Response.Write "        hL(e);" & vbCrLf
    Response.Write "      else" & vbCrLf
    Response.Write "        dL(e);" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function ConfirmDel(){" & vbCrLf
    Response.Write "  if(document.myform.Action.value=='DelZone'||document.myform.Action.value=='DelAD'){" & vbCrLf
    Response.Write "    if(confirm('确定要删除选中的" & ItemName & "吗？'))" & vbCrLf
    Response.Write "      return true;" & vbCrLf
    Response.Write "    else" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "function hL(E){" & vbCrLf
    Response.Write "  while (E.tagName!='TR') {E=E.parentElement;}" & vbCrLf
    Response.Write "  E.className='tdbg2';" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function dL(E){" & vbCrLf
    Response.Write "  while (E.tagName!='TR') {E=E.parentElement;}" & vbCrLf
12 3 4 5 下一页
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

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

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