📄 admin_advertisement.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title>网站广告管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<%
If EL_Admin.Purview <> 1 Then
If EL_Admin.CheckAdminPurview(2, 3) = False Then
EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
End If
End If
Dim CurrentPath, Search_Keywords, Search_Field
Dim ArrZoneType(4), ArrShowType(2), ArrAdType(1)
ArrZoneType(0) = "矩形横幅"
ArrZoneType(1) = "弹出窗口"
ArrZoneType(2) = "随屏移动"
ArrZoneType(3) = "固定位置"
ArrZoneType(4) = "漂浮移动"
ArrShowType(0) = "权重随机"
ArrShowType(1) = "权重优先"
ArrShowType(2) = "顺序循环"
ArrAdType(0) = "图片"
ArrAdType(1) = "动画"
Search_Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Keywords", 1))
Search_Field = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Field", 1))
CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>网站广告管理</a> "
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td align="center" class="top_25"><strong>网站广告管理</strong></td>
</tr>
<tr>
<td class="td_50">管理导航：
<a href="<%=EL_CurrentScriptName%>?Action=ZoneList">广告位管理</a> |
<a href="<%=EL_CurrentScriptName%>?Action=AddZone">添加广告位</a> |
<a href="<%=EL_CurrentScriptName%>?Action=AdList">网站广告管理</a> |
<a href="<%=EL_CurrentScriptName%>?Action=AddAd">添加网站广告</a> |
<a href="<%=EL_CurrentScriptName%>?Action=JSTemplate">广告JS摸板</a>
</td>
</tr>
</table>
<br>
<%
Select Case Action
Case "", "ZoneList": Call ManageZone()
Case "AddZone": Call AddZone()
Case "SaveZone": Call SaveZone(0)
Case "ModifyZone": Call ModifyZone()
Case "SaveModifyZone": Call SaveZone(1)
Case "DeleteZone": Call SaveZone(2)
Case "ClearZone": Call SaveZone(3)
Case "JSTemplate": Call ManageJsTemplate()
Case "SaveJsTemplate": Call SaveJsTemplate()
Case "AdList": Call ManageAd()
Case "AddAd": Call AddAd()
Case "SaveAd": Call SaveAdvertisement(0)
Case "ModifyAd": Call ModifyAd()
Case "SaveModifyAd": Call SaveAdvertisement(1)
Case "DeleteAd": Call SaveAdvertisement(2)
Case "SetPassed": Call SaveAdvertisement(3)
Case "RefreshZone": Call RefreshZone()
Case "PreviewZone": Call PreviewZone()
Case "IncludeZone": Call IncludeZone()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()
Sub RefreshZone()
On Error Resume Next
Dim ZoneID, ArrZoneID, i
ZoneID = EL_Common.ELRequest("ZoneID", 2)
ArrZoneID = EL_Common.ELRequest("CheckObject", 1)
If ZoneID <> 0 Then ArrZoneID = EL_Common.Join2String(ArrZoneID, ZoneID, ",")
ArrZoneID = Split(ArrZoneID, ",")
For i = 0 To Ubound(ArrZoneID)
Call CreateAdFile(EL_Common.ELClng(ArrZoneID(i)))
Next
EL_Common.ShowScriptError()
EL_Common.ShowSuccessMsg("刷新广告位成功")
End Sub
Sub CreateAdFile(ByVal ZoneID)
On Error Resume Next
Dim ZoneCmd, rsZone, AdCmd, rsAd, RowCount, i
Dim FSO, JsFile, AdTemplate, AdDir, AdDateFolder
Dim ZoneType, ArrSetting
AdDir = GetAdDir()
Call EL_Common.InitCommonCmd(ZoneCmd, rsZone, "EL_Zone", "*", "ZoneID="& ZoneID)
rsZone.Close()
If ZoneCmd(0) <> 1 Then
'EL_Common.ShowErrorMsg("指定版位ID[ "& ZoneID &" ]不存在")
Set rsZone = Nothing
Set ZoneCmd = Nothing
Set FSO = Nothing
Exit Sub
End If
rsZone.Open()
ZoneType = rsZone("ZoneType")
ArrSetting = rsZone("ArrSetting")
'读取广告模板
Set FSO = Server.CreateObject(Object_FSO)
Set JsFile = FSO.OpenTextFile(Server.MapPath(InstallDir & AdDir &"/JsTemplate/Template"& ZoneType &".js"))
AdTemplate = JsFile.ReadAll
If Err Or AdTemplate = "" Then
Err.Clear
JsFile.Close()
Set JsFile = Nothing
Set FSO = Nothing
Exit Sub
End If
JsFile.Close()
Set JsFile = Nothing
AdTemplate = "var ADDir = """& AdDir &""";"& VBCRLF & VBCRLF & AdTemplate
AdTemplate = "var InstallDir = """& InstallDir &""";"& VBCRLF & AdTemplate
ArrSetting = Split(ArrSetting, ",")
Select Case ZoneType
Case 0:
AdTemplate = AdTemplate &"var AdZone_"& ZoneID &" = new BannerZoneAD(""AdZone_"& ZoneID &""");"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneID = "& ZoneID &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneName = """& EL_Common.ServerHTMLEncode(rsZone("ZoneName")) &""";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneWidth = "& rsZone("ZoneWidth") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneHeight = "& rsZone("ZoneHeight") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ShowType = "& rsZone("ShowType") &";"& VBCRLF
AdTemplate = AdTemplate & VBCRLF
Case 1:
AdTemplate = AdTemplate &"var AdZone_"& ZoneID &" = new PopZoneAD(""AdZone_"& ZoneID &""");"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneID = "& ZoneID &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneName = """& EL_Common.ServerHTMLEncode(rsZone("ZoneName")) &""";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneWidth = "& rsZone("ZoneWidth") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneHeight = "& rsZone("ZoneHeight") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ShowType = "& rsZone("ShowType") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".PopType = "& ArrSetting(2) &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Left = "& ArrSetting(0) &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Top = "& ArrSetting(1) &";"& VBCRLF
AdTemplate = AdTemplate & VBCRLF
Case 2:
AdTemplate = AdTemplate &"var AdZone_"& ZoneID &" = new MoveZoneAD(""AdZone_"& ZoneID &""");"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneID = "& ZoneID &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneName = """& EL_Common.ServerHTMLEncode(rsZone("ZoneName")) &""";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneWidth = "& rsZone("ZoneWidth") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneHeight = "& rsZone("ZoneHeight") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ShowType = "& rsZone("ShowType") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Left = "& ArrSetting(0) &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Top = "& ArrSetting(1) &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".MoveType = "& ArrSetting(2) &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Delta = "& ArrSetting(3) &";"& VBCRLF
AdTemplate = AdTemplate & VBCRLF
Case 3:
AdTemplate = AdTemplate &"var AdZone_"& ZoneID &" = new FixedZoneAD(""AdZone_"& ZoneID &""");"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneID = "& ZoneID &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneName = """& EL_Common.ServerHTMLEncode(rsZone("ZoneName")) &""";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneWidth = "& rsZone("ZoneWidth") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneHeight = "& rsZone("ZoneHeight") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ShowType = "& rsZone("ShowType") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Left = "& ArrSetting(0) &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Top = "& ArrSetting(1) &";"& VBCRLF
AdTemplate = AdTemplate & VBCRLF
Case 4:
AdTemplate = AdTemplate &"var AdZone_"& ZoneID &" = new FloatZoneAD(""AdZone_"& ZoneID &""");"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneID = "& ZoneID &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneName = """& EL_Common.ServerHTMLEncode(rsZone("ZoneName")) &""";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneWidth = "& rsZone("ZoneWidth") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ZoneHeight = "& rsZone("ZoneHeight") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".ShowType = "& rsZone("ShowType") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".FloatType = "& ArrSetting(2) &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Left = "& ArrSetting(0) &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Top = "& ArrSetting(1) &";"& VBCRLF
AdTemplate = AdTemplate & VBCRLF
End Select
AdDateFolder = rsZone("UpdateTime")
rsZone.Close()
Set rsZone = Nothing
Set ZoneCmd = Nothing
AdDateFolder = Year(AdDateFolder) & Right("0"& Month(AdDateFolder), 2)
Call EL_Common.InitCommonCmd(AdCmd, rsAd, "EL_Advertisement", "*", "ZoneID="& ZoneID &" And Passed="& EL_True &" ORDER BY AdRight DESC")
rsAd.Close()
RowCount = AdCmd(0)
rsAd.Open()
For i = 1 To RowCount
AdTemplate = AdTemplate &"var AdObject = new ObjectAD();"& VBCRLF
AdTemplate = AdTemplate &"AdObject.ADID = "& rsAd("AdID") &";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.ADType = "& rsAd("ADType") &";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.ADName = """& rsAd("ADName") &""";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.ADFileURL = """& rsAd("ADFileURL") &""";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.ADWidth = "& rsAd("ADWidth") &";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.ADHeight = "& rsAd("ADHeight") &";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.LinkURL = """& rsAd("LinkURL") &""";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.LinkTitle = """& rsAd("LinkTitle") &""";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.OpenType = "& rsAd("OpenType") &";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.FlashWmode = "& LCase(rsAd("FlashWmode").value) &";"& VBCRLF
AdTemplate = AdTemplate &"AdObject.ADRight = "& rsAd("ADRight") &";"& VBCRLF
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".AddAD(AdObject);"& VBCRLF & VBCRLF
If i<RowCount Then rsAd.MoveNext
Next
rsAd.Close()
Set rsAd = Nothing
Set AdCmd = Nothing
AdTemplate = AdTemplate &"AdZone_"& ZoneID &".Show();"& VBCRLF
Dim FilePath
FilePath = Server.MapPath(InstallDir & AdDir) &"\"& AdDateFolder
If Not FSO.FolderExists(FilePath) Then FSO.CreateFolder(FilePath)
Set JsFile = FSO.CreateTextFile(FilePath &"\"& ZoneID &".js")
JsFile.Write AdTemplate
JsFile.Close()
Set JsFile = Nothing
Set FSO = Nothing
EL_Common.ShowScriptError()
End Sub
Sub SaveAdvertisement(UpdateType)
On Error Resume Next
Dim AdCmd
Dim AdID, ZoneID, AdName, AdType, AdFileURL, AdWidth, AdHeight, LinkURL, LinkTitle, OpenType, FlashWmode, AdRight, Hits, Passed
Dim ImageURL, ImageWidth, ImageHeight
Dim FlashURL, FlashWidth, FlashHeight
AdID = EL_Common.ELRequest("AdID", 2)
ZoneID = EL_Common.ELRequest("ZoneID", 2)
AdName = EL_Common.ELRequest("AdName", 1)
AdType = EL_Common.ELRequest("AdType", 2)
LinkURL = EL_Common.ELRequest("LinkURL", 1)
LinkTitle = EL_Common.ELRequest("LinkTitle", 1)
OpenType = EL_Common.ELRequest("OpenType", 2)
FlashWmode = EL_Common.ELRequest("FlashWmode", 2)
AdRight = EL_Common.ELRequest("AdRight", 2)
Hits = EL_Common.ELRequest("Hits", 2)
Passed = EL_Common.ELRequest("Passed", 2)
Select Case UpdateType
Case 0, 1:
If AdRight <= 0 Then AdRight = 1
If AdType = 0 Then
ImageURL = EL_Common.ELRequest("ImageURL", 1)
ImageWidth = EL_Common.ELRequest("ImageWidth", 2)
ImageHeight = EL_Common.ELRequest("ImageHeight", 2)
AdFileURL = ImageURL
AdWidth = ImageWidth
AdHeight = ImageHeight
ElseIf AdType = 1 Then
FlashURL = EL_Common.ELRequest("FlashURL", 1)
FlashWidth = EL_Common.ELRequest("FlashWidth", 2)
FlashHeight = EL_Common.ELRequest("FlashHeight", 2)
AdFileURL = FlashURL
AdWidth = FlashWidth
AdHeight = FlashHeight
Else
EL_Common.ShowErrorMsg("广告类型参数错误")
Exit Sub
End If
Case Else:
AdFileURL = ""
AdWidth = 0
AdHeight = 0
LinkTitle = EL_Common.ELRequest("CheckObject", 1)
Passed = EL_Common.ELRequest("SetValue", 2)
If AdID <> 0 Then LinkTitle = EL_Common.Join2String(LinkTitle, AdID, ",")
End Select
Call EL_Common.InitCommand(AdCmd, "EL_SP_Advertisement")
With AdCmd
.Parameters.Append .CreateParameter("RETURN", 2, 4)
.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
If UpdateType = 0 Then
.Parameters.Append .CreateParameter("@AdID", 3, 2, 4)
Else
.Parameters.Append .CreateParameter("@AdID", 3, 1, 4, AdID)
End If
.Parameters.Append .CreateParameter("@ZoneID", 3, 1, 4, ZoneID)
.Parameters.Append .CreateParameter("@AdName", 200, 1, 100, AdName)
.Parameters.Append .CreateParameter("@AdType", 3, 1, 4, AdType)
.Parameters.Append .CreateParameter("@AdFileURL", 200, 1, 255, AdFileURL)
.Parameters.Append .CreateParameter("@AdWidth", 3, 1, 4, AdWidth)
.Parameters.Append .CreateParameter("@AdHeight", 3, 1, 4, AdHeight)
.Parameters.Append .CreateParameter("@LinkURL", 200, 1, 255, LinkURL)
.Parameters.Append .CreateParameter("@LinkTitle", 200, 1, 255, LinkTitle)
.Parameters.Append .CreateParameter("@OpenType", 3, 1, 4, OpenType)
.Parameters.Append .CreateParameter("@FlashWmode", 11, 1, 1, FlashWmode)
.Parameters.Append .CreateParameter("@AdRight", 3, 1, 4, AdRight)
.Parameters.Append .CreateParameter("@Hits", 3, 1, 4, Hits)
.Parameters.Append .CreateParameter("@Passed", 11, 1, 1, Passed)
.Execute()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -