<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%qx=3%>
<!--#include file="top.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/page.asp"-->
<!--#include file="../include/money.asp"-->
<link href="../include/css.css" rel="stylesheet" type="text/css">

<%
Select case request("id")
   case "zhengchang"
  sql="select * from Ad where show=1 order by date desc"
   case "lock"
 sql="select * from Ad where show=0 order by date desc"
   case "daoqi"
 sql="select * from Ad where datediff('D',now(),edate)<5 order by date desc"
   case "shoufei"
sql="select * from Ad where amount>0 order by date desc"
   case "all"
sql="select * from Ad order by date desc"
   case "gif"
sql="select * from Ad where adtype=1 order by date desc"
   case "swf"
sql="select * from Ad where adtype=2 order by date desc"
   case "home"
sql="select * from Ad where adtype1=1 or adtype1=2 or adtype1=3 or adtype1=4 or adtype1=5 or adtype1=6 order by date desc"
   case "swf"
sql="select * from Ad where adtype=2 order by date desc"
    case "suo"
conn.execute("Update Ad set show="&shopnet("suo1")&" where id="&shopnet("aid")&"")
Response.redirect Request.ServerVariables("HTTP_REFERER")
 case "del"
conn.execute("Delete * from ad where id="&shopnet("aid")&"")
Response.redirect Request.ServerVariables("HTTP_REFERER")
End Select
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,3

page1("15")%>
<br>  
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
  <tr bgcolor="#f1f1f1" valign="middle">
    <td height="25" colspan="7" align="center" background="images/admin_bg_4.gif" bgcolor="#FFFFFF"><span style="color: #FFFFFF; font-weight: bold">图片广告</span></td>
  </tr>
  <tr bgcolor="#f1f1f1" valign="middle"> 
    <td width="54" height="21" align="center" bgcolor="#FFFFFF"> ID</td>
    <td width="43" height="21" align="center" bgcolor="#FFFFFF">删除</td>
    <td width="271" height="21" align="center" bgcolor="#FFFFFF">广告注释</td>
    <td width="184" height="21" align="center" bgcolor="#FFFFFF">开始时间</td>
    <td width="60" height="21" align="center" bgcolor="#FFFFFF">人气</td>
    <td width="228" height="21" align="center" bgcolor="#FFFFFF">广告类别</td>
    <td width="80" height="21" align="center" bgcolor="#FFFFFF">状态</td>
  </tr>
<%
'商易仿淘宝4.0.1演示地址
'http://www.ftaobao.com
if rs.eof then
response.Write("<tr><td colspan=7 bgcolor=#ffffff height=25 align=center>当前没有任何广告信息！</td></tr>")

else
i=1
do while not rs.eof and i<=rs.pagesize%>
  <tr bgcolor="#FFFFFF" valign="middle"> 
    <td width="54" height="25" align="center" bgcolor="#FFFFFF" ><%=rs("id")%></td>
    <td width="43" height="25" align="center" bgcolor="#FFFFFF" ><a href="?id=del&amp;aid=<%=rs("id")%>">删除</a></td>
    <td width="271" bgcolor="#FFFFFF" ><a href="../leaguer/images/gg/<%=rs("imageurl")%>" target="_blank"><%=rs("biaoti")%></a></td>
    <td width="184" height="25" align="center" bgcolor="#FFFFFF" ><%=rs("date")%></td>
    <td width="60" align="center" bgcolor="#FFFFFF" ><%=rs("count")%></td>
    <td align="center" bgcolor="#FFFFFF" >
	<%
	select case rs("adtype1")
	case "1"
	adname="首页底部广告（760*100）"
	case "2"
    adname="首页底部广告（468*60）"
	case "3"
	adname="其他页底部广告（760*100）"
	case "4"
    adname="其他页底部广告（468*60）"
	case "5"
    adname="首页左侧图片 250*300"
	case "6"
    adname="所有商品页面右图片 250*300"
	case "7"
    adname="所有店铺页面右图片 250*300"
	case "9"
    adname="频道栏-女人TOP图片 "
	case "10"
    adname="频道栏-男人TOP图片 "
	case "11"
    adname="频道栏-数码TOP图片"
	case "12"
    adname="频道栏-家居TOP图片"
	case "13"
    adname="频道栏-书籍音像TOP图片"
	case "14"
    adname="频道栏-宠物TOP图片"
	case "15"
    adname="频道栏-男人TOP图片 "
	case "16"
    adname="频道栏-游戏TOP图片"
	case "17"
    adname="频道栏-香港街TOP图片"
	case "18"
    adname="首页社区帖子列表的小图片"
	
    end select%><%=adname%></td>
    <td width="80" height="25" align="center" bgcolor="#FFFFFF" ><%if rs("show")=0 then%>
      <a href="?id=suo&aid=<%=rs("id")%>&suo1=1">锁定</a>
      <%else%>
      <a href="?id=suo&aid=<%=rs("id")%>&suo1=0">正常</a>
    <%end if%></td>
  </tr>
  <%i=i+1
 rs.MoveNext                                              
 loop%>
  <tr bgcolor="#FFFFFF" valign="middle"> 
    <td height="21" colspan="7" align="center" bgcolor="#FFFFFF" > <%page2("keywords="&keywords&"&id="&shopnet("id")&"&keywords2="&keywords2&"&keywords3="&keywords3&"&xs="&xs&"&")
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%> </td>
  </tr>
</table>
<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *点击状态下的[正常],即可锁定广告显示.反之,正常.
</html>
