📄 admin_advertisement.asp
字号:
return false;
}
if(frm.ImageHeight.value.trim()==""){
alert("请输入图片高度");
frm.ImageHeight.focus();
return false;
}
}else{
if(frm.FlashURL.value.trim()==""){
alert("请输入动画地址");
frm.FlashURL.focus();
return false;
}
var FileExt = frm.FlashURL.value.split(".")[1].toLowerCase();
if(FileExt != 'swf'){
alert("动画格式不正确");
frm.FlashURL.focus();
return false;
}
if(frm.FlashWidth.value.trim()==""){
alert("请输入动画宽度");
frm.FlashWidth.focus();
return false;
}
if(frm.FlashHeight.value.trim()==""){
alert("请输入动画高度");
frm.FlashHeight.focus();
return false;
}
}
if(frm.AdRight.value.trim()==""){
alert("请输入广告权重");
frm.AdRight.focus();
return false;
}
SubmitOnce(frm);
return;
}
</script>
<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="17%" class="td_ItemName"><strong>所属版位</strong></td>
<td width="83%" class="td_25">
<select name="ZoneID" id="ZoneID">
<%=EL_Common.Data2Options("EL_Zone", "ZoneID", "ZoneName", rsAd("ZoneID"), "1=1")%>
</select> </td>
</tr>
<tr>
<td class="td_ItemName"><strong>广告名称</strong></td>
<td class="td_25"><input name="AdName" type="text" id="AdName" value="<%=EL_Common.ServerHTMLEncode(rsAd("AdName"))%>" size="50"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>广告类型</strong></td>
<td class="td_25"><input name="AdType" type="radio" class="nomargin" value="0" onClick="onAdType(this.value)" <%=EL_Common.SetObjectChecked(0, rsAd("AdType"))%>>
图片
<input name="AdType" type="radio" class="nomargin" value="1" onClick="onAdType(this.value)" <%=EL_Common.SetObjectChecked(1, rsAd("AdType"))%>>
动画</td>
</tr>
<tr>
<td class="td_ItemName"><strong>广告内容设置</strong></td>
<td class="td_25">
<table id="AdType0" style="<%=ArrStyleDisplay(0)%>" width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="2" align="center" class="td_ItemName"><strong>图片设置</strong></td>
</tr>
<tr>
<td width="10%" nowrap class="td_ItemName"><strong>图片地址</strong></td>
<td width="90%" class="td_25"><input name="ImageURL" type="text" id="ImageURL" onChange="onAdURLChange(this.value)" value="<%=ImageURL%>" size="60"></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong class="BlueText">上传图片</strong></td>
<td class="td_25">
<iframe id="UploadImage" src="Admin_Upload.asp?DialogType=pic&ChannelID=<%=EL_Channel.ChannelID%>&EventName=AddPicture&Opt=Ad" frameborder="0" scrolling="no" width="100%" height="50" allowtransparency="true"></iframe> </td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>图片尺寸</strong></td>
<td class="td_25"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="5%" nowrap class="td_ItemName">宽度：</td>
<td width="8%"><input name="ImageWidth" type="text" id="ImageWidth" value="<%=ImageWidth%>" size="10"></td>
<td width="8%" align="right" nowrap class="td_ItemName">高度：</td>
<td width="79%"><input name="ImageHeight" type="text" id="ImageHeight" value="<%=ImageHeight%>" size="10"></td>
</tr>
</table></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>链接地址</strong></td>
<td class="td_25"><input name="LinkURL" type="text" id="LinkURL" value="<%=rsAd("LinkURL")%>" size="60"></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>链接提示</strong></td>
<td class="td_25"><input name="LinkTitle" type="text" id="LinkTitle" value="<%=rsAd("LinkTitle")%>" size="60"></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>打开方式</strong></td>
<td class="td_25"><input name="OpenType" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, rsAd("OpenType"))%>>
原窗口
<input name="OpenType" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, rsAd("OpenType"))%>>
新窗口</td>
</tr>
</table>
<table id="AdType1" style="<%=ArrStyleDisplay(1)%>" width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="2" align="center" class="td_ItemName"><strong>动画设置</strong></td>
</tr>
<tr>
<td width="10%" nowrap class="td_ItemName"><strong>动画地址</strong></td>
<td width="90%" class="td_25"><input name="FlashURL" type="text" id="FlashURL" size="60" onChange="onAdURLChange(this.value)" value="<%=FlashURL%>"></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong class="BlueText">上传动画</strong></td>
<td class="td_25"><iframe id="Uploadflash" src="Admin_Upload.asp?DialogType=flash&ChannelID=<%=EL_Channel.ChannelID%>&EventName=AddFlash&Opt=Ad" frameborder="0" scrolling="no" width="100%" height="50" allowtransparency="true"></iframe></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>动画尺寸</strong></td>
<td class="td_25"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="5%" nowrap class="td_ItemName">宽度：</td>
<td width="8%"><input name="FlashWidth" type="text" id="FlashWidth" size="10" value="<%=FlashWidth%>"></td>
<td width="8%" align="right" nowrap class="td_ItemName">高度：</td>
<td width="79%"><input name="FlashHeight" type="text" id="FlashHeight" value="<%=FlashHeight%>" size="10" <%=FlashHeight%>></td>
</tr>
</table></td>
</tr>
<tr>
<td nowrap class="td_ItemName"><strong>背景透明</strong></td>
<td class="td_25"><INPUT name="FlashWmode" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsAd("FlashWmode"))%>>
透明
<INPUT name="FlashWmode" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsAd("FlashWmode"))%>>
不透明 </td>
</tr>
</table> </td>
</tr>
<tr>
<td class="td_ItemName"><strong>广告权重</strong></td>
<td class="td_25"><input name="AdRight" type="text" id="AdRight" value="<%=rsAd("AdRight")%>" size="5">
此项为版位广告随机显示时的优先权，权重越大显示机会越大</td>
</tr>
<tr>
<td class="td_ItemName"><strong>初始点击数</strong></td>
<td class="td_25"><input name="Hits" type="text" id="Hits" value="<%=rsAd("Hits")%>" 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%>" <%=EL_Common.SetObjectChecked("True", rsAd("Passed"))%>>
是
<input name="Passed" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsAd("Passed"))%>>
否</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="SaveModifyAd">
<input name="AdID" type="hidden" id="AdID" value="<%=AdID%>"></td>
</tr>
</table>
</form>
<%
rsAd.Close()
Set AdCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManageAd()
On Error Resume Next
Dim ManageCmd, rsAd, StrFields, StrCondition
Dim ZoneID, ZoneName, PageCounts, RowCount, TotalRowCount
ZoneID = EL_Common.ELRequest("ZoneID", 2)
StrFields = "EL_Advertisement.AdID,EL_Advertisement.ZoneID,EL_Advertisement.AdName,EL_Advertisement.AdFileURL,EL_Advertisement.AdType,EL_Advertisement.AdRight,EL_Advertisement.Hits,EL_Advertisement.Passed,"
StrFields = StrFields &"EL_Advertisement.AdWidth,EL_Advertisement.AdHeight,EL_Zone.ZoneName"
StrCondition = "EL_Advertisement.ZoneID=EL_Zone.ZoneID "
If ZoneID > 0 Then
ZoneName = EL_Common.GetFieldValue("ZoneName", "EL_Zone", "ZoneID="& ZoneID)
StrCondition = StrCondition &"And EL_Advertisement.ZoneID='"& ZoneID &"' "
End If
If Search_Keywords<>"" And Search_Field<>"" Then
StrCondition = StrCondition &"And EL_Advertisement."& Search_Field &" Like '%"& Search_Keywords &"%' "
End If
Call EL_Common.InitCommand(ManageCmd, "EL_SP_SplitPage")
With ManageCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 100, "EL_Advertisement,EL_Zone")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 100, "EL_Advertisement.AdID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "EL_Advertisement.AdID DESC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
.Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
.Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
.Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
Set rsAd = .Execute()
End With
rsAd.Close()
RowCount = ManageCmd(0)
TotalRowCount = ManageCmd(9)
PageCounts = ManageCmd(10)
If Search_Keywords<>"" And Search_Field<>"" Then
CurrentPath = CurrentPath &">> 广告搜索 >> 关键字：<span class=redtext>"& Search_Keywords &"</span>"
Else
If ZoneID > 0 Then
CurrentPath = CurrentPath &">> <a href='"& EL_CurrentScriptName &"?Action=AdList'>广告管理</a> >> "& ZoneName &" >> 所有广告"
Else
CurrentPath = CurrentPath &">> 广告管理 >> 所有广告"
End If
End If
%>
<script language="javascript">
function CheckedAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = true;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = false;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
var frm = getObject("myform");
for (var i=0;i<frm.elements.length;i++){
var e = frm.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
return true
}
}
return false;
}
function Check(frm){
SubmitOnce(frm);
return true;
}
var JURL = "<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>";
function doDelete(){
var frm = getObject("myform");
if(!CheckObject()){
alert("请至少选定1个广告");
return false;
}
frm.action = JURL + "&Action=Delete";
if(confirm("本次操作将彻底删除选定的广告，不可以恢复\n确认要执行选定删除吗？")){
frm.submit();
return;
}
return false;
}
function doSetPassedTrue(){
var frm = getObject("myform");
if(!CheckObject()){
alert("请至少选定1个广告");
return false;
}
frm.action = JURL + "&Action=SetPassed&SetValue=<%=EL_True%>";
if(confirm("确认要通过审核选定广告吗？")){
frm.submit();
return;
}
return false;
}
function doSetPassedFalse(){
var frm = getObject("myform");
if(!CheckObject()){
alert("请至少选定1个广告");
return false;
}
frm.action = JURL + "&Action=SetPassed&SetValue=<%=EL_False%>";
if(confirm("确认要取消审核选定广告吗？")){
frm.submit();
return;
}
return false;
}
function AdPreview(AdID, AdURL, AdType, Width, Height){
var pw = document.body.clientWidth;
var ph = document.body.clientHeight;
var div = getObject("AdPreview");
div.style.width = Width;
div.style.height = Height;
div.style.left = (event.clientX+Width)>pw ? pw-Width-25:event.clientX;
div.style.top = (event.clientY+Height+5)>ph ? ph-Height-10:event.clientY+5;
div.innerHTML = AD_Content(AdID, AdURL, AdType, Width, Height);
div.style.visibility = "visible";
}
function HidePreviewer(){
var div = getObject("AdPreview");
div.innerHTML = "";
div.style.visibility = "hidden";
}
function AD_Content(AdID, AdURL, AdType, Width, Height) {
var str = "";
if(AdType == 1) {
str = "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0'";
str += " name='AD_" + AdID + "' id='AD_" + AdID + "'";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -