📄 admin_advertisement.asp
字号:
</table> </td>
</tr>
<tr>
<td class="td_ItemName"><strong>广告权重</strong></td>
<td class="td_25"><input name="AdRight" type="text" id="AdRight" value="1" size="5">
此项为版位广告随机显示时的优先权，权重越大显示机会越大</td>
</tr>
<tr>
<td class="td_ItemName"><strong>初始点击数</strong></td>
<td class="td_25"><input name="Hits" type="text" id="Hits" value="0" size="10"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否审核</strong></td>
<td class="td_25"><input name="Passed" type="radio" class="nomargin" value="<%=EL_True%>" checked>
是
<input name="Passed" type="radio" class="nomargin" value="<%=EL_False%>">
否</td>
</tr>
<tr>
<td class="td_ItemName"> </td>
<td class="td_50"><input type="submit" name="Submit5" value="添加广告">
<input name="Action" type="hidden" id="Action" value="SaveAd"></td>
</tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
Sub ManageJsTemplate()
On Error Resume Next
Dim AdDir, FSO, JsFile, i, JsContent, FilePath
AdDir = GetAdDir()
Set FSO = Server.CreateObject(Object_FSO)
EL_Common.ShowScriptError()
CurrentPath = CurrentPath &">> 广告JS模板管理"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<form name="myform" action="Admin_Advertisement.asp" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>广告JS模板管理</strong></td>
</tr>
<%
FilePath = Server.MapPath(InstallDir & AdDir &"/JsTemplate")
For i = 0 To UBound(ArrZoneType)
If FSO.FileExists(FilePath &"\Template"& i &".js") = False Then
JsContent = "Error: *** 广告模板数据不存在 ***"
Else
Set JsFile = FSO.OpenTextFile(FilePath &"\Template"& i &".js")
JsContent = JsFile.ReadAll
JsFile.Close()
Set JsFile = Nothing
End If
%>
<tr>
<td width="15%" align="center" class="td_ItemName"><strong><%=ArrZoneType(i)%></strong><br><%=InstallDir & AdDir &"/JsTemplate"& i &".js"%></td>
<td width="85%" class="td_25"><textarea name="Template<%=i%>" cols="100%" rows="10" id="Template<%=i%>"><%=EL_Common.ServerHTMLEncode(JsContent)%></textarea></td>
</tr>
<%
Next
%>
<tr>
<td class="td_ItemName"> </td>
<td class="td_50"><input type="submit" name="Submit4" value="保存模板">
<input name="Action" type="hidden" id="Action" value="SaveJsTemplate"></td>
</tr>
</table>
</form>
<%
Set FSO = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ModifyZone()
On Error Resume Next
Dim ZoneCmd, rsZone
Dim ZoneID, ArrSetting, ZoneType, ShowType, ParameterDisplay
ParameterDisplay = ""
ZoneID = EL_Common.ELRequest("ZoneID", 2)
Call EL_Common.InitCommonCmd(ZoneCmd, rsZone, "EL_Zone", "*", "ZoneID="& ZoneID)
rsZone.Close()
If ZoneCmd(0) <> 1 Then
Set rsZone = Nothing
Set ZoneCmd = Nothing
EL_Common.ShowErrorMsg("指定版位不存在")
Exit Sub
End If
rsZone.Open()
ZoneType = rsZone("ZoneType")
ShowType = rsZone("ShowType")
CurrentPath = CurrentPath &">> 修改版位"
%>
<script language="javascript">
function ZoneParameter(value){
for(var i=0;i<5;i++){
document.getElementById("ZoneType"+i).style.display = "none";
}
document.getElementById("ZoneType"+value).style.display = "";
if(value != "0"){
document.myform.ShowType[2].disabled = true;
}else{
document.myform.ShowType[2].disabled = false;
}
}
function Check(frm){
if(frm.ZoneName.value.trim()==""){
alert("请输入版位名称");
frm.ZoneName.focus();
return false;
}
if(frm.ZoneWidth.value.trim()==""){
alert("请输入版位宽度");
frm.ZoneWidth.focus();
return false;
}
if(frm.ZoneHeight.value.trim()==""){
alert("请输入版位高度");
frm.ZoneHeight.focus();
return false;
}
SubmitOnce(frm);
return ;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<form name="myform" action="Admin_Advertisement.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>修改广告位</strong></td>
</tr>
<tr>
<td width="18%" class="td_ItemName"><strong>版位名称</strong></td>
<td width="82%" class="td_25"><input name="ZoneName" type="text" id="ZoneName" value="<%=EL_Common.ServerHTMLEncode(rsZone("ZoneName"))%>" size="60"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>版位说明</strong></td>
<td class="td_25"><textarea name="Intro" cols="60" rows="6" id="Intro"><%=rsZone("Intro")%></textarea></td>
</tr>
<tr>
<td class="td_ItemName"><strong>版位类型</strong></td>
<td class="td_25"><input name="ZoneType" type="radio" class="nomargin" value="0" onClick="ZoneParameter(this.value)" <%=EL_Common.SetObjectChecked(0, ZoneType)%>>
矩形横幅
<input name="ZoneType" type="radio" class="nomargin" value="1" onClick="ZoneParameter(this.value)" <%=EL_Common.SetObjectChecked(1, ZoneType)%>>
弹出窗口
<input name="ZoneType" type="radio" class="nomargin" value="2" onClick="ZoneParameter(this.value)" <%=EL_Common.SetObjectChecked(2, ZoneType)%>>
随屏移动
<input name="ZoneType" type="radio" class="nomargin" value="3" onClick="ZoneParameter(this.value)" <%=EL_Common.SetObjectChecked(3, ZoneType)%>>
固定位置
<input name="ZoneType" type="radio" class="nomargin" value="4" onClick="ZoneParameter(this.value)" <%=EL_Common.SetObjectChecked(4, ZoneType)%>>
漂浮移动</td>
</tr>
<tr>
<td class="td_ItemName"><strong class="BlueText">版位参数设置</strong></td>
<td class="td_25">
<!--矩形横幅-->
<%
ParameterDisplay = "display:none"
If ZoneType = 0 Then
ParameterDisplay = ""
End If
%>
<table id="ZoneType0" style="<%=ParameterDisplay%>" width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="2" align="center" nowrap class="td_ItemName"><strong>矩形横幅</strong></td>
</tr>
<tr>
<td width="13%" class="td_50">此类型无参数设置</td>
</tr>
</table>
<!--弹出窗口-->
<%
ParameterDisplay = "display:none"
If ZoneType = 1 Then
ArrSetting = Split(rsZone("ArrSetting"), ",")
ParameterDisplay = ""
Else
ArrSetting = Split("50,50,0", ",")
End If
%>
<table id="ZoneType1" style="<%=ParameterDisplay%>" width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="2" align="center" nowrap class="td_ItemName"><strong>弹出窗口</strong></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>弹出位置（X）</strong></td>
<td class="td_25"><input name="PopupX" type="text" id="PopupX" size="5" value="<%=ArrSetting(0)%>"></td>
</tr>
<tr>
<td width="11%" nowrap class="td_ItemName"><strong>弹出位置（Y）</strong></td>
<td width="89%" class="td_25"><input name="PopupY" type="text" id="PopupY" value="<%=ArrSetting(1)%>" size="5"></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>弹出方式</strong></td>
<td class="td_25"><input name="PopupType" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, ArrSetting(2))%>>
总是弹出
<input name="PopupType" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, ArrSetting(2))%>>
每天一次
<input name="PopupType" type="radio" class="nomargin" value="2" <%=EL_Common.SetObjectChecked(2, ArrSetting(2))%>>
只弹出一次（第一次访问弹出）</td>
</tr>
</table>
<!--随屏移动-->
<%
ParameterDisplay = "display:none"
If ZoneType = 2 Then
ArrSetting = Split(rsZone("ArrSetting"), ",")
ParameterDisplay = ""
Else
ArrSetting = Split("15,100,1,0.15", ",")
End If
%>
<table id="ZoneType2" style="<%=ParameterDisplay%>" width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="2" align="center" nowrap class="td_ItemName"><strong>随屏移动</strong></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>广告位置（X）</strong></td>
<td class="td_25"><input name="MoveX" type="text" id="MoveX" value="<%=ArrSetting(0)%>" size="5"></td>
</tr>
<tr>
<td width="13%" nowrap class="td_ItemName"><strong>广告位置（Y）</strong></td>
<td width="87%" class="td_25"><input name="MoveY" type="text" id="MoveY" value="<%=ArrSetting(1)%>" size="5"></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>移动速度</strong></td>
<td class="td_25"><input name="MoveSpeed" type="text" id="MoveSpeed" value="<%=ArrSetting(3)%>" size="10">
（取值在0～1之间）</td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>移动方式</strong></td>
<td class="td_25"><input name="MoveAdType" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, ArrSetting(2))%>>
左边
<input name="MoveAdType" type="radio" class="nomargin" value="2" <%=EL_Common.SetObjectChecked(2, ArrSetting(2))%>>
右边
<input name="MoveAdType" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, ArrSetting(2))%>>
对联</td>
</tr>
</table>
<!--固定位置-->
<%
ParameterDisplay = "display:none"
If ZoneType = 3 Then
ArrSetting = Split(rsZone("ArrSetting"), ",")
ParameterDisplay = ""
Else
ArrSetting = Split("100,100", ",")
End If
%>
<table id="ZoneType3" style="<%=ParameterDisplay%>" width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="2" align="center" nowrap class="td_ItemName"><strong>固定位置</strong></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>广告位置（X）</strong></td>
<td class="td_25"><input name="PositionX" type="text" id="PositionX" value="<%=ArrSetting(0)%>" size="5"></td>
</tr>
<tr>
<td width="13%" nowrap class="td_ItemName"><strong>广告位置（Y）</strong></td>
<td width="87%" class="td_25"><input name="PositionY" type="text" id="PositionY" value="<%=ArrSetting(1)%>" size="5"></td>
</tr>
</table>
<!--漂浮移动-->
<%
ParameterDisplay = "display:none"
If ZoneType = 4 Then
ArrSetting = Split(rsZone("ArrSetting"), ",")
ParameterDisplay = ""
Else
ArrSetting = Split("50,50,0", ",")
End If
%>
<table id="ZoneType4" style="<%=ParameterDisplay%>" width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="2" align="center" nowrap class="td_ItemName"><strong>漂浮移动</strong></td>
</tr>
<tr>
<td class="td_ItemName"><STRONG>漂浮方式</STRONG></td>
<td class="td_25"><SELECT name="FloatType" id="FloatType">
<OPTION value="0" <%=EL_Common.SetObjectSelected(0, ArrSetting(2))%>>变速漂浮</OPTION>
<OPTION value="1" <%=EL_Common.SetObjectSelected(1, ArrSetting(2))%>>匀速漂浮</OPTION>
<OPTION value="2" <%=EL_Common.SetObjectSelected(2, ArrSetting(2))%>>上下漂浮</OPTION>
<OPTION value="3" <%=EL_Common.SetObjectSelected(3, ArrSetting(2))%>>左右漂浮</OPTION>
</SELECT></td>
</tr>
<tr>
<td width="13%" nowrap class="td_ItemName"><strong>开始位置（X）</strong></td>
<td width="87%" class="td_25"><input name="FloatX" type="text" id="FloatX" value="<%=ArrSetting(0)%>" size="5"></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>开始位置（Y）</strong></td>
<td class="td_25"><input name="FloatY" type="text" id="F⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -