📄 admin_advertisement.asp
字号:
Response.Write " E.className='tdbg';" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "</SCRIPT>" & vbCrLf
End Sub
Sub ZoneList()
Dim rsZone, sqlZone
Call ShowJS_ADMain("版位")
Response.Write "<br>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22'>" & GetChannelList(ChannelID) & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td height='22'>" & GetZoneManagePath(ChannelID) & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <form name='myform' method='Post' action='Admin_Advertisement.asp' onsubmit='return ConfirmDel();'>"
Response.Write " <td>"
Response.Write " <table class='border' border='0' cellspacing='1' width='100%' cellpadding='0'>"
Response.Write " <tr class='title' height='22'>"
Response.Write " <td width='30' align='center'><strong>选中</strong></td>"
Response.Write " <td width='30' align='center'><strong>ID</strong></td>"
Response.Write " <td align='center'><strong>版位名称</strong></td>"
Response.Write " <td width='65' align='center'><strong>版位类型</strong></td>"
Response.Write " <td width='35' align='center'><strong>显示</strong></td>"
Response.Write " <td width='65' align='center'><strong>版位尺寸</strong></td>"
Response.Write " <td width='30' align='center'><strong>活动</strong></td>"
Response.Write " <td width='120' align='center'><strong>操作</strong></td>"
Response.Write " <td width='80' align='center'><strong>版位JS</strong></td>"
Response.Write " </tr>"
sqlZone = "select * from PE_AdZone where 1=1"
If ChannelID = -2 Then
sqlZone = sqlZone & " and ChannelID= 0"
End If
If ChannelID >= -1 Then
sqlZone = sqlZone & " and ChannelID=" & ChannelID
End If
If Keyword <> "" Then
Select Case strField
Case "ZoneName"
sqlZone = sqlZone & " and ZoneName like '%" & Keyword & "%' "
Case "ZoneIntro"
sqlZone = sqlZone & " and ZoneIntro like '%" & Keyword & "%' "
Case Else
sqlZone = sqlZone & " and ZoneName like '%" & Keyword & "%' "
End Select
End If
sqlZone = sqlZone & " order by ZoneID desc"
Set rsZone = Server.CreateObject("ADODB.Recordset")
rsZone.Open sqlZone, Conn, 1, 1
If rsZone.BOF And rsZone.EOF Then
Response.Write " <tr class='tdbg'><td colspan='20' align='center'><br>没有任何广告版位！<br><br></td></tr>"
Else
totalPut = rsZone.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsZone.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Dim ZoneNum
ZoneNum = 0
Do While Not rsZone.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width='30' align='center'><input name='ZoneID' type='checkbox' onclick='CheckItem(this)' value='" & rsZone("ZoneID") & "'></td>"
Response.Write " <td width='30' align='center'>" & rsZone("ZoneID") & "</td>"
Response.Write " <td>"
If ChannelID = -2 Then
Response.Write "[" & GetChannelName(rsZone("ChannelID")) & "]"
End If
Response.Write " <a href='Admin_Advertisement.asp?Action=ADList&ZoneID=" & rsZone("ZoneID") & "' title='" & rsZone("ZoneIntro") & "'>" & rsZone("ZoneName") & "</a>"
Response.Write " </td>"
Response.Write " <td width='65' align='center'>" & ZoneConfig(rsZone("ZoneType"), 1) & "</td>"
Response.Write " <td width='35' align='center'>"
If rsZone("ShowType") = 2 Then
Response.Write "优先"
ElseIf rsZone("ShowType") = 3 Then
Response.Write "循环"
Else
Response.Write "随机"
End If
Response.Write " </td>"
Response.Write " <td width='65' align='center'>" & rsZone("ZoneWidth") & " x " & rsZone("ZoneHeight") & "</td>"
Response.Write " <td width='30' align='center'>"
If rsZone("Active") = True Then
Response.Write "<b>√</b>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write " </td>"
Response.Write " <td width='120' align='center'>"
Response.Write " <a href='Admin_Advertisement.asp?Action=AddAD&ZoneID=" & rsZone("ZoneID") & "'>添加</a> "
Response.Write " <a href='Admin_Advertisement.asp?Action=ModifyZone&ZoneID=" & rsZone("ZoneID") & "'>修改</a> "
Response.Write " <a href='Admin_Advertisement.asp?Action=CopyZone&ZoneID=" & rsZone("ZoneID") & "'>复制</a>"
Response.Write "<br>"
Response.Write " <a href='Admin_Advertisement.asp?Action=DelZone&ZoneID=" & rsZone("ZoneID") & "' onClick=""return confirm('确定要删除此版位吗？');"">删除</a> "
Response.Write " <a href='Admin_Advertisement.asp?Action=ClearZone&ZoneID=" & rsZone("ZoneID") & "' onClick=""return confirm('确定要清空此版位吗？清空后原来的属于此版位的广告将不再属于版位。');"">清空</a> "
If rsZone("Active") = False Then
Response.Write " <a href='Admin_Advertisement.asp?Action=SetZoneActive&ZoneID=" & rsZone("ZoneID") & "'>活动</a>"
Else
Response.Write " <a href='Admin_Advertisement.asp?Action=CancelZoneActive&ZoneID=" & rsZone("ZoneID") & "'>暂停</a>"
End If
Response.Write " </td>"
Response.Write " <td width='80' align='center'>"
Response.Write " <a href='Admin_Advertisement.asp?Action=CreateJSZone&ZoneID=" & rsZone("ZoneID") & "'>刷新</a> "
Response.Write " <a href='Admin_Advertisement.asp?Action=PreviewZone&ZoneID=" & rsZone("ZoneID") & "'>预览</a>"
Response.Write "<br>"
Response.Write " <a href='Admin_Advertisement.asp?Action=ZoneJSCode&ZoneID=" & rsZone("ZoneID") & "'>JS调用代码</a>"
Response.Write " </td>"
Response.Write " </tr>"
ZoneNum = ZoneNum + 1
If ZoneNum >= MaxPerPage Then Exit Do
rsZone.MoveNext
Loop
End If
rsZone.Close
Set rsZone = Nothing
Response.Write " </table>"
Response.Write " <table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td width='130' height='30'>"
Response.Write " <input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form)' value='checkbox'>选中所有的版位"
Response.Write " </td>"
Response.Write " <td>"
Response.Write " <input type='submit' value='删除选定版位' name='submit' onClick=""document.myform.Action.value='DelZone'""> "
Response.Write " <input type='submit' value='设为活动版位' name='submit' onClick=""document.myform.Action.value='SetZoneActive'""> "
Response.Write " <input type='submit' value='暂停版位显示' name='submit' onClick=""document.myform.Action.value='CancelZoneActive'""> "
Response.Write " <input type='submit' value='刷新版位JS' name='submit' onClick=""document.myform.Action.value='CreateJSZone'""> "
Response.Write " <input type='submit' value='移动版位 ->' name='submit' onClick=""document.myform.Action.value='MoveZone'""><select name='ChannelID' id='ChannelID'>" & GetChannel_Option(-1) & "</select>"
Response.Write " <input name='Action' type='hidden' id='Action' value=''>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </form>"
Response.Write " </tr>"
Response.Write "</table>"
If totalPut > 0 Then
Response.Write ShowPage(strFileName & "&ChannelID=" & ChannelID, totalPut, MaxPerPage, CurrentPage, True, True, "个版位", True)
End If
Response.Write "<br>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0' class='border'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='80' align='right'><strong>版位搜索：</strong></td>"
Response.Write " <td>" & GetZoneSearchForm(FileName) & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br><b>说明：</b><br> 广告调用：点击调用操作，复制广告版位JS代码，然后在模板中相应的位置插入即可。<br><br>"
End Sub
Function GetZoneSearchForm(Action)
Dim strForm
strForm = "<table border='0' cellpadding='0' cellspacing='0'>"
strForm = strForm & "<form method='Get' name='SearchForm' action='" & Action & "'>"
strForm = strForm & "<tr><td height='28' align='center'> "
strForm = strForm & "<select name='Field' size='1'>"
strForm = strForm & "<option value='ZoneName' selected>版位名称</option>"
strForm = strForm & "<option value='ZoneIntro'>版位描述</option>"
strForm = strForm & "</select> "
strForm = strForm & "<input type='text' name='keyword' size='20' value='关键字' maxlength='50' onFocus='this.select();'> "
strForm = strForm & "<input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
strForm = strForm & "<input name='Action' type='hidden' id='Action' value='ZoneList'>"
strForm = strForm & "<input type='submit' name='Submit' value='搜索'>"
strForm = strForm & "</td></tr></form></table>"
GetZoneSearchForm = strForm
End Function
Sub ShowJS_Zone()
Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "function CheckForm()" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " if(myform.ZoneName.value==''){" & vbCrLf
Response.Write " alert('版位名称不能为空！');" & vbCrLf
Response.Write " myform.ZoneName.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if(document.myform.ZoneType[document.myform.ZoneType.length-1].checked == false){" & vbCrLf
Response.Write " if(myform.ZoneWidth.value==''){" & vbCrLf
Response.Write " alert('版位宽度不能为空！');" & vbCrLf
Response.Write " myform.ZoneWidth.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if(myform.ZoneHeight.value==''){" & vbCrLf
Response.Write " alert('版位高度不能为空！');" & vbCrLf
Response.Write " myform.ZoneHeight.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "function Change_Setting()" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " if(document.myform.ZoneType[0].checked == false) {" & vbCrLf
Response.Write " document.myform.ShowType[2].disabled = true;" & vbCrLf
Response.Write " if (document.myform.ShowType[2].checked == true)" & vbCrLf
Response.Write " document.myform.ShowType[0].checked = true;" & vbCrLf
Response.Write " } else" & vbCrLf
Response.Write " document.myform.ShowType[2].disabled = false;" & vbCrLf
Response.Write " if(document.myform.ZoneType[document.myform.ZoneType.length-4].checked == false)" & vbCrLf
Response.Write " Zone_EnableSize();" & vbCrLf
Response.Write " else" & vbCrLf
Response.Write " Zone_DisableSize();" & vbCrLf
Response.Write " for (var j=0;j<document.myform.ZoneType.length;j++){" & vbCrLf
Response.Write " var ot = eval('document.all.ZoneType' + (j + 1) + '_Setting');" & vbCrLf
Response.Write " if(document.myform.ZoneType[j].checked==true)" & vbCrLf
Response.Write " ot.style.display = '';" & vbCrLf
Response.Write " else" & vbCrLf
Response.Write " ot.style.display = 'none';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function Zone_DisableSize()" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " document.myform.SizeType[0].disabled = true;" & vbCrLf
Response.Write " document.myform.SizeType[1].disabled = true;" & vbCrLf
Response.Write " document.myform.ZoneSize.disabled = true;" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -