<%
 data_path="../" 'ACC连接数据库路径，对SQL无效 
  numid="no"
 dir="no"
%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
  <%
if issession=0 then
%>
<!--#include file="inc.asp"-->

<%
	If boollogin=false then
              Response.write "<script language='javascript'>"
              Response.write"alert('对不起！请重新登陆！');parent.location.href='"&HOPE_InstallDir&"';</SCRIPT>" 
              Response.End
   End If
  else
	  if session("globalecmaster")="" and  session("masterflag")="" then
              Response.write "<script language='javascript'>"
              Response.write"alert('对不起！请重新登陆！');parent.location.href='"&HOPE_InstallDir&"';</SCRIPT>" 
              Response.End
   End If
 
   if   session("masterflag")<>"" then 
   '权限验证--------------------------------------------
  if numid<>"no" then 
  	'权限限制^^^^^^^^^^^^^^^^^^^^
	 dim ishavegantadmin
	 ishavegantadmin=false
	 in_str=split(session("masterflag"),",")
	 for each ins in in_str 
	 if trim(ins)=numid  then 
	 ishavegantadmin=true 
	 end if
	 next 
	 if ishavegantadmin=false then 
	 if dir<>"no" then 
	 response.redirect dir
	 response.end
	 end if
	 end if
  end if
   '--------------------------------------------------
 end if
 end if
%>
<html>
<head>
<title>广告管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="COAD.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="760" height="31" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f1f1f1" class="border">
  <tr>
    <td width="445"><form name="formss" method="post" action="list.asp" style="margin:0">
      <select name="modid" size="1" id="modid">
        <option value="">所有模版</option>
        <%
		  set rst1=server.CreateObject("adodb.recordset")
		  rst1.open "select yx_tempname,id from [Websen_worldec_Temp] order by yx_selected desc,id desc",conn,1,1
		  Do While not rst1.eof
		  	if cstr(rst1("id"))=request("modid") then
		  		Response.Write "<option value="&rst1("id")&" selected>"&rst1("yx_tempname")&"</option>"
			else
				Response.Write "<option value="&rst1("id")&">"&rst1("yx_tempname")&"</option>"
			end if
		  	rst1.movenext
		  Loop
		  rst1.close
		  set rst1=nothing
		  %>
      </select>
      <label>
        <select name="pagename" id="pagename">
          <option value="">所有页面</option>
          <option value="网站首页" <%if request("pagename")="网站首页" then response.write "selected"%>>网站首页</option>
          <option value="我要采购" <%if request("pagename")="我要采购" then response.write "selected"%>>我要采购</option>
          <option value="我要销售" <%if request("pagename")="我要销售" then response.write "selected"%>>我要销售</option>
          <option value="公司库" <%if request("pagename")="公司库" then response.write "selected"%>>公司库</option>
          <option value="产品库" <%if request("pagename")="产品库" then response.write "selected"%>>产品库</option>
          <option value="展会服务" <%if request("pagename")="展会服务" then response.write "selected"%>>展会服务</option>
          <option value="人才招聘" <%if request("pagename")="人才招聘" then response.write "selected"%>>人才招聘</option>
        </select>
        </label>
      <label>
        <input name="isstop" type="checkbox" value="stop" <% if request("isstop")="stop" then response.write "checked"%>>
        过期&nbsp;
        <input type="submit" name="Submit" value="查 询">
        </label>
    </form></td>
    <td width="40" valign="bottom">&nbsp;</td>
    <td width="275"><a href="list.asp">广告管理</a>&nbsp;&nbsp;<a href="add.asp">添加广告</a>&nbsp;&nbsp;<a href="code.asp">调用说明</a></td>
  </tr>
</table>
<br>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="DDDDDD">
  <tr>
    <td bgcolor="f1f1f1"><%
softurl=Request.Servervariables("server_name")&replace(Request.Servervariables("url"),"/code.asp","")
%>      <br>
      <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#999999">
      <tr>
        <td height="22" align="center" bgcolor="c0c0c0">
          <DIV class="bar2">调用广告的代码方式说明</div></td>
      </tr>
      <tr>
        <td bgcolor="e6e6e6">          第①种：调用纯JS文件代码(需要使用“生成JS”功能后才可生效)[<font color="#990000">推荐使用</font>]
          <br>
          <%
		if right(weburl,1)<>"/" then weburl=weburl&"/"
		%>
          <br>            
          <textarea name="S1" cols="80" rows="7" class="input2">
  <!--广告代码开始-->
  <script src="<%=weburl%>ads/JS/广告名称.js"></script> 
  <!--广告代码结束-->
      </textarea></td>
      </tr>
      <tr>
        <td height="80" bgcolor="e6e6e6">将上面代码的“广告名称”更改成相应广告的ID即可。<br>
      *推荐! 纯JS文件代码，不需要服务器执行，速度第一。缺点不统计显示次数。<br>
      *对于普通固定显示的图片/FLASH广告，将上面的代码复制到要显示广告的位置。<br>
      *对于其他类型广告复制到显示页面的任意位置即可。</td>
      </tr>
      <tr>
        <td height="25" align="center" bgcolor="c0c0c0">[ <a href="list.asp">返 回</a> ] </td>
      </tr>
    </table>
    <br>
    <%
Set rs=nothing
conn.close
Set conn=nothing
%></td>
  </tr>
</table>
<br>
 
</body>
</html>