📄 admin_advman.asp

📁 大榕树网络文章管理系统
💻 ASP
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=3
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="admin_Function.asp"-->
<%
dim rs,page,i,filepath,errmsg
set rs=server.createobject("ADODB.Recordset")
rs.open"select * from advertisement order by adverid desc",conn,1,1
if rs.bof or rs.eof then
errmsg=errmsg + "<br><br><li>暂时还没有广告可管理！</li>"
errmsg=errmsg + "<br><br><li>请添加新广告：［<a href='admin_AdvAdd.asp'>添加新广告</a>］</li>"
errmsg=errmsg + "<br><br>"
call closeconn()
call ShowErrMsg()
else
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page")
rs.pagesize=15
if not isempty(page) then
   if not isnumeric(page) then
     page=1
	 else
	 page=cint(page)
	 end if
	 if page>rs.pagecount then
	    rs.absolutepage=rs.pagecount
		elseif page<=0 then
		rs.absolutepage=1
		else
		  rs.absolutepage=page
		  end if
		else
	rs.absolutepage=1
	end if
	page=rs.absolutepage
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>广告管理面板</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function checkdel()
{
if(confirm("是否要删除该广告，删除后，图片、FLASH请在文章管理中删除！"))
return true;
else
return false;
}
</script>
</head>

<body>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" class="txt1">欢迎来到广告管理面板</td>
  </tr>
  <tr>
    <td align="center" class="txt05">［<a href="admin_AdvAdd.asp">添加新广告</a>］</td>
  </tr>
  <tr>
    <td><table width="98%"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="f5f8f5">
        <tr align="center">
          <td class="txt1">ID号</td>
          <td class="txt1">广告地址</td>
          <td class="txt1">显示页面</td>
          <td class="txt1">广告状态</td>
          <td class="txt1">操作</td>
        </tr>
		<% for i=1 to rs.pagesize
	      if rs.eof then
		  exit for
		  end if %> 
        <tr align="center" class="txt05">
          <td><%=rs("adverid")%></td>
          <td><%=rs("imgurl")%></td>
          <td><%=rs("inpape")%></td>
          <td><%if rs("isflash")=1 then%>Flash<%else%>图片<%end if%>
		  <%select case rs("showsite")
	         case "1"
			 response.write"页面顶部"
			 case "2"
			 response.write"页面开头"
			 case "3"
			 response.write"页面中部"
			 case "4"
			 response.write"页面底部"
			 case "5"
			 response.write"弹出广告"
			 case "6"
			 response.write"首页左侧"
			 case "7"
			 response.write"首页右侧"
			 end select	
			 %>,&nbsp;<%if rs("isnew")=true then%><img src="imgs/new.gif" width="24" height="11">
		  <%else%><img src="imgs/old.gif" width="16" height="15">
		  <%end if%>&nbsp;</td>
          <td><a href="admin_AdvMod.asp?adverid=<%=rs("adverid")%>">修改</a> | <a href="admin_AdvDel.asp?adverid=<%=rs("adverid")%>&advdel=del" onclick="return checkdel();">删除</a>
          <input name="advdel" type="hidden" id="advdel" value="dels"></td>
        </tr>
		<% rs.movenext
	    next
	    %>
    </table></td>
  </tr>
  <tr>
    <td align="center" class="tbbgtitle">
    <%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%></td>
  </tr>
  <tr>
    <td class="txt03"><p class="txt05">　广告在前台的显示方法：<br>
　函数advershow(showsiteNum)存放在inc/system.asp中，可在多个页面直接调用。<br>
　showsiteNum的数值说明如下：<br>
  showsiteNum＝1为顶部广告，2为页面开头，3为页面中部，<br>
  4为页面底部，5为弹出广告（需系统开放弹出广告功能),6为首页左侧，7为首页右侧。<br>
　注意广告状态栏，显示位置不要相同，否则会出错。<br>
　更新广告时，注意先关闭以前的广告，再设定当前的广告。
    </td>
  </tr>
</table>
</body>
</html>
<%
end if
rs.close
set rs=nothing
call closeconn()
%>
⌨️ 快捷键说明

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